scale_prc_cartesc Module Reference

module process / cartesC More...

Functions/Subroutines
subroutine, public	prc_cartesc_setup
	Setup Processor topology. More...

Variables
integer, parameter, public	prc_w = 1
	[node direction] west More...
integer, parameter, public	prc_n = 2
	[node direction] north More...
integer, parameter, public	prc_e = 3
	[node direction] east More...
integer, parameter, public	prc_s = 4
	[node direction] south More...
integer, parameter, public	prc_nw = 5
	[node direction] northwest More...
integer, parameter, public	prc_ne = 6
	[node direction] northeast More...
integer, parameter, public	prc_sw = 7
	[node direction] southwest More...
integer, parameter, public	prc_se = 8
	[node direction] southeast More...
integer, public	prc_num_x = 1
	x length of 2D processor topology More...
integer, public	prc_num_y = 1
	y length of 2D processor topology More...
integer, dimension(:,:), allocatable, public	prc_2drank
	node index in 2D topology More...
integer, dimension(8), public	prc_next = -1
	node ID of 8 neighbour process More...
logical, public	prc_has_w
logical, public	prc_has_n
logical, public	prc_has_e
logical, public	prc_has_s
logical, public	prc_periodic_x = .true.
	periodic condition or not (X)? More...
logical, public	prc_periodic_y = .true.
	periodic condition or not (Y)? More...
logical, public	prc_twod = .false.
	2D experiment More...

Detailed Description

module process / cartesC

Description

MPI process management module for Cartesian-C grid

Author

Team SCALE

NAMELIST

• PARAM_PRC_CARTESC

  name	type	default value	comment
  PRC_NUM_X	integer	1	x length of 2D processor topology
  PRC_NUM_Y	integer	1	y length of 2D processor topology
  PRC_PERIODIC_X	logical	.true.	periodic condition or not (X)?
  PRC_PERIODIC_Y	logical	.true.	periodic condition or not (Y)?
  PRC_CART_REORDER	logical	.false.	flag for rank reordering over the cartesian map

  
  

History Output

No history output

Function/Subroutine Documentation

prc_cartesc_setup()

subroutine, public scale_prc_cartesc::prc_cartesc_setup

Setup Processor topology.

