Go to the documentation of this file.
43 private :: urban_grid_cartesc_read
44 private :: urban_grid_cartesc_generate
50 real(
rp),
private :: udz(200)
52 character(len=H_LONG) :: urban_grid_cartesc_in_basename =
''
53 logical :: urban_grid_cartesc_in_aggregate
66 namelist / param_urban_grid_cartesc / &
67 urban_grid_cartesc_in_basename, &
68 urban_grid_cartesc_in_aggregate, &
76 log_info(
"URBAN_GRID_CARTESC_setup",*)
'Setup'
79 log_info(
"URBAN_GRID_CARTESC_setup",*)
'Skip because UKMAX < 1'
89 read(
io_fid_conf,nml=param_urban_grid_cartesc,iostat=ierr)
91 log_info(
"URBAN_GRID_CARTESC_setup",*)
'Not found namelist. Default used.'
92 elseif( ierr > 0 )
then
93 log_error(
"URBAN_GRID_CARTESC_setup",*)
'Not appropriate names in namelist PARAM_URBAN_GRID_CARTESC. Check!'
96 log_nml(param_urban_grid_cartesc)
103 log_info(
"URBAN_GRID_CARTESC_setup",*)
'Urban grid information '
105 if ( urban_grid_cartesc_in_basename /=
'' )
then
106 call urban_grid_cartesc_read
108 log_info(
"URBAN_GRID_CARTESC_setup",*)
'Not found input grid file. Grid position is calculated.'
110 call urban_grid_cartesc_generate
115 log_info(
"URBAN_GRID_CARTESC_setup",*)
'Single layer. LDZ = ', udz(1)
118 log_info(
"URBAN_GRID_CARTESC_setup",
'(1x,A)')
'Vertical Coordinate'
119 log_info_cont(
'(1x,A)')
'| k z zh dz k |'
120 log_info_cont(
'(1x,A)')
'| [m] [m] [m] |'
124 log_info_cont(
'(1x,A,I4,F8.3,A,F8.3,A)')
'|',k,
urban_grid_cartesc_cz(k),
' ',
urban_grid_cartesc_cdz(k),
' | '
128 log_info_cont(
'(1x,A,I4,F8.3,A,F8.3,A)')
'|',k,
urban_grid_cartesc_cz(k),
' ',
urban_grid_cartesc_cdz(k),
' | '
130 log_info_cont(
'(1x,A)')
'|=================================|'
138 subroutine urban_grid_cartesc_read
150 log_info(
"URBAN_GRID_CARTESC_read",*)
'Input urban grid file '
152 call file_open( urban_grid_cartesc_in_basename, fid, rankid=
prc_myrank, aggregate=urban_grid_cartesc_in_aggregate )
159 end subroutine urban_grid_cartesc_read
163 subroutine urban_grid_cartesc_generate
181 end subroutine urban_grid_cartesc_generate
subroutine, public prc_abort
Abort Process.
real(rp), dimension(:), allocatable, public urban_grid_cartesc_cdz
z-length of control volume [m]
integer, public prc_myrank
process num in local communicator
module urban / grid / icosahedralA / index
real(rp), dimension(:), allocatable, public urban_grid_cartesc_cz
center coordinate [m]: z, local=global
integer, parameter, public rp
module atmosphere / grid / cartesC index
module urban / grid / cartesianC
subroutine, public file_open(basename, fid, mode, single, aggregate, rankid, postfix)
logical, public file_aggregate
subroutine, public urban_grid_cartesc_setup
Setup.
integer, public io_fid_conf
Config file ID.
real(rp), dimension(:), allocatable, public urban_grid_cartesc_fz
face coordinate [m]: z, local=global