scale_file_history_cartesc Module Reference

module file / history_cartesC More...

Functions/Subroutines
subroutine, public	file_history_cartesc_setup
	Setup. More...
subroutine, public	file_history_cartesc_set_pres (PRES, PRESH, SFC_PRES)
	set hydrostatic pressure for pressure coordinate More...
subroutine	file_history_cartesc_truncate_1d (src, dim_type, zcoord, fill_halo, dst)
	truncate 1D data to history buffer More...
subroutine	file_history_cartesc_truncate_3d (src, dim_type, zcoord, fill_halo, dst)
	truncate 3D data to history buffer More...

Detailed Description

module file / history_cartesC

Description

History output module for the cartesianC grid

Author

Team SCALE

NAMELIST

• PARAM_FILE_HISTORY_CARTESC

  name	type	default value	comment
  FILE_HISTORY_CARTESC_MODEL_NLAYER	integer	-1
  FILE_HISTORY_CARTESC_PRES_NLAYER	integer	0
  FILE_HISTORY_CARTESC_PRES	real(RP), dimension(NLAYER_MAX)		> pressure level to output [hPa]
  FILE_HISTORY_CARTESC_BOUNDARY	logical	.false.

  
  

History Output

No history output

Function/Subroutine Documentation

file_history_cartesc_setup()

subroutine, public scale_file_history_cartesc::file_history_cartesc_setup

Setup.