Definition at line 70 of file scale_prc_cartesC.F90.

    use scale_prc, only: &
       prc_abort,                &
       prc_masterrank,           &
       prc_mpi_alive,            &
       prc_abort_comm_world,     &
       prc_universal_comm_world, &
       prc_universal_nprocs,     &
       prc_universal_myrank,     &
       prc_universal_ismaster,   &
       prc_global_comm_world,    &
       prc_global_nprocs,        &
       prc_global_myrank,        &
       prc_global_ismaster,      &
       prc_local_comm_world,     &
       prc_nprocs,               &
       prc_myrank,               &
       prc_ismaster
    implicit none
 
    logical :: PRC_CART_REORDER = .false. 
 
    namelist / param_prc_cartesc / &
       prc_num_x,      &
       prc_num_y,      &
       prc_periodic_x, &
       prc_periodic_y, &
       prc_cart_reorder
 
    logical :: period     (2)
    integer :: divide     (2)
    integer :: coords_W   (2)
    integer :: coords_N   (2)
    integer :: coords_E   (2)
    integer :: coords_S   (2)
    integer :: next_coords(2)
    integer :: iptbl
    integer :: next(8)
 
    integer :: ierr
    integer :: p
    !---------------------------------------------------------------------------
 
    log_newline
    log_info("PRC_CARTESC_setup",*) 'Setup'
 
    if ( io_l ) then
       log_newline
       log_progress(*) 'start MPI'
       log_newline
       log_info("PRC_CARTESC_setup",*) 'Process information '
       log_info_cont('(1x,A,I12)')     'UNIVERSAL_COMM_WORLD        : ', prc_universal_comm_world
       log_info_cont('(1x,A,I12)')     'total process [UNIVERSAL]   : ', prc_universal_nprocs
       log_info_cont('(1x,A,I12)')     'my process ID [UNIVERSAL]   : ', prc_universal_myrank
       log_info_cont('(1x,A,L12)')     'master rank?  [UNIVERSAL]   : ', prc_universal_ismaster
       log_info_cont('(1x,A,I12)')     'GLOBAL_COMM_WORLD           : ', prc_global_comm_world
       log_info_cont('(1x,A,I12)')     'total process [GLOBAL]      : ', prc_global_nprocs
       log_info_cont('(1x,A,I12)')     'my process ID [GLOBAL]      : ', prc_global_myrank
       log_info_cont('(1x,A,L12)')     'master rank?  [GLOBAL]      : ', prc_global_ismaster
       log_info_cont('(1x,A,I12)')     'LOCAL_COMM_WORLD            : ', prc_local_comm_world
       log_info_cont('(1x,A,I12)')     'total process [LOCAL]       : ', prc_nprocs
       log_info_cont('(1x,A,I12)')     'my process ID [LOCAL]       : ', prc_myrank
       log_info_cont('(1x,A,L12)')     'master rank?  [LOCAL]       : ', prc_ismaster
       log_info_cont('(1x,A,I12)')     'ABORT_COMM_WORLD            : ', prc_abort_comm_world
       log_info_cont('(1x,A,I12)')     'master rank ID [each world] : ', prc_masterrank
    endif
 
    !--- read namelist
    rewind(io_fid_conf)
    read(io_fid_conf,nml=param_prc_cartesc,iostat=ierr)
    if( ierr < 0 ) then !--- missing
       log_info("PRC_CARTESC_setup",*) 'Not found namelist. Default used.'
    elseif( ierr > 0 ) then !--- fatal error
       log_error("PRC_CARTESC_setup",*) 'Not appropriate names in namelist PARAM_PRC_CARTESC. Check!'
       call prc_abort
    endif
    if( io_nml ) write(io_fid_nml,nml=param_prc_cartesc)
 
    log_newline
    log_info("PRC_CARTESC_setup",*) 'Process allocation '
    log_info_cont(*)                'No. of Node   :', prc_num_x," x ",prc_num_y
 
    if ( prc_num_x*prc_num_y /= prc_nprocs ) then
       log_error("PRC_CARTESC_setup",*) 'total number of node does not match that requested. Check!'
       call prc_abort
    endif
 
    if ( mod(prc_nprocs,prc_num_x) /= 0 ) then
       log_error("PRC_CARTESC_setup",*) 'number of requested node cannot devide to 2D. Check!'
       call prc_abort
    endif
 
    ! set communication topology
    allocate( prc_2drank(-1:prc_nprocs-1,2) )
    prc_2drank(:,:) = -1
 
    do p = 0, prc_nprocs-1
       prc_2drank(p,1) = mod(p,prc_num_x)
       prc_2drank(p,2) = (p-prc_2drank(p,1)) / prc_num_x
    enddo
 
    divide(1) = prc_num_y
    divide(2) = prc_num_x
    period(1) = prc_periodic_y
    period(2) = prc_periodic_x
    if ( prc_mpi_alive ) then
       call mpi_cart_create(prc_local_comm_world,2,divide,period,prc_cart_reorder,iptbl,ierr)
       call mpi_cart_shift(iptbl,0,1,prc_next(prc_s),prc_next(prc_n),ierr) ! next rank search Down/Up
       call mpi_cart_shift(iptbl,1,1,prc_next(prc_w),prc_next(prc_e),ierr) ! next rank search Left/Right
 
       ! get neighbor_coordinates
       prc_has_w = prc_next(prc_w) /= mpi_proc_null
       if( prc_has_w ) call mpi_cart_coords(iptbl,prc_next(prc_w),2,coords_w,ierr)
       prc_has_n = prc_next(prc_n) /= mpi_proc_null
       if( prc_has_n ) call mpi_cart_coords(iptbl,prc_next(prc_n),2,coords_n,ierr)
       prc_has_e = prc_next(prc_e) /= mpi_proc_null
       if( prc_has_e ) call mpi_cart_coords(iptbl,prc_next(prc_e),2,coords_e,ierr)
       prc_has_s = prc_next(prc_s) /= mpi_proc_null
       if( prc_has_s ) call mpi_cart_coords(iptbl,prc_next(prc_s),2,coords_s,ierr)
       ! next rank search NorthWest
       if (      .NOT. prc_has_n &
            .OR. .NOT. prc_has_w ) then
          prc_next(prc_nw) = mpi_proc_null
       else
          next_coords(1) = coords_n(1)
          next_coords(2) = coords_w(2)
          call mpi_cart_rank(iptbl, next_coords, prc_next(prc_nw), ierr)
       endif
       ! next rank search NorthEast
       if (      .NOT. prc_has_n &
            .OR. .NOT. prc_has_e ) then
          prc_next(prc_ne) = mpi_proc_null
       else
          next_coords(1) = coords_n(1)
          next_coords(2) = coords_e(2)
          call mpi_cart_rank(iptbl, next_coords, prc_next(prc_ne), ierr)
       endif
       ! next rank search SouthWest
       if (      .NOT. prc_has_s &
            .OR. .NOT. prc_has_w ) then
          prc_next(prc_sw) = mpi_proc_null
       else
          next_coords(1) = coords_s(1)
          next_coords(2) = coords_w(2)
          call mpi_cart_rank(iptbl, next_coords, prc_next(prc_sw), ierr)
       endif
       ! next rank search SouthEast
       if (      .NOT. prc_has_s &
            .OR. .NOT. prc_has_e ) then
          prc_next(prc_se) = mpi_proc_null
       else
          next_coords(1) = coords_s(1)
          next_coords(2) = coords_e(2)
          call mpi_cart_rank(iptbl, next_coords, prc_next(prc_se), ierr)
       endif
       call mpi_comm_free(iptbl,ierr)
    endif
 
    next(:) = max(prc_next(:),-1) ! avoid if MPI_PROC_NULL < -1
 
    log_info("PRC_CARTESC_setup",*) 'Node topology :'
    log_info_cont('(1x,A,I5,A,I5,A,I5,A,A,I5,A,I5,A,I5,A,A,I5,A,I5,A,I5,A)') &
       'NW(',next(prc_nw),',',prc_2drank(next(prc_nw),1),',',prc_2drank(next(prc_nw),2),')', &
    ' -  N(',next(prc_n) ,',',prc_2drank(next(prc_n) ,1),',',prc_2drank(next(prc_n) ,2),')', &
    ' - NE(',next(prc_ne),',',prc_2drank(next(prc_ne),1),',',prc_2drank(next(prc_ne),2),')'
    log_info_cont('(1x,A)') '             |                       |                       |'
    log_info_cont('(1x,A,I5,A,I5,A,I5,A,A,I5,A,I5,A,I5,A,A,I5,A,I5,A,I5,A)') &
       ' W(',next(prc_w),',',prc_2drank(next(prc_w),1),',',prc_2drank(next(prc_w),2),')', &
    ' -  P(',prc_myrank ,',',prc_2drank(prc_myrank, 1),',',prc_2drank(prc_myrank, 2),')', &
    ' -  E(',next(prc_e),',',prc_2drank(next(prc_e),1),',',prc_2drank(next(prc_e),2),')'
    log_info_cont('(1x,A)') '             |                       |                       |'
    log_info_cont('(1x,A,I5,A,I5,A,I5,A,A,I5,A,I5,A,I5,A,A,I5,A,I5,A,I5,A)') &
       'SW(',next(prc_sw),',',prc_2drank(next(prc_sw),1),',',prc_2drank(next(prc_sw),2),')', &
    ' -  S(',next(prc_s) ,',',prc_2drank(next(prc_s) ,1),',',prc_2drank(next(prc_s) ,2),')', &
    ' - SE(',next(prc_se),',',prc_2drank(next(prc_se),1),',',prc_2drank(next(prc_se),2),')'
 
    return

