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...

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 68 of file scale_prc_cartesC.F90.

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().

    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

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.

Referenced by prc_cartesc_setup(), scale_comm_cartesc::vars8_2d_mpi(), scale_comm_cartesc::vars8_3d_mpi(), scale_comm_cartesc::vars_2d_mpi(), and scale_comm_cartesc::vars_init_mpi_pc().

  integer, public, parameter   :: prc_w  = 1

prc_n

integer, parameter, public scale_prc_cartesc::prc_n = 2

[node direction] north

Definition at line 33 of file scale_prc_cartesC.F90.

Referenced by prc_cartesc_setup(), scale_comm_cartesc::vars8_2d_mpi(), scale_comm_cartesc::vars8_3d_mpi(), scale_comm_cartesc::vars_2d_mpi(), and scale_comm_cartesc::vars_init_mpi_pc().

  integer, public, parameter   :: prc_n  = 2

prc_e

integer, parameter, public scale_prc_cartesc::prc_e = 3

[node direction] east

Definition at line 34 of file scale_prc_cartesC.F90.

Referenced by prc_cartesc_setup(), scale_comm_cartesc::vars8_2d_mpi(), scale_comm_cartesc::vars8_3d_mpi(), scale_comm_cartesc::vars_2d_mpi(), and scale_comm_cartesc::vars_init_mpi_pc().

  integer, public, parameter   :: prc_e  = 3

prc_s

integer, parameter, public scale_prc_cartesc::prc_s = 4

[node direction] south

Definition at line 35 of file scale_prc_cartesC.F90.

Referenced by prc_cartesc_setup(), scale_comm_cartesc::vars8_2d_mpi(), scale_comm_cartesc::vars8_3d_mpi(), scale_comm_cartesc::vars_2d_mpi(), and scale_comm_cartesc::vars_init_mpi_pc().

  integer, public, parameter   :: prc_s  = 4

prc_nw

integer, parameter, public scale_prc_cartesc::prc_nw = 5

[node direction] northwest

Definition at line 36 of file scale_prc_cartesC.F90.

Referenced by prc_cartesc_setup(), scale_comm_cartesc::vars8_2d_mpi(), scale_comm_cartesc::vars8_3d_mpi(), and scale_comm_cartesc::vars_init_mpi_pc().

  integer, public, parameter   :: prc_nw = 5

prc_ne

integer, parameter, public scale_prc_cartesc::prc_ne = 6

[node direction] northeast

Definition at line 37 of file scale_prc_cartesC.F90.

Referenced by prc_cartesc_setup(), scale_comm_cartesc::vars8_2d_mpi(), scale_comm_cartesc::vars8_3d_mpi(), and scale_comm_cartesc::vars_init_mpi_pc().

  integer, public, parameter   :: prc_ne = 6

prc_sw

integer, parameter, public scale_prc_cartesc::prc_sw = 7

[node direction] southwest

Definition at line 38 of file scale_prc_cartesC.F90.

Referenced by prc_cartesc_setup(), scale_comm_cartesc::vars8_2d_mpi(), scale_comm_cartesc::vars8_3d_mpi(), and scale_comm_cartesc::vars_init_mpi_pc().

  integer, public, parameter   :: prc_sw = 7

prc_se

integer, parameter, public scale_prc_cartesc::prc_se = 8

[node direction] southeast

Definition at line 39 of file scale_prc_cartesC.F90.

Referenced by prc_cartesc_setup(), scale_comm_cartesc::vars8_2d_mpi(), scale_comm_cartesc::vars8_3d_mpi(), and scale_comm_cartesc::vars_init_mpi_pc().

  integer, public, parameter   :: prc_se = 8

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.

Referenced by scale_atmos_grid_cartesc::atmos_grid_cartesc_generate(), scale_atmos_grid_cartesc_index::atmos_grid_cartesc_index_setup(), scale_comm_cartesc_nest::comm_cartesc_nest_domain_shape(), scale_file_cartesc::construct_derived_datatype(), 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().

  integer, public              :: prc_num_x  = 1

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.

