35 integer,
public,
parameter ::
zdir = 1
36 integer,
public,
parameter ::
xdir = 2
37 integer,
public,
parameter ::
ydir = 3
41 include
"inc_index_common.h" 43 integer,
public ::
kmax = -1
44 integer,
public ::
imax = -1
45 integer,
public ::
jmax = -1
50 integer,
public,
parameter ::
khalo = 2
71 integer,
public ::
isb 72 integer,
public ::
ieb 73 integer,
public ::
jsb 74 integer,
public ::
jeb 75 integer,
public ::
ieh 76 integer,
public ::
jeh 81 integer,
public ::
iag 82 integer,
public ::
jag 127 namelist / param_index / &
143 if(
io_l )
write(
io_fid_log,*)
'++++++ Module[GRID_INDEX] / Categ[ATMOS-RM GRID] / Origin[SCALElib]' 157 if(
io_l )
write(
io_fid_log,*)
'*** Not found namelist. Default used.' 158 elseif( ierr > 0 )
then 159 write(*,*)
'xxx Not appropriate names in namelist PARAM_INDEX. Check!' 165 write(*,*)
'xxx Both IMAXG and JMAXG must set! ',
imaxg,
jmaxg 169 write(*,*)
'xxx Both IMAX and JMAX must set! ',
imax,
jmax 181 if(
io_l )
write(
io_fid_log,*)
'xxx number of IMAXG should be divisible by PRC_NUM_X' 182 write(*,*)
'xxx number of IMAXG should be divisible by PRC_NUM_X' 193 if(
io_l )
write(
io_fid_log,*)
'xxx number of JMAXG should be divisible by PRC_NUM_Y' 194 write(*,*)
'xxx number of JMAXG should be divisible by PRC_NUM_Y' 204 write(*,*)
'xxx IMAXG&JMAXG or IMAX&JMAX must set!' 209 write(*,*)
'xxx number of grid size IMAX must >= IHALO! ',
imax,
ihalo 213 write(*,*)
'xxx number of grid size JMAX must >= JHALO! ',
jmax,
jhalo 236 write(*,*)
'xxx number of grid size IMAX must be divisible by IBLOCK! ',
imax,
iblock 239 write(*,*)
'xxx number of grid size JMAX must be divisible by JBLOCK! ',
jmax,
jblock 339 if(
io_l )
write(
io_fid_log,*)
'*** Atmosphere grid index information ***' 342 if(
io_l )
write(
io_fid_log,
'(1x,3(A,I6))')
'*** No. of Computational Grid (global) :', &
344 if(
io_l )
write(
io_fid_log,
'(1x,2(A,I6))')
'*** Global index of local grid (X) :', &
346 if(
io_l )
write(
io_fid_log,
'(1x,2(A,I6))')
'*** Global index of local grid (Y) :', &
351 if(
io_l )
write(
io_fid_log,
'(1x,3(A,I6))')
'*** No. of Computational Grid (local) :', &
353 if(
io_l )
write(
io_fid_log,
'(1x,3(A,I6))')
'*** No. of Grid (including HALO, local) :', &
355 if(
io_l )
write(
io_fid_log,
'(1x,2(A,I6))')
'*** Local index of inner grid (X) :', &
357 if(
io_l )
write(
io_fid_log,
'(1x,2(A,I6))')
'*** Local index of inner grid (Y) :', &
integer, public imax
of computational cells: x, local
integer, public iagb
of computational grids
integer, public prc_num_x
x length of 2D processor topology
integer, public is
start point of inner domain: x, local
integer, public iegb
end point of the inner domain: x, global
integer, public je
end point of inner domain: y, local
logical, public prc_has_n
subroutine, public prc_mpistop
Abort MPI.
logical, public prc_periodic_y
periodic condition or not (Y)?
integer, public iblock
block size for cache blocking: x
integer, public iega
end point of the full domain: cx, global
logical, public io_l
output log or not? (this process)
integer, public jsgb
start point of the inner domain: y, global
integer, parameter, public zdir
logical, public prc_has_e
integer, parameter, public ydir
integer, public ke
end point of inner domain: z, local
integer, parameter, public xdir
subroutine, public grid_index_setup
Setup.
logical, public prc_periodic_x
periodic condition or not (X)?
logical, public prc_has_s
integer, public prc_num_y
y length of 2D processor topology
logical, public io_nml
output log or not? (for namelist, this process)
integer, public jsga
start point of the full domain: cy, global
integer, public isgb
start point of the inner domain: x, global
integer, public ia
of whole cells: x, local, with HALO
integer, public jag
of computational grids
integer, public jega
end point of the full domain: cy, global
integer, public ka
of whole cells: z, local, with HALO
integer, public jblock
block size for cache blocking: y
integer, public kmax
of computational cells: z, local
integer, public jhalo
of halo cells: y
integer, public js
start point of inner domain: y, local
integer, public iag
of computational grids
integer, public jagb
of computational grids
integer, public ie_ing
end point of the inner domain: cx, global
integer, public is_ing
start point of the inner domain: cx, global
integer, public ks
start point of inner domain: z, local
integer, public prc_myrank
process num in local communicator
integer, parameter, public khalo
of halo cells: z
integer, public jeh
end point of inner domain: y, local (half level)
integer, public ieh
end point of inner domain: x, local (half level)
integer, public kijmax
of computational cells: z*x*y
integer, public isga
start point of the full domain: cx, global
integer, public ie
end point of inner domain: x, local
integer, public imaxg
of computational cells: x, global
integer, public jegb
end point of the inner domain: y, global
integer, dimension(:,:), allocatable, public prc_2drank
node index in 2D topology
integer, public js_ing
start point of the inner domain: cy, global
integer, public je_ing
end point of the inner domain: cy, global
integer, public io_fid_conf
Config file ID.
integer, public io_fid_log
Log file ID.
integer, public jmaxg
of computational cells: y, global
logical, public prc_has_w
integer, public jmax
of computational cells: y, local
integer, public io_fid_nml
Log file ID (only for output namelist)
integer, public ihalo
of halo cells: x
integer, public ja
of whole cells: y, local, with HALO