Definition at line 79 of file scale_file_history_cartesC.F90.

    use scale_file_h, only: &
       file_hshort
    use scale_file_history, only: &
       file_history_setup, &
       file_history_set_nowdate, &
       file_history_truncate_1d, &
       file_history_truncate_2d, &
       file_history_truncate_3d
    use scale_prc, only: &
       prc_masterrank, &
       prc_myrank
    use scale_prc_cartesc, only: &
       prc_periodic_x, &
       prc_periodic_y, &
       prc_twod,       &
       prc_has_w,      &
       prc_has_s
    use scale_time, only: &
       time_nowdate,     &
       time_nowsubsec,   &
       time_nowstep,     &
       time_dtsec,       &
       time_startdaysec
    use scale_calendar, only: &
       calendar_get_name
    use scale_interp_vert, only: &
       interp_vert_alloc_pres
    implicit none
 
    integer, parameter :: nlayer_max = 300
    real(RP)           :: FILE_HISTORY_CARTESC_PRES(nlayer_max)
 
    namelist / param_file_history_cartesc / &
       file_history_cartesc_model_nlayer, &
       file_history_cartesc_pres_nlayer,  &
       file_history_cartesc_pres,         &
       file_history_cartesc_boundary
 
    character(len=H_MID) :: FILE_HISTORY_CARTESC_H_TITLE = 'SCALE-RM FILE_HISTORY_CARTESC OUTPUT'
    character(len=H_MID) :: FILE_HISTORY_CARTESC_T_SINCE
 
    character(len=FILE_HSHORT) :: calendar
    real(DP) :: start_daysec
    integer  :: ierr
    integer  :: k
    !---------------------------------------------------------------------------
 
    log_newline
    log_info("FILE_HISTORY_CARTESC_setup",*) 'Setup'
 
    file_history_cartesc_pres(:) = 0.0_rp
 
    !--- read namelist
    rewind(io_fid_conf)
    read(io_fid_conf,nml=param_file_history_cartesc,iostat=ierr)
    if( ierr < 0 ) then !--- missing
       log_info("FILE_HISTORY_CARTESC_setup",*) 'Not found namelist. Default used.'
    elseif( ierr > 0 ) then !--- fatal error
       log_error("FILE_HISTORY_CARTESC_setup",*) 'Not appropriate names in namelist PARAM_FILE_HISTORY_CARTESC. Check!'
       call prc_abort
    endif
    log_nml(param_file_history_cartesc)
 
    if ( file_history_cartesc_model_nlayer < 0 ) then
       file_history_cartesc_model_nlayer = kmax
    end if
 
 
    ! check pressure coordinate
    if ( file_history_cartesc_pres_nlayer > 0 ) then
       if ( file_history_cartesc_pres_nlayer > nlayer_max ) then
          log_error("FILE_HISTORY_CARTESC_setup",'(a,i3)') 'FILE_HISTORY_CARTESC_PRES_nlayer must be <= ', nlayer_max
          call prc_abort
       end if
       allocate( file_history_cartesc_pres_val(file_history_cartesc_pres_nlayer) )
 
       do k = 1, file_history_cartesc_pres_nlayer
          if ( file_history_cartesc_pres(k) <= 0.0_rp ) then
             log_error("FILE_HISTORY_CARTESC_setup",'(a,i3,f7.1)') 'Invalid value found in pressure coordinate! (k,value)=', k, file_history_cartesc_pres(k)
             call prc_abort
          elseif ( file_history_cartesc_pres(k+1) >= file_history_cartesc_pres(k) ) then
             log_error("FILE_HISTORY_CARTESC_setup",'(a,i3,2f7.1)') 'The value of pressure coordinate must be descending order! ', &
                  '(k,value[k],value[k+1])=', k, file_history_cartesc_pres(k), file_history_cartesc_pres(k+1)
             call prc_abort
          endif
          file_history_cartesc_pres_val(k) = file_history_cartesc_pres(k) * 100.0_rp ! [hPa->Pa]
       enddo
 
       call interp_vert_alloc_pres( file_history_cartesc_pres_nlayer, ka, ia, ja ) ! [IN]
    else
       log_info("FILE_HISTORY_CARTESC_setup",*) 'FILE_HISTORY_CARTESC_PRES_nlayer is not set.'
       log_info("FILE_HISTORY_CARTESC_setup",*) 'Output with pressure coordinate is disabled'
    endif
 
 
 
    file_history_cartesc_startdate(:) = time_nowdate
    file_history_cartesc_startsubsec  = time_nowsubsec
 
    start_daysec = time_startdaysec
    if ( time_nowdate(1) > 0 ) then
       write(file_history_cartesc_t_since,'(I4.4,5(A1,I2.2))') time_nowdate(1), &
                                                          '-', time_nowdate(2), &
                                                          '-', time_nowdate(3), &
                                                          ' ', time_nowdate(4), &
                                                          ':', time_nowdate(5), &
                                                          ':', time_nowdate(6)
       start_daysec = time_nowsubsec
    else
       file_history_cartesc_t_since = ''
    endif
 
    if ( file_history_cartesc_boundary ) then
       ims  = isb
       ime  = ieb
       jms  = jsb
       jme  = jeb
 
       imsh = ims
       jmsh = jms
 
       im   = imaxb
       jm   = jmaxb
       imh  = im
       jmh  = jm
    else
       ims  = is
       ime  = ie
       jms  = js
       jme  = je
 
       if ( prc_twod .OR. prc_has_w .OR. prc_periodic_x ) then
          imsh = ims
       else
          imsh = ims - 1 ! including i = IS-1
       endif
       if ( prc_has_s .OR. prc_periodic_y ) then
          jmsh = jms
       else
          jmsh = jms - 1 ! include j = JS-1
       endif
 
       im   = ime - ims  + 1
       jm   = jme - jms  + 1
       imh  = ime - imsh + 1
       jmh  = jme - jmsh + 1
    endif
 
    ! get calendar name
    call calendar_get_name( calendar )
 
    call file_history_setup( file_history_cartesc_h_title,              & ! [IN]
                             h_source, h_institute,                     & ! [IN]
                             start_daysec, time_dtsec,                  & ! [IN]
                             time_since = file_history_cartesc_t_since, & ! [IN]
                             calendar = calendar,                       & ! [IN]
                             default_zcoord = 'model',                  & ! [IN]
                             myrank = prc_myrank                        ) ! [IN]
 
    call file_history_set_nowdate( time_nowdate, time_nowsubsec, time_nowstep )
 
    call file_history_cartesc_set_dims
 
    call file_history_cartesc_set_axes
 
    call file_history_cartesc_set_axes_attributes
 
    file_history_truncate_1d => file_history_cartesc_truncate_1d
    file_history_truncate_2d => file_history_cartesc_truncate_2d
    file_history_truncate_3d => file_history_cartesc_truncate_3d
 
    return