References scale_io::io_fid_conf, scale_io::io_fid_nml, scale_io::io_l, scale_io::io_nml, prc_2drank, scale_prc::prc_abort(), scale_prc::prc_abort_comm_world, prc_e, scale_prc::prc_global_comm_world, scale_prc::prc_global_ismaster, scale_prc::prc_global_myrank, scale_prc::prc_global_nprocs, prc_has_e, prc_has_n, prc_has_s, prc_has_w, scale_prc::prc_ismaster, scale_prc::prc_local_comm_world, scale_prc::prc_masterrank, scale_prc::prc_mpi_alive, scale_prc::prc_myrank, prc_n, prc_ne, prc_next, scale_prc::prc_nprocs, prc_num_x, prc_num_y, prc_nw, prc_periodic_x, prc_periodic_y, prc_s, prc_se, prc_sw, scale_prc::prc_universal_comm_world, scale_prc::prc_universal_ismaster, scale_prc::prc_universal_myrank, scale_prc::prc_universal_nprocs, and prc_w.

Referenced by mod_rm_driver::rm_driver(), and mod_rm_prep::rm_prep().

Here is the call graph for this function:

Here is the caller graph for this function:

Variable Documentation

prc_w

integer, parameter, public scale_prc_cartesc::prc_w = 1