Referenced by scale_atmos_grid_cartesc::atmos_grid_cartesc_generate(), scale_atmos_grid_cartesc_index::atmos_grid_cartesc_index_setup(), scale_comm_cartesc_nest::comm_cartesc_nest_domain_shape(), scale_file_cartesc::construct_derived_datatype(), 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().

  integer, public              :: prc_num_y  = 1

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.

Referenced by scale_atmos_grid_cartesc::atmos_grid_cartesc_generate(), scale_atmos_grid_cartesc_index::atmos_grid_cartesc_index_setup(), mod_copytopo::copytopo(), 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().

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

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.

Referenced by prc_cartesc_setup(), scale_comm_cartesc::vars8_2d_mpi(), scale_comm_cartesc::vars8_3d_mpi(), scale_comm_cartesc::vars_2d_mpi(), and scale_comm_cartesc::vars_init_mpi_pc().

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

prc_has_w

logical, public scale_prc_cartesc::prc_has_w

Definition at line 47 of file scale_prc_cartesC.F90.

Referenced by mod_atmos_bnd_driver::atmos_boundary_driver_update(), 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_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(), scale_file_cartesc::set_dimension_informations(), scale_comm_cartesc::vars8_2d_mpi(), scale_comm_cartesc::vars8_3d_mpi(), scale_comm_cartesc::vars_2d_mpi(), scale_comm_cartesc::vars_init_mpi_pc(), and scale_comm_cartesc::wait_3d_mpi().

  logical, public              :: prc_has_w

prc_has_n

logical, public scale_prc_cartesc::prc_has_n

Definition at line 48 of file scale_prc_cartesC.F90.

Referenced by mod_atmos_bnd_driver::atmos_boundary_driver_update(), 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_comm_cartesc::comm_setup(), scale_file_history_cartesc::file_history_cartesc_truncate_3d(), prc_cartesc_setup(), scale_file_cartesc::set_dimension_informations(), scale_comm_cartesc::vars8_2d_mpi(), scale_comm_cartesc::vars8_3d_mpi(), scale_comm_cartesc::vars_2d_mpi(), scale_comm_cartesc::vars_init_mpi_pc(), and scale_comm_cartesc::wait_3d_mpi().

  logical, public              :: prc_has_n

prc_has_e

logical, public scale_prc_cartesc::prc_has_e

Definition at line 49 of file scale_prc_cartesC.F90.

Referenced by mod_atmos_bnd_driver::atmos_boundary_driver_update(), 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_comm_cartesc::comm_setup(), scale_file_history_cartesc::file_history_cartesc_truncate_3d(), prc_cartesc_setup(), scale_file_cartesc::set_dimension_informations(), scale_comm_cartesc::vars8_2d_mpi(), scale_comm_cartesc::vars8_3d_mpi(), scale_comm_cartesc::vars_2d_mpi(), scale_comm_cartesc::vars_init_mpi_pc(), and scale_comm_cartesc::wait_3d_mpi().

  logical, public              :: prc_has_e

prc_has_s

logical, public scale_prc_cartesc::prc_has_s

Definition at line 50 of file scale_prc_cartesC.F90.

Referenced by mod_atmos_bnd_driver::atmos_boundary_driver_update(), 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_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(), scale_file_cartesc::set_dimension_informations(), scale_comm_cartesc::vars8_2d_mpi(), scale_comm_cartesc::vars8_3d_mpi(), scale_comm_cartesc::vars_2d_mpi(), scale_comm_cartesc::vars_init_mpi_pc(), and scale_comm_cartesc::wait_3d_mpi().

  logical, public              :: prc_has_s

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.

Referenced by scale_atmos_grid_cartesc_index::atmos_grid_cartesc_index_setup(), scale_file_cartesc::file_cartesc_create(), 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().

  logical, public              :: prc_periodic_x   = .true.  

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.

Referenced by scale_atmos_grid_cartesc_index::atmos_grid_cartesc_index_setup(), scale_file_cartesc::file_cartesc_create(), 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().

  logical, public              :: prc_periodic_y   = .true.