References scale_calendar::calendar_get_name(), file_history_cartesc_truncate_1d(), file_history_cartesc_truncate_3d(), scale_file_history::file_history_set_nowdate(), scale_file_history::file_history_setup(), scale_file_history::file_history_truncate_1d, scale_file_history::file_history_truncate_2d, scale_file_history::file_history_truncate_3d, scale_file_h::file_hshort, scale_io::h_institute, scale_io::h_source, scale_atmos_grid_cartesc_index::ia, scale_atmos_grid_cartesc_index::ie, scale_atmos_grid_cartesc_index::ieb, scale_atmos_grid_cartesc_index::imaxb, scale_interp_vert::interp_vert_alloc_pres(), scale_io::io_fid_conf, scale_atmos_grid_cartesc_index::is, scale_atmos_grid_cartesc_index::isb, scale_atmos_grid_cartesc_index::ja, scale_atmos_grid_cartesc_index::je, scale_atmos_grid_cartesc_index::jeb, scale_atmos_grid_cartesc_index::jmaxb, scale_atmos_grid_cartesc_index::js, scale_atmos_grid_cartesc_index::jsb, scale_atmos_grid_cartesc_index::ka, scale_atmos_grid_cartesc_index::kmax, scale_prc_cartesc::prc_has_s, scale_prc_cartesc::prc_has_w, scale_prc::prc_masterrank, scale_prc::prc_myrank, scale_prc_cartesc::prc_periodic_x, scale_prc_cartesc::prc_periodic_y, scale_prc_cartesc::prc_twod, scale_time::time_dtsec, scale_time::time_nowdate, scale_time::time_nowstep, scale_time::time_nowsubsec, and scale_time::time_startdaysec.

Referenced by mod_rm_driver::rm_driver().

Here is the call graph for this function:

Here is the caller graph for this function:

file_history_cartesc_set_pres()

subroutine, public scale_file_history_cartesc::file_history_cartesc_set_pres	(	real(rp), dimension (:,:,:), intent(in)	PRES,
		real(rp), dimension (:,:,:), intent(in)	PRESH,
		real(rp), dimension( :,:), intent(in)	SFC_PRES
	)

set hydrostatic pressure for pressure coordinate

Definition at line 260 of file scale_file_history_cartesC.F90.

    use scale_interp_vert, only: &
       interp_vert_setcoef_pres
    implicit none
 
    real(RP), intent(in) :: PRES    (:,:,:) ! pressure at the full level [Pa]
    real(RP), intent(in) :: PRESH   (:,:,:) ! pressure at the half level [Pa]
    real(RP), intent(in) :: SFC_PRES(  :,:) ! surface pressure           [Pa]
    !---------------------------------------------------------------------------
 
    if ( file_history_cartesc_pres_nlayer > 0 ) then
       call interp_vert_setcoef_pres( file_history_cartesc_pres_nlayer, & ! [IN]
                                      ka, ks, ke,                       & ! [IN]
                                      ia, isb, ieb,                     & ! [IN]
                                      ja, jsb, jeb,                     & ! [IN]
                                      pres(:,:,:),             & ! [IN]
                                      presh(:,:,:),             & ! [IN]
                                      sfc_pres(:,:)  ,             & ! [IN]
                                      file_history_cartesc_pres_val(:)  ) ! [IN]
       pres_set = .true.
    endif
 
    return

References scale_file_history::file_history_set_dim(), scale_atmos_grid_cartesc_index::ia, scale_atmos_grid_cartesc_index::ieb, scale_atmos_grid_cartesc_index::imax, scale_atmos_grid_cartesc_index::imaxb, scale_interp_vert::interp_vert_setcoef_pres(), scale_atmos_grid_cartesc_index::isb, scale_atmos_grid_cartesc_index::isgb, scale_atmos_grid_cartesc_index::ja, scale_atmos_grid_cartesc_index::jeb, scale_atmos_grid_cartesc_index::jmax, scale_atmos_grid_cartesc_index::jmaxb, scale_atmos_grid_cartesc_index::jsb, scale_atmos_grid_cartesc_index::jsgb, scale_atmos_grid_cartesc_index::ka, scale_atmos_grid_cartesc_index::ke, scale_atmos_grid_cartesc_index::ks, scale_land_grid_cartesc_index::lkmax, scale_mapprojection::mapprojection_mappinginfo, scale_ocean_grid_cartesc_index::okmax, scale_prc_cartesc::prc_2drank, scale_prc_cartesc::prc_has_s, scale_prc_cartesc::prc_has_w, scale_prc::prc_myrank, scale_prc_cartesc::prc_periodic_x, scale_prc_cartesc::prc_periodic_y, and scale_urban_grid_cartesc_index::ukmax.