[node direction] west

Definition at line 32 of file scale_prc_cartesC.F90.

  integer, public, parameter   :: PRC_W  = 1

Referenced by scale_atmos_phy_lt_sato2019::atmos_phy_lt_neutralization_f2013(), scale_atmos_phy_lt_sato2019::atmos_phy_lt_neutralization_mg2001(), and prc_cartesc_setup().

prc_n

integer, parameter, public scale_prc_cartesc::prc_n = 2

[node direction] north

Definition at line 33 of file scale_prc_cartesC.F90.

  integer, public, parameter   :: PRC_N  = 2

Referenced by scale_atmos_phy_lt_sato2019::atmos_phy_lt_neutralization_f2013(), scale_atmos_phy_lt_sato2019::atmos_phy_lt_neutralization_mg2001(), and prc_cartesc_setup().

prc_e

integer, parameter, public scale_prc_cartesc::prc_e = 3

[node direction] east

Definition at line 34 of file scale_prc_cartesC.F90.

  integer, public, parameter   :: PRC_E  = 3

Referenced by scale_atmos_phy_lt_sato2019::atmos_phy_lt_neutralization_f2013(), scale_atmos_phy_lt_sato2019::atmos_phy_lt_neutralization_mg2001(), and prc_cartesc_setup().

prc_s

integer, parameter, public scale_prc_cartesc::prc_s = 4

[node direction] south

Definition at line 35 of file scale_prc_cartesC.F90.

  integer, public, parameter   :: PRC_S  = 4

Referenced by scale_atmos_phy_lt_sato2019::atmos_phy_lt_neutralization_f2013(), scale_atmos_phy_lt_sato2019::atmos_phy_lt_neutralization_mg2001(), and prc_cartesc_setup().

prc_nw

integer, parameter, public scale_prc_cartesc::prc_nw = 5

[node direction] northwest

Definition at line 36 of file scale_prc_cartesC.F90.

  integer, public, parameter   :: PRC_NW = 5

Referenced by scale_atmos_phy_lt_sato2019::atmos_phy_lt_neutralization_f2013(), scale_atmos_phy_lt_sato2019::atmos_phy_lt_neutralization_mg2001(), and prc_cartesc_setup().

prc_ne

integer, parameter, public scale_prc_cartesc::prc_ne = 6

[node direction] northeast

Definition at line 37 of file scale_prc_cartesC.F90.

  integer, public, parameter   :: PRC_NE = 6

Referenced by scale_atmos_phy_lt_sato2019::atmos_phy_lt_neutralization_f2013(), scale_atmos_phy_lt_sato2019::atmos_phy_lt_neutralization_mg2001(), and prc_cartesc_setup().

prc_sw

integer, parameter, public scale_prc_cartesc::prc_sw = 7

[node direction] southwest

Definition at line 38 of file scale_prc_cartesC.F90.

  integer, public, parameter   :: PRC_SW = 7

Referenced by scale_atmos_phy_lt_sato2019::atmos_phy_lt_neutralization_f2013(), scale_atmos_phy_lt_sato2019::atmos_phy_lt_neutralization_mg2001(), and prc_cartesc_setup().

prc_se

integer, parameter, public scale_prc_cartesc::prc_se = 8

[node direction] southeast

Definition at line 39 of file scale_prc_cartesC.F90.

  integer, public, parameter   :: PRC_SE = 8

Referenced by scale_atmos_phy_lt_sato2019::atmos_phy_lt_neutralization_f2013(), scale_atmos_phy_lt_sato2019::atmos_phy_lt_neutralization_mg2001(), and prc_cartesc_setup().

prc_num_x

integer, public scale_prc_cartesc::prc_num_x = 1

x length of 2D processor topology

Definition at line 41 of file scale_prc_cartesC.F90.

  integer, public              :: PRC_NUM_X  = 1

