Go to the documentation of this file.
42 private :: land_grid_cartesc_read
43 private :: land_grid_cartesc_generate
49 real(
rp),
private :: ldz(100)
51 character(len=H_LONG) :: land_grid_cartesc_in_basename =
''
52 logical :: land_grid_cartesc_in_aggregate
65 namelist / param_land_grid_cartesc / &
66 land_grid_cartesc_in_basename, &
67 land_grid_cartesc_in_aggregate, &
75 log_info(
"LAND_GRID_CARTESC_setup",*)
'Setup'
78 log_info(
"LAND_GRID_CARTESC_setup",*)
'Skip because LKMAX < 1'
88 read(
io_fid_conf,nml=param_land_grid_cartesc,iostat=ierr)
90 log_info(
"LAND_GRID_CARTESC_setup",*)
'Not found namelist. Default used.'
91 elseif( ierr > 0 )
then
92 log_error(
"LAND_GRID_CARTESC_setup",*)
'Not appropriate names in namelist PARAM_LAND_GRID_CARTESC. Check!'
95 log_nml(param_land_grid_cartesc)
102 log_info(
"LAND_GRID_CARTESC_setup",*)
'Land grid information '
104 if ( land_grid_cartesc_in_basename /=
'' )
then
105 call land_grid_cartesc_read
107 log_info(
"LAND_GRID_CARTESC_setup",*)
'Not found input grid file. Grid position is calculated.'
109 call land_grid_cartesc_generate
114 log_info(
"LAND_GRID_CARTESC_setup",*)
'Single layer. LDZ = ', ldz(1)
117 log_info_cont(
'(1x,A)')
'Vertical Coordinate'
118 log_info_cont(
'(1x,A)')
'| k z zh dz k |'
119 log_info_cont(
'(1x,A)')
'| [m] [m] [m] |'
121 log_info_cont(
'(1x,A,F8.3,A,I4,A)')
'| ',
land_grid_cartesc_fz(k),
' ',k,
' | Atmosphere interface'
123 log_info_cont(
'(1x,A,I4,F8.3,A,F8.3,A)')
'|',k,
land_grid_cartesc_cz(k),
' ',
land_grid_cartesc_cdz(k),
' | '
127 log_info_cont(
'(1x,A,I4,F8.3,A,F8.3,A)')
'|',k,
land_grid_cartesc_cz(k),
' ',
land_grid_cartesc_cdz(k),
' | '
129 log_info_cont(
'(1x,A)')
'|=================================|'
137 subroutine land_grid_cartesc_read
149 log_info(
"LAND_GRID_CARTESC_read",*)
'Input land grid file '
151 call file_open( land_grid_cartesc_in_basename, fid, rankid=
prc_myrank, aggregate=land_grid_cartesc_in_aggregate )
158 end subroutine land_grid_cartesc_read
162 subroutine land_grid_cartesc_generate
180 end subroutine land_grid_cartesc_generate
subroutine, public prc_abort
Abort Process.
real(rp), dimension(:), allocatable, public land_grid_cartesc_cdz
z-length of control volume [m]
integer, public prc_myrank
process num in local communicator
module land / grid / cartesianC / index
integer, parameter, public rp
module atmosphere / grid / cartesC index
subroutine, public file_open(basename, fid, mode, single, aggregate, rankid, postfix)
subroutine, public land_grid_cartesc_setup
Setup.
real(rp), dimension(:), allocatable, public land_grid_cartesc_cz
center coordinate [m]: z, local=global
real(rp), dimension(:), allocatable, public land_grid_cartesc_fz
face coordinate [m]: z, local=global
logical, public file_aggregate
module land / grid / cartesianC
integer, public io_fid_conf
Config file ID.