Referenced by mod_atmos_vars::atmos_vars_history_setpres().

Here is the call graph for this function:

Here is the caller graph for this function:

file_history_cartesc_truncate_1d()

subroutine scale_file_history_cartesc::file_history_cartesc_truncate_1d	(	real(rp), dimension(:), intent(in)	src,
		character(len=*), intent(in)	dim_type,
		character(len=*), intent(in)	zcoord,
		logical, intent(in)	fill_halo,
		real(dp), dimension(:), intent(out)	dst
	)

truncate 1D data to history buffer

Definition at line 493 of file scale_file_history_cartesC.F90.

    implicit none
 
    real(RP),         intent(in) :: src(:)
    character(len=*), intent(in) :: dim_type
    character(len=*), intent(in) :: zcoord
    logical,          intent(in) :: fill_halo ! ignored
 
    real(DP), intent(out) :: dst(:)
 
    integer  :: ksize
    integer  :: kstart
    integer  :: k
    !---------------------------------------------------------------------------
 
    ! select dimension
    select case ( dim_type )
    case ('Z')
        ksize  = file_history_cartesc_model_nlayer
        kstart = ks
    case ('ZH')
       ksize  = file_history_cartesc_model_nlayer+1
       kstart = ks-1
    case ('OZ')
       ksize  = okmax
       kstart = oks
    case ('OZH')
       ksize  = okmax+1
       kstart = oks-1
    case ('LZ')
       ksize  = lkmax
       kstart = lks
    case ('LZH')
       ksize  = lkmax+1
       kstart = lks-1
    case ('UZ')
       ksize  = ukmax
       kstart = uks
    case ('UZH')
       ksize  = ukmax+1
       kstart = uks-1
    case default
       log_error("FILE_HISTORY_CARTESC_truncate_1D",*) 'dim_type is invalid: ', trim(dim_type)
       call prc_abort
    end select
 
    do k = 1, ksize
       dst(k) = src(kstart+k-1)
    enddo
 
    return

References scale_file_h::file_rmiss, scale_atmos_grid_cartesc_index::ie, scale_atmos_grid_cartesc_index::is, scale_atmos_grid_cartesc_index::je, scale_atmos_grid_cartesc_index::js, scale_atmos_grid_cartesc_index::ks, scale_land_grid_cartesc_index::lkmax, scale_land_grid_cartesc_index::lks, scale_ocean_grid_cartesc_index::okmax, scale_ocean_grid_cartesc_index::oks, scale_prc::prc_abort(), scale_urban_grid_cartesc_index::ukmax, and scale_urban_grid_cartesc_index::uks.

Referenced by file_history_cartesc_setup().

Here is the call graph for this function:

Here is the caller graph for this function:

file_history_cartesc_truncate_3d()

subroutine scale_file_history_cartesc::file_history_cartesc_truncate_3d	(	real(rp), dimension(:,:,:), intent(in)	src,
		character(len=*), intent(in)	dim_type,
		character(len=*), intent(in)	zcoord,
		logical, intent(in)	fill_halo,
		real(dp), dimension(:), intent(out)	dst
	)

truncate 3D data to history buffer