Referenced by scale_atmos_grid_cartesc::atmos_grid_cartesc_generate(), scale_atmos_grid_cartesc_index::atmos_grid_cartesc_index_setup_main(), scale_atmos_phy_lt_sato2019::atmos_phy_lt_neutralization_f2013(), scale_atmos_phy_lt_sato2019::atmos_phy_lt_neutralization_mg2001(), scale_comm_cartesc_nest::comm_cartesc_nest_domain_shape(), scale_file_cartesc::construct_derived_datatype(), scale_dft::dft_setup(), scale_file_cartesc::file_cartesc_create(), scale_file_cartesc::file_cartesc_read_1d(), scale_file_cartesc::file_cartesc_read_var_3d(), scale_file_cartesc::file_cartesc_read_var_4d(), scale_file_cartesc::file_cartesc_setup(), scale_file_cartesc::file_cartesc_write_var_2d(), scale_file_cartesc::file_cartesc_write_var_3d(), scale_file_cartesc::file_cartesc_write_var_3d_t(), scale_file_cartesc::file_cartesc_write_var_4d(), scale_file_history_cartesc::file_history_cartesc_truncate_3d(), prc_cartesc_setup(), mod_mkinit::read_sounding(), and scale_file_cartesc::set_dimension_informations().

prc_num_y

integer, public scale_prc_cartesc::prc_num_y = 1

y length of 2D processor topology

Definition at line 42 of file scale_prc_cartesC.F90.

  integer, public              :: PRC_NUM_Y  = 1

Referenced by scale_atmos_grid_cartesc::atmos_grid_cartesc_generate(), scale_atmos_grid_cartesc_index::atmos_grid_cartesc_index_setup_main(), scale_atmos_phy_lt_sato2019::atmos_phy_lt_neutralization_f2013(), scale_atmos_phy_lt_sato2019::atmos_phy_lt_neutralization_mg2001(), scale_comm_cartesc_nest::comm_cartesc_nest_domain_shape(), scale_file_cartesc::construct_derived_datatype(), scale_dft::dft_setup(), scale_file_cartesc::file_cartesc_create(), scale_file_cartesc::file_cartesc_read_1d(), scale_file_cartesc::file_cartesc_read_var_3d(), scale_file_cartesc::file_cartesc_read_var_4d(), scale_file_cartesc::file_cartesc_setup(), scale_file_cartesc::file_cartesc_write_var_2d(), scale_file_cartesc::file_cartesc_write_var_3d(), scale_file_cartesc::file_cartesc_write_var_3d_t(), scale_file_cartesc::file_cartesc_write_var_4d(), scale_file_history_cartesc::file_history_cartesc_truncate_3d(), prc_cartesc_setup(), and scale_file_cartesc::set_dimension_informations().

prc_2drank

integer, dimension(:,:), allocatable, public scale_prc_cartesc::prc_2drank

node index in 2D topology

Definition at line 44 of file scale_prc_cartesC.F90.

  integer, public, allocatable :: PRC_2Drank(:,:)

Referenced by scale_atmos_grid_cartesc::atmos_grid_cartesc_generate(), scale_atmos_grid_cartesc_index::atmos_grid_cartesc_index_setup_main(), mod_copytopo::copytopo(), scale_dft::dft_setup(), scale_file_cartesc::file_cartesc_create(), scale_file_cartesc::file_cartesc_setup(), scale_file_cartesc::file_cartesc_write_axes(), scale_file_cartesc::file_cartesc_write_var_1d(), scale_file_cartesc::file_cartesc_write_var_2d(), scale_file_cartesc::file_cartesc_write_var_3d(), scale_file_cartesc::file_cartesc_write_var_3d_t(), scale_file_cartesc::file_cartesc_write_var_4d(), scale_file_history_cartesc::file_history_cartesc_set_pres(), scale_file_history_cartesc::file_history_cartesc_truncate_3d(), and prc_cartesc_setup().

prc_next

integer, dimension(8), public scale_prc_cartesc::prc_next = -1

node ID of 8 neighbour process

Definition at line 45 of file scale_prc_cartesC.F90.

  integer, public              :: PRC_next(8) = -1

Referenced by scale_atmos_phy_lt_sato2019::atmos_phy_lt_neutralization_f2013(), scale_atmos_phy_lt_sato2019::atmos_phy_lt_neutralization_mg2001(), and prc_cartesc_setup().

prc_has_w

logical, public scale_prc_cartesc::prc_has_w

Definition at line 47 of file scale_prc_cartesC.F90.

  logical, public              :: PRC_HAS_W

Referenced by scale_atmos_dyn::atmos_dyn_setup(), scale_atmos_dyn_tstep_large_fvm_heve::atmos_dyn_tstep_large_fvm_heve_setup(), scale_atmos_grid_cartesc_index::atmos_grid_cartesc_index_setup_main(), scale_atmos_phy_lt_sato2019::atmos_phy_lt_electric_field(), scale_atmos_phy_lt_sato2019::atmos_phy_lt_neutralization_f2013(), scale_atmos_phy_lt_sato2019::atmos_phy_lt_neutralization_mg2001(), mod_atmos_phy_tb_driver::atmos_phy_tb_driver_calc_tendency(), mod_atmos_bnd_driver::calc_mass(), scale_comm_cartesc::comm_setup(), scale_file_history_cartesc::file_history_cartesc_set_pres(), scale_file_history_cartesc::file_history_cartesc_setup(), scale_file_history_cartesc::file_history_cartesc_truncate_3d(), scale_comm_cartesc::pack_3d(), prc_cartesc_setup(), mod_atmos_bnd_driver::set_boundary(), and scale_file_cartesc::set_dimension_informations().

prc_has_n

logical, public scale_prc_cartesc::prc_has_n

Definition at line 48 of file scale_prc_cartesC.F90.

  logical, public              :: PRC_HAS_N

Referenced by scale_atmos_dyn::atmos_dyn_setup(), scale_atmos_dyn_tstep_large_fvm_heve::atmos_dyn_tstep_large_fvm_heve_setup(), scale_atmos_grid_cartesc_index::atmos_grid_cartesc_index_setup_main(), scale_atmos_phy_lt_sato2019::atmos_phy_lt_electric_field(), scale_atmos_phy_lt_sato2019::atmos_phy_lt_neutralization_f2013(), scale_atmos_phy_lt_sato2019::atmos_phy_lt_neutralization_mg2001(), mod_atmos_phy_tb_driver::atmos_phy_tb_driver_calc_tendency(), mod_atmos_bnd_driver::calc_mass(), scale_comm_cartesc::comm_setup(), scale_file_history_cartesc::file_history_cartesc_truncate_3d(), prc_cartesc_setup(), mod_atmos_bnd_driver::set_boundary(), and scale_file_cartesc::set_dimension_informations().

prc_has_e

logical, public scale_prc_cartesc::prc_has_e

Definition at line 49 of file scale_prc_cartesC.F90.

  logical, public              :: PRC_HAS_E

Referenced by scale_atmos_dyn::atmos_dyn_setup(), scale_atmos_dyn_tstep_large_fvm_heve::atmos_dyn_tstep_large_fvm_heve_setup(), scale_atmos_grid_cartesc_index::atmos_grid_cartesc_index_setup_main(), scale_atmos_phy_lt_sato2019::atmos_phy_lt_electric_field(), scale_atmos_phy_lt_sato2019::atmos_phy_lt_neutralization_f2013(), scale_atmos_phy_lt_sato2019::atmos_phy_lt_neutralization_mg2001(), mod_atmos_phy_tb_driver::atmos_phy_tb_driver_calc_tendency(), mod_atmos_bnd_driver::calc_mass(), scale_comm_cartesc::comm_setup(), scale_file_history_cartesc::file_history_cartesc_truncate_3d(), scale_comm_cartesc::pack_3d(), prc_cartesc_setup(), mod_atmos_bnd_driver::set_boundary(), and scale_file_cartesc::set_dimension_informations().

prc_has_s

logical, public scale_prc_cartesc::prc_has_s

Definition at line 50 of file scale_prc_cartesC.F90.

  logical, public              :: PRC_HAS_S

Referenced by scale_atmos_dyn::atmos_dyn_setup(), scale_atmos_dyn_tstep_large_fvm_heve::atmos_dyn_tstep_large_fvm_heve_setup(), scale_atmos_grid_cartesc_index::atmos_grid_cartesc_index_setup_main(), scale_atmos_phy_lt_sato2019::atmos_phy_lt_electric_field(), scale_atmos_phy_lt_sato2019::atmos_phy_lt_neutralization_f2013(), scale_atmos_phy_lt_sato2019::atmos_phy_lt_neutralization_mg2001(), mod_atmos_phy_tb_driver::atmos_phy_tb_driver_calc_tendency(), mod_atmos_bnd_driver::calc_mass(), scale_comm_cartesc::comm_setup(), scale_file_history_cartesc::file_history_cartesc_set_pres(), scale_file_history_cartesc::file_history_cartesc_setup(), scale_file_history_cartesc::file_history_cartesc_truncate_3d(), prc_cartesc_setup(), mod_atmos_bnd_driver::set_boundary(), and scale_file_cartesc::set_dimension_informations().

prc_periodic_x

logical, public scale_prc_cartesc::prc_periodic_x = .true.

periodic condition or not (X)?

Definition at line 52 of file scale_prc_cartesC.F90.

  logical, public              :: PRC_PERIODIC_X   = .true.  

Referenced by scale_atmos_grid_cartesc_index::atmos_grid_cartesc_index_setup_main(), scale_file_cartesc::file_cartesc_create(), scale_file_history_cartesc::file_history_cartesc_set_pres(), scale_file_history_cartesc::file_history_cartesc_setup(), scale_file_history_cartesc::file_history_cartesc_truncate_3d(), prc_cartesc_setup(), and scale_file_cartesc::set_dimension_informations().

prc_periodic_y

logical, public scale_prc_cartesc::prc_periodic_y = .true.

periodic condition or not (Y)?

Definition at line 53 of file scale_prc_cartesC.F90.

  logical, public              :: PRC_PERIODIC_Y   = .true.  

Referenced by scale_atmos_grid_cartesc_index::atmos_grid_cartesc_index_setup_main(), scale_file_cartesc::file_cartesc_create(), scale_file_history_cartesc::file_history_cartesc_set_pres(), scale_file_history_cartesc::file_history_cartesc_setup(), scale_file_history_cartesc::file_history_cartesc_truncate_3d(), prc_cartesc_setup(), and scale_file_cartesc::set_dimension_informations().

prc_twod

logical, public scale_prc_cartesc::prc_twod = .false.

2D experiment

Definition at line 55 of file scale_prc_cartesC.F90.

  logical, public              :: PRC_TwoD         = .false. 

Referenced by scale_atmos_diagnostic_cartesc::atmos_diagnostic_cartesc_get_vel(), scale_atmos_dyn::atmos_dyn(), mod_atmos_dyn_driver::atmos_dyn_driver(), scale_atmos_dyn_fvm_flux::atmos_dyn_fvm_flux_setup(), scale_atmos_dyn_fvm_numfilter::atmos_dyn_fvm_numfilter_setup(), scale_atmos_dyn::atmos_dyn_setup(), scale_atmos_dyn_tstep_large_fvm_heve::atmos_dyn_tstep_large_fvm_heve_setup(), scale_atmos_grid_cartesc_index::atmos_grid_cartesc_index_setup(), scale_atmos_grid_cartesc_index::atmos_grid_cartesc_index_setup_main(), scale_atmos_grid_cartesc_metric::atmos_grid_cartesc_metric_rotcoef(), scale_atmos_grid_cartesc_metric::atmos_grid_cartesc_metric_setup(), scale_atmos_grid_cartesc_real::atmos_grid_cartesc_real_calc_areavol(), mod_atmos_vars::atmos_vars_check(), mod_atmos_vars::atmos_vars_get_diagnostic_3d(), scale_comm_cartesc::copy_boundary_2d(), scale_file_cartesc::file_cartesc_def_var(), scale_file_history_cartesc::file_history_cartesc_setup(), scale_file_history_cartesc::file_history_cartesc_truncate_3d(), scale_mapprojection::mapprojection_setup(), scale_monitor_cartesc::monitor_cartesc_setup(), scale_comm_cartesc::pack_3d(), scale_topography::topography_calc_tan_slope(), scale_comm_cartesc::vars8_2d_mpi(), scale_comm_cartesc::vars8_3d_mpi(), scale_comm_cartesc::vars8_init_mpi_pc(), scale_comm_cartesc::vars_2d_mpi(), scale_comm_cartesc::vars_3d_mpi(), scale_comm_cartesc::vars_3d_mpi_pc(), scale_comm_cartesc::vars_init_mpi_pc(), scale_comm_cartesc::wait_2d_mpi(), scale_comm_cartesc::wait_3d_mpi(), and scale_comm_cartesc::wait_3d_mpi_pc().