Definition at line 636 of file scale_file_history_cartesC.F90.

    use scale_file_h, only: &
       rmiss => file_rmiss
    use scale_const, only: &
       undef => const_undef
    use scale_atmos_grid_cartesc, only: &
       atmos_grid_cartesc_cz, &
       atmos_grid_cartesc_fz
    use scale_atmos_grid_cartesc_real, only: &
       atmos_grid_cartesc_real_cz, &
       atmos_grid_cartesc_real_fz
    use scale_interp_vert, only: &
       interp_vert_xi2z,   &
       interp_vert_xi2p,   &
       interp_vert_xih2zh, &
       interp_vert_xih2p,  &
       interp_available
    implicit none
 
    real(RP),         intent(in)  :: src(:,:,:)
    character(len=*), intent(in)  :: dim_type
    character(len=*), intent(in)  :: zcoord
    logical,          intent(in)  :: fill_halo
    real(DP),         intent(out) :: dst(:)
 
    real(RP) :: src_Z(KA,IA,JA)
    real(RP) :: src_P(FILE_HISTORY_CARTESC_PRES_nlayer,IA,JA)
 
    logical :: atmos
 
    integer  :: isize,  jsize,  ksize
    integer  :: istart, jstart, kstart
    integer  :: i, j, k
    !---------------------------------------------------------------------------
 
    ! select dimension
    if ( index( dim_type, 'XH' ) == 0 ) then
       isize  = im
       istart = ims
    else
       isize  = imh
       istart = imsh
    end if
 
    if ( index( dim_type, 'YH' ) == 0 ) then
       jsize  = jm
       jstart = jms
    else
       jsize  = jmh
       jstart = jmsh
    end if
 
    select case( dim_type(1:1) )
    case ( 'Z' )
       ksize  = file_history_cartesc_model_nlayer
       kstart = ks
       atmos = .true.
    case('O')
       ksize  = okmax
       kstart = oks
       atmos = .false.
    case('L')
       ksize  = lkmax
       kstart = lks
       atmos = .false.
    case('U')
       ksize  = ukmax
       kstart = uks
       atmos = .false.
    case default
       log_error("FILE_HISTORY_CARTESC_truncate_3D",*) 'dim_type is invalid: ', trim(dim_type)
       call prc_abort
    end select
    if ( dim_type(2:2) == 'H' ) then
       ksize = ksize + 1
       kstart = kstart - 1
    end if
 
 
    if ( ksize == file_history_cartesc_model_nlayer .and. zcoord == "z" .and. interp_available .and. atmos ) then ! z*->z interpolation (full level)
 
       call prof_rapstart('FILE_O_interp', 2)
       call interp_vert_xi2z( ka, ks, ke, ia, isb, ieb, ja, jsb, jeb, &
                              atmos_grid_cartesc_cz(:),          & ! [IN]
                              atmos_grid_cartesc_real_cz(:,:,:), & ! [IN]
                              src(:,:,:), & ! [IN]
                              src_z(:,:,:)  ) ! [OUT]
       call prof_rapend  ('FILE_O_interp', 2)
 
       !$omp parallel do
       do k = 1, ksize
       do j = 1, jsize
       do i = 1, isize
          dst((k-1)*jsize*isize+(j-1)*isize+i) = src_z(kstart+k-1,istart+i-1,jstart+j-1)
       enddo
       enddo
       enddo
 
    else if( ksize == file_history_cartesc_model_nlayer+1 .and. zcoord == "z" .and. interp_available .and. atmos ) then ! z*->z interpolation (half level)
 
 
       call prof_rapstart('FILE_O_interp', 2)
       call interp_vert_xih2zh( ka, ks, ke, ia, isb, ieb, ja, jsb, jeb, &
                                atmos_grid_cartesc_fz(:),          & ! [IN]
                                atmos_grid_cartesc_real_fz(:,:,:), & ! [IN]
                                src(:,:,:), & ! [IN]
                                src_z(:,:,:)  ) ! [OUT]
       call prof_rapend  ('FILE_O_interp', 2)
 
       !$omp parallel do
       do k = 1, ksize
       do j = 1, jsize
       do i = 1, isize
          dst((k-1)*jsize*isize+(j-1)*isize+i) = src_z(kstart+k-1,istart+i-1,jstart+j-1)
       enddo
       enddo
       enddo
 
    elseif( zcoord == "pressure" .and. ksize == file_history_cartesc_model_nlayer .and. atmos ) then ! z*->p interpolation (full level)
       ksize = file_history_cartesc_pres_nlayer
       if ( ksize == 0 ) then
          log_error("FILE_HISTORY_CARTESC_truncate_3D",*) 'FILE_HISTORY_CARTESC_PRES_nlayer must be set to output variable with the pressure coordinate'
          call prc_abort
       end if
 
       if ( pres_set ) then
 
          call prof_rapstart('FILE_O_interp', 2)
          call interp_vert_xi2p( file_history_cartesc_pres_nlayer, & ! [IN]
                                 ka, ks, ke,                       & ! [IN]
                                 ia, isb, ieb,                     & ! [IN]
                                 ja, jsb, jeb,                     & ! [IN]
                                 src(:,:,:),                     & ! [IN]
                                 src_p(:,:,:)                      ) ! [OUT]
          call prof_rapend  ('FILE_O_interp', 2)
 
          !$omp parallel do
          do k = 1, ksize
          do j = 1, jsize
          do i = 1, isize
             dst((k-1)*jsize*isize+(j-1)*isize+i) = src_p(k,istart+i-1,jstart+j-1)
          enddo
          enddo
          enddo
 
       else
 
          !$omp parallel do
          do k = 1, ksize
          do j = 1, jsize
          do i = 1, isize
             dst((k-1)*jsize*isize+(j-1)*isize+i) = undef
          enddo
          enddo
          enddo
 
       end if
 
    elseif( zcoord == "pressure" .and. ksize == file_history_cartesc_model_nlayer+1 .and. atmos ) then ! z*->p interpolation (half level)
       ksize = file_history_cartesc_pres_nlayer
       if ( ksize == 0 ) then
          log_error("FILE_HISTORY_CARTESC_truncate_3D",*) 'FILE_HISTORY_CARTESC_PRES_nlayer must be set to output variable with the pressure coordinate'
          call prc_abort
       end if
 
       if ( pres_set ) then
 
          call prof_rapstart('FILE_O_interp', 2)
          call interp_vert_xih2p( file_history_cartesc_pres_nlayer, & ! [IN]
                                  ka, ks, ke,                       & ! [IN]
                                  ia, isb, ieb,                     & ! [IN]
                                  ja, jsb, jeb,                     & ! [IN]
                                  src(:,:,:),                     & ! [IN]
                                  src_p(:,:,:)                      ) ! [OUT]
          call prof_rapend  ('FILE_O_interp', 2)
 
          !$omp parallel do
          do k = 1, ksize
          do j = 1, jsize
          do i = 1, isize
             dst((k-1)*jsize*isize+(j-1)*isize+i) = src_p(k,istart+i-1,jstart+j-1)
          enddo
          enddo
          enddo
 
       else
 
          !$omp parallel do
          do k = 1, ksize
          do j = 1, jsize
          do i = 1, isize
             dst((k-1)*jsize*isize+(j-1)*isize+i) = undef
          enddo
          enddo
          enddo
 
       end if
 
    else ! no interpolation
 
       do k = 1, ksize
       do j = 1, jsize
       do i = 1, isize
          dst((k-1)*jsize*isize+(j-1)*isize+i) = src(kstart+k-1,istart+i-1,jstart+j-1)
       enddo
       enddo
       enddo
 
    endif
 
    if ( fill_halo ) then
       ! W halo
       do k = 1, ksize
       do j = 1, jsize
       do i = 1, is-istart
          dst((k-1)*jsize*isize+(j-1)*isize+i) = rmiss
       enddo
       enddo
       enddo
       ! E halo
       do k = 1, ksize
       do j = 1, jsize
       do i = ie-istart+2, ime-istart+1
          dst((k-1)*jsize*isize+(j-1)*isize+i) = rmiss
       enddo
       enddo
       enddo
       ! S halo
       do k = 1, ksize
       do j = 1, js-jstart
       do i = 1, isize
          dst((k-1)*jsize*isize+(j-1)*isize+i) = rmiss
       enddo
       enddo
       enddo
       ! N halo
       do k = 1, ksize
       do j = je-jstart+2, jme-jstart+1
       do i = 1, isize
          dst((k-1)*jsize*isize+(j-1)*isize+i) = rmiss
       enddo
       enddo
       enddo
    endif
 
    return

References scale_atmos_grid_cartesc::atmos_grid_cartesc_cbfx, scale_atmos_grid_cartesc::atmos_grid_cartesc_cbfxg, scale_atmos_grid_cartesc::atmos_grid_cartesc_cbfy, scale_atmos_grid_cartesc::atmos_grid_cartesc_cbfyg, scale_atmos_grid_cartesc::atmos_grid_cartesc_cbfz, scale_atmos_grid_cartesc::atmos_grid_cartesc_cdx, scale_atmos_grid_cartesc::atmos_grid_cartesc_cdxg, scale_atmos_grid_cartesc::atmos_grid_cartesc_cdy, scale_atmos_grid_cartesc::atmos_grid_cartesc_cdyg, scale_atmos_grid_cartesc::atmos_grid_cartesc_cdz, scale_atmos_grid_cartesc::atmos_grid_cartesc_cx, scale_atmos_grid_cartesc::atmos_grid_cartesc_cxg, scale_atmos_grid_cartesc::atmos_grid_cartesc_cy, scale_atmos_grid_cartesc::atmos_grid_cartesc_cyg, scale_atmos_grid_cartesc::atmos_grid_cartesc_cz, scale_atmos_grid_cartesc::atmos_grid_cartesc_fbfx, scale_atmos_grid_cartesc::atmos_grid_cartesc_fbfxg, scale_atmos_grid_cartesc::atmos_grid_cartesc_fbfy, scale_atmos_grid_cartesc::atmos_grid_cartesc_fbfyg, scale_atmos_grid_cartesc::atmos_grid_cartesc_fbfz, scale_atmos_grid_cartesc::atmos_grid_cartesc_fdx, scale_atmos_grid_cartesc::atmos_grid_cartesc_fdxg, scale_atmos_grid_cartesc::atmos_grid_cartesc_fdy, scale_atmos_grid_cartesc::atmos_grid_cartesc_fdyg, scale_atmos_grid_cartesc::atmos_grid_cartesc_fdz, scale_atmos_grid_cartesc::atmos_grid_cartesc_fx, scale_atmos_grid_cartesc::atmos_grid_cartesc_fxg, scale_atmos_grid_cartesc::atmos_grid_cartesc_fy, scale_atmos_grid_cartesc::atmos_grid_cartesc_fyg, scale_atmos_grid_cartesc::atmos_grid_cartesc_fz, scale_atmos_grid_cartesc::atmos_grid_cartesc_name, scale_atmos_grid_cartesc_real::atmos_grid_cartesc_real_area, scale_atmos_grid_cartesc_real::atmos_grid_cartesc_real_areauy, scale_atmos_grid_cartesc_real::atmos_grid_cartesc_real_areawuy_x, scale_atmos_grid_cartesc_real::atmos_grid_cartesc_real_areawxv_y, scale_atmos_grid_cartesc_real::atmos_grid_cartesc_real_areaxv, scale_atmos_grid_cartesc_real::atmos_grid_cartesc_real_areazuv_x, scale_atmos_grid_cartesc_real::atmos_grid_cartesc_real_areazuv_y, scale_atmos_grid_cartesc_real::atmos_grid_cartesc_real_areazuy_x, scale_atmos_grid_cartesc_real::atmos_grid_cartesc_real_areazxv_y, scale_atmos_grid_cartesc_real::atmos_grid_cartesc_real_areazxy_x, scale_atmos_grid_cartesc_real::atmos_grid_cartesc_real_areazxy_y, scale_atmos_grid_cartesc_real::atmos_grid_cartesc_real_cz, scale_atmos_grid_cartesc_real::atmos_grid_cartesc_real_fz, scale_atmos_grid_cartesc_real::atmos_grid_cartesc_real_lat, scale_atmos_grid_cartesc_real::atmos_grid_cartesc_real_latuv, scale_atmos_grid_cartesc_real::atmos_grid_cartesc_real_latuy, scale_atmos_grid_cartesc_real::atmos_grid_cartesc_real_latxv, scale_atmos_grid_cartesc_real::atmos_grid_cartesc_real_lon, scale_atmos_grid_cartesc_real::atmos_grid_cartesc_real_lonuv, scale_atmos_grid_cartesc_real::atmos_grid_cartesc_real_lonuy, scale_atmos_grid_cartesc_real::atmos_grid_cartesc_real_lonxv, scale_atmos_grid_cartesc_real::atmos_grid_cartesc_real_vol, scale_atmos_grid_cartesc_real::atmos_grid_cartesc_real_volwxy, scale_atmos_grid_cartesc_real::atmos_grid_cartesc_real_volzuy, scale_atmos_grid_cartesc_real::atmos_grid_cartesc_real_volzxv, scale_calendar::calendar_get_name(), scale_const::const_d2r, scale_const::const_undef, scale_file::file_get_cftunits(), scale_file_history::file_history_aggregate, scale_file_history::file_history_set_axis(), scale_file_h::file_rmiss, scale_atmos_grid_cartesc_index::iag, scale_atmos_grid_cartesc_index::iagb, scale_atmos_grid_cartesc_index::ie, scale_atmos_grid_cartesc_index::ie_ing, scale_atmos_grid_cartesc_index::ieb, scale_atmos_grid_cartesc_index::ihalo, scale_atmos_grid_cartesc_index::imax, scale_atmos_grid_cartesc_index::imaxg, scale_interp_vert::interp_available, scale_interp_vert::interp_vert_xi2p(), scale_interp_vert::interp_vert_xi2z(), scale_interp_vert::interp_vert_xih2p(), scale_interp_vert::interp_vert_xih2zh(), scale_atmos_grid_cartesc_index::is, scale_atmos_grid_cartesc_index::is_ing, scale_atmos_grid_cartesc_index::isb, scale_atmos_grid_cartesc_index::isga, scale_atmos_grid_cartesc_index::isgb, scale_atmos_grid_cartesc_index::jag, scale_atmos_grid_cartesc_index::jagb, scale_atmos_grid_cartesc_index::je, scale_atmos_grid_cartesc_index::je_ing, scale_atmos_grid_cartesc_index::jeb, scale_atmos_grid_cartesc_index::jhalo, scale_atmos_grid_cartesc_index::jmax, scale_atmos_grid_cartesc_index::jmaxg, scale_atmos_grid_cartesc_index::js, scale_atmos_grid_cartesc_index::js_ing, scale_atmos_grid_cartesc_index::jsb, scale_atmos_grid_cartesc_index::jsga, scale_atmos_grid_cartesc_index::jsgb, scale_atmos_grid_cartesc_index::ke, scale_atmos_grid_cartesc_index::khalo, scale_atmos_grid_cartesc_index::kmax, scale_atmos_grid_cartesc_index::ks, scale_land_grid_cartesc::land_grid_cartesc_cdz, scale_land_grid_cartesc::land_grid_cartesc_cz, scale_land_grid_cartesc::land_grid_cartesc_fz, scale_land_grid_cartesc_real::land_grid_cartesc_real_vol, scale_landuse::landuse_frac_land, scale_land_grid_cartesc_index::lke, scale_land_grid_cartesc_index::lkmax, scale_land_grid_cartesc_index::lks, scale_mapprojection::mapprojection_mappinginfo, scale_ocean_grid_cartesc::ocean_grid_cartesc_cdz, scale_ocean_grid_cartesc::ocean_grid_cartesc_cz, scale_ocean_grid_cartesc::ocean_grid_cartesc_fz, scale_ocean_grid_cartesc_real::ocean_grid_cartesc_real_vol, scale_ocean_grid_cartesc_index::oke, scale_ocean_grid_cartesc_index::okmax, scale_ocean_grid_cartesc_index::oks, scale_prc_cartesc::prc_2drank, scale_prc::prc_abort(), scale_prc_cartesc::prc_has_e, scale_prc_cartesc::prc_has_n, scale_prc_cartesc::prc_has_s, scale_prc_cartesc::prc_has_w, scale_prc::prc_myrank, scale_prc_cartesc::prc_num_x, scale_prc_cartesc::prc_num_y, scale_prc_cartesc::prc_periodic_x, scale_prc_cartesc::prc_periodic_y, scale_prc_cartesc::prc_twod, scale_prof::prof_rapend(), scale_prof::prof_rapstart(), scale_topography::topography_zsfc, scale_urban_grid_cartesc_index::uke, scale_urban_grid_cartesc_index::ukmax, scale_urban_grid_cartesc_index::uks, scale_urban_grid_cartesc::urban_grid_cartesc_cdz, scale_urban_grid_cartesc::urban_grid_cartesc_cz, scale_urban_grid_cartesc::urban_grid_cartesc_fz, and scale_urban_grid_cartesc_real::urban_grid_cartesc_real_vol.

Referenced by file_history_cartesc_setup().

Here is the call graph for this function:

Here is the caller graph for this function: