60 real(RP),
public,
allocatable ::
urban_tr (:,:)
61 real(RP),
public,
allocatable ::
urban_tb (:,:)
62 real(RP),
public,
allocatable ::
urban_tg (:,:)
63 real(RP),
public,
allocatable ::
urban_tc (:,:)
64 real(RP),
public,
allocatable ::
urban_qc (:,:)
65 real(RP),
public,
allocatable ::
urban_uc (:,:)
112 real(RP),
public,
allocatable ::
atmos_w (:,:)
113 real(RP),
public,
allocatable ::
atmos_u (:,:)
114 real(RP),
public,
allocatable ::
atmos_v (:,:)
132 logical,
private :: urban_vars_checkrange = .false.
134 integer,
private,
parameter :: vmax = 23
135 integer,
private,
parameter :: i_tr = 1
136 integer,
private,
parameter :: i_tb = 2
137 integer,
private,
parameter :: i_tg = 3
138 integer,
private,
parameter :: i_tc = 4
139 integer,
private,
parameter :: i_qc = 5
140 integer,
private,
parameter :: i_uc = 6
141 integer,
private,
parameter :: i_trl = 7
142 integer,
private,
parameter :: i_tbl = 8
143 integer,
private,
parameter :: i_tgl = 9
144 integer,
private,
parameter :: i_rainr = 10
145 integer,
private,
parameter :: i_rainb = 11
146 integer,
private,
parameter :: i_raing = 12
147 integer,
private,
parameter :: i_roff = 13
148 integer,
private,
parameter :: i_sfc_temp = 14
149 integer,
private,
parameter :: i_alb_lw = 15
150 integer,
private,
parameter :: i_alb_sw = 16
151 integer,
private,
parameter :: i_sflx_mw = 17
152 integer,
private,
parameter :: i_sflx_mu = 18
153 integer,
private,
parameter :: i_sflx_mv = 19
154 integer,
private,
parameter :: i_sflx_sh = 20
155 integer,
private,
parameter :: i_sflx_lh = 21
156 integer,
private,
parameter :: i_sflx_gh = 22
157 integer,
private,
parameter :: i_sflx_evap = 23
159 character(len=H_SHORT),
private :: var_name(vmax)
160 character(len=H_MID),
private :: var_desc(vmax)
161 character(len=H_SHORT),
private :: var_unit(vmax)
162 integer,
private :: var_id(vmax)
163 integer,
private :: restart_fid = -1
165 logical,
private :: urban_restart_in_check_coordinates = .true.
167 data var_name /
'URBAN_TR' , &
191 data var_desc /
'urban surface temperature of roof', &
192 'urban surface temperature of wall', &
193 'urban surface temperature of road', &
194 'urban canopy air temperature', &
195 'urban canopy humidity', &
196 'urban canopy wind', &
197 'urban temperature in layer of roof', &
198 'urban temperature in layer of wall', &
199 'urban temperature in layer of road', &
200 'urban rain strage on roof', &
201 'urban rain strage on wall', &
202 'urban rain strage on road', &
204 'urban grid average of temperature', &
205 'urban grid average of albedo LW', &
206 'urban grid average of albedo SW', &
207 'urban grid average of w-momentum flux', &
208 'urban grid average of u-momentum flux', &
209 'urban grid average of v-momentum flux', &
210 'urban grid average of sensible heat flux', &
211 'urban grid average of latent heat flux', &
212 'urban grid average of ground heat flux', &
213 'urban grid average of water vapor flux' /
215 data var_unit /
'K', &
250 namelist / param_urban_vars / &
253 urban_restart_in_check_coordinates, &
259 urban_vars_checkrange
266 if(
io_l )
write(
io_fid_log,*)
'++++++ Module[VARS] / Categ[URBAN] / Origin[SCALE-RM]' 387 if(
io_l )
write(
io_fid_log,*)
'*** Not found namelist. Default used.' 388 elseif( ierr > 0 )
then 389 write(*,*)
'xxx Not appropriate names in namelist PARAM_URBAN_VARS. Check!' 395 if(
io_l )
write(
io_fid_log,*)
'*** List of prognostic variables (URBAN) ***' 397 '*** |',
'VARNAME ',
'|', &
398 'DESCRIPTION ',
'[',
'UNIT ',
']' 400 if(
io_l )
write(
io_fid_log,
'(1x,A,I3,A,A24,A,A48,A,A12,A)') &
401 '*** NO.',iv,
'|',var_name(iv),
'|',var_desc(iv),
'[',var_unit(iv),
']' 430 fileio_check_coordinates
435 character(len=19) :: timelabel
436 character(len=H_LONG) :: basename
440 if(
io_l )
write(
io_fid_log,*)
'*** Open restart file (URBAN) ***' 456 if ( urban_restart_in_check_coordinates )
then 457 call fileio_check_coordinates( restart_fid, urban=.true. )
461 if(
io_l )
write(
io_fid_log,*)
'*** restart file for urban is not specified.' 476 if ( restart_fid /= -1 )
then 478 if(
io_l )
write(
io_fid_log,*)
'*** Read from restart file (URBAN) ***' 481 restart_fid, var_name(i_tr),
'XY', step=1 )
483 restart_fid, var_name(i_tb),
'XY', step=1 )
485 restart_fid, var_name(i_tg),
'XY', step=1 )
487 restart_fid, var_name(i_tc),
'XY', step=1 )
489 restart_fid, var_name(i_qc),
'XY', step=1 )
491 restart_fid, var_name(i_uc),
'XY', step=1 )
494 restart_fid, var_name(i_trl),
'Urban', step=1 )
496 restart_fid, var_name(i_tbl),
'Urban', step=1 )
498 restart_fid, var_name(i_tgl),
'Urban', step=1 )
501 restart_fid, var_name(i_rainr),
'XY', step=1 )
503 restart_fid, var_name(i_rainb),
'XY', step=1 )
505 restart_fid, var_name(i_raing),
'XY', step=1 )
507 restart_fid, var_name(i_roff),
'XY', step=1 )
510 restart_fid, var_name(i_sfc_temp),
'XY', step=1 )
512 restart_fid, var_name(i_alb_lw),
'XY', step=1 )
514 restart_fid, var_name(i_alb_sw),
'XY', step=1 )
517 restart_fid, var_name(i_sflx_mw),
'XY', step=1 )
519 restart_fid, var_name(i_sflx_mu),
'XY', step=1 )
521 restart_fid, var_name(i_sflx_mv),
'XY', step=1 )
523 restart_fid, var_name(i_sflx_sh),
'XY', step=1 )
525 restart_fid, var_name(i_sflx_lh),
'XY', step=1 )
527 restart_fid, var_name(i_sflx_gh),
'XY', step=1 )
529 restart_fid, var_name(i_sflx_evap),
'XY', step=1 )
535 if(
io_l )
write(
io_fid_log,*)
'*** invalid restart file ID for urban.' 549 if ( urban_vars_checkrange )
then 584 call hist_in(
urban_tr(:,:), var_name(i_tr), var_desc(i_tr), var_unit(i_tr) )
585 call hist_in(
urban_tb(:,:), var_name(i_tb), var_desc(i_tb), var_unit(i_tb) )
586 call hist_in(
urban_tg(:,:), var_name(i_tg), var_desc(i_tg), var_unit(i_tg) )
587 call hist_in(
urban_tc(:,:), var_name(i_tc), var_desc(i_tc), var_unit(i_tc) )
588 call hist_in(
urban_qc(:,:), var_name(i_qc), var_desc(i_qc), var_unit(i_qc) )
589 call hist_in(
urban_uc(:,:), var_name(i_uc), var_desc(i_uc), var_unit(i_uc) )
591 call hist_in(
urban_trl(:,:,:), var_name(i_trl), var_desc(i_trl), var_unit(i_trl), zdim=
'urban' )
592 call hist_in(
urban_tbl(:,:,:), var_name(i_tbl), var_desc(i_tbl), var_unit(i_tbl), zdim=
'urban' )
593 call hist_in(
urban_tgl(:,:,:), var_name(i_tgl), var_desc(i_tgl), var_unit(i_tgl), zdim=
'urban' )
595 call hist_in(
urban_rainr(:,:), var_name(i_rainr), var_desc(i_rainr), var_unit(i_rainr) )
596 call hist_in(
urban_rainb(:,:), var_name(i_rainb), var_desc(i_rainb), var_unit(i_rainb) )
597 call hist_in(
urban_raing(:,:), var_name(i_raing), var_desc(i_raing), var_unit(i_raing) )
598 call hist_in(
urban_roff(:,:), var_name(i_roff), var_desc(i_roff), var_unit(i_roff) )
600 call hist_in(
urban_sfc_temp(:,:), var_name(i_sfc_temp), var_desc(i_sfc_temp), var_unit(i_sfc_temp) )
601 call hist_in(
urban_sfc_albedo(:,:,i_lw), var_name(i_alb_lw), var_desc(i_alb_lw), var_unit(i_alb_lw) )
602 call hist_in(
urban_sfc_albedo(:,:,i_sw), var_name(i_alb_sw), var_desc(i_alb_sw), var_unit(i_alb_sw) )
604 call hist_in(
urban_sflx_mw(:,:), var_name(i_sflx_mw), var_desc(i_sflx_mw), var_unit(i_sflx_mw) )
605 call hist_in(
urban_sflx_mu(:,:), var_name(i_sflx_mu), var_desc(i_sflx_mu), var_unit(i_sflx_mu) )
606 call hist_in(
urban_sflx_mv(:,:), var_name(i_sflx_mv), var_desc(i_sflx_mv), var_unit(i_sflx_mv) )
607 call hist_in(
urban_sflx_sh(:,:), var_name(i_sflx_sh), var_desc(i_sflx_sh), var_unit(i_sflx_sh) )
608 call hist_in(
urban_sflx_lh(:,:), var_name(i_sflx_lh), var_desc(i_sflx_lh), var_unit(i_sflx_lh) )
609 call hist_in(
urban_sflx_gh(:,:), var_name(i_sflx_gh), var_desc(i_sflx_gh), var_unit(i_sflx_gh) )
610 call hist_in(
urban_sflx_evap(:,:), var_name(i_sflx_evap), var_desc(i_sflx_evap), var_unit(i_sflx_evap) )
628 call stat_total( total,
urban_tr(:,:), var_name(i_tr) )
629 call stat_total( total,
urban_tb(:,:), var_name(i_tb) )
630 call stat_total( total,
urban_tg(:,:), var_name(i_tg) )
631 call stat_total( total,
urban_tc(:,:), var_name(i_tc) )
632 call stat_total( total,
urban_qc(:,:), var_name(i_qc) )
633 call stat_total( total,
urban_uc(:,:), var_name(i_uc) )
636 call stat_total( total,
urban_trl(k,:,:), var_name(i_trl) )
637 call stat_total( total,
urban_tbl(k,:,:), var_name(i_tbl) )
638 call stat_total( total,
urban_tgl(k,:,:), var_name(i_tgl) )
641 call stat_total( total,
urban_rainr(:,:), var_name(i_rainr) )
642 call stat_total( total,
urban_rainb(:,:), var_name(i_rainb) )
643 call stat_total( total,
urban_raing(:,:), var_name(i_raing) )
644 call stat_total( total,
urban_roff(:,:), var_name(i_roff) )
646 call stat_total( total,
urban_sfc_temp(:,:), var_name(i_sfc_temp) )
650 call stat_total( total,
urban_sflx_mw(:,:), var_name(i_sflx_mw) )
651 call stat_total( total,
urban_sflx_mu(:,:), var_name(i_sflx_mu) )
652 call stat_total( total,
urban_sflx_mv(:,:), var_name(i_sflx_mv) )
653 call stat_total( total,
urban_sflx_sh(:,:), var_name(i_sflx_sh) )
654 call stat_total( total,
urban_sflx_lh(:,:), var_name(i_sflx_lh) )
655 call stat_total( total,
urban_sflx_gh(:,:), var_name(i_sflx_gh) )
670 URBAN_SFC_albedo_in )
673 real(RP),
intent(in) :: urban_tc_in (
ia,
ja)
674 real(RP),
intent(in) :: urban_qc_in (
ia,
ja)
675 real(RP),
intent(in) :: urban_uc_in (
ia,
ja)
676 real(RP),
intent(in) :: urban_sfc_temp_in (
ia,
ja)
677 real(RP),
intent(in) :: urban_sfc_albedo_in(
ia,
ja,2)
685 urban_tr(:,:) = urban_sfc_temp_in(:,:)
686 urban_tb(:,:) = urban_sfc_temp_in(:,:)
687 urban_tg(:,:) = urban_sfc_temp_in(:,:)
694 urban_trl(k,:,:) = urban_sfc_temp_in(:,:)
695 urban_tbl(k,:,:) = urban_sfc_temp_in(:,:)
696 urban_tgl(k,:,:) = urban_sfc_temp_in(:,:)
734 character(len=19) :: timelabel
735 character(len=H_LONG) :: basename
741 if(
io_l )
write(
io_fid_log,*)
'*** Create restart file (URBAN) ***' 767 if ( restart_fid /= -1 )
then 782 if ( restart_fid /= -1 )
then 784 if(
io_l )
write(
io_fid_log,*)
'*** Close restart file (URBAN) ***' 802 if ( restart_fid /= -1 )
then 804 call fileio_def_var( restart_fid, var_id(i_tr), var_name(i_tr), var_desc(i_tr), &
806 call fileio_def_var( restart_fid, var_id(i_tb), var_name(i_tb), var_desc(i_tb), &
808 call fileio_def_var( restart_fid, var_id(i_tg), var_name(i_tg), var_desc(i_tg), &
810 call fileio_def_var( restart_fid, var_id(i_tc), var_name(i_tc), var_desc(i_tc), &
812 call fileio_def_var( restart_fid, var_id(i_qc), var_name(i_qc), var_desc(i_qc), &
814 call fileio_def_var( restart_fid, var_id(i_uc), var_name(i_uc), var_desc(i_uc), &
817 call fileio_def_var( restart_fid, var_id(i_trl), var_name(i_trl), var_desc(i_trl), &
819 call fileio_def_var( restart_fid, var_id(i_tbl), var_name(i_tbl), var_desc(i_tbl), &
821 call fileio_def_var( restart_fid, var_id(i_tgl), var_name(i_tgl), var_desc(i_tgl), &
824 call fileio_def_var( restart_fid, var_id(i_rainr), var_name(i_rainr), var_desc(i_rainr), &
826 call fileio_def_var( restart_fid, var_id(i_rainb), var_name(i_rainb), var_desc(i_rainb), &
828 call fileio_def_var( restart_fid, var_id(i_raing), var_name(i_raing), var_desc(i_raing), &
830 call fileio_def_var( restart_fid, var_id(i_roff), var_name(i_roff), var_desc(i_roff), &
833 call fileio_def_var( restart_fid, var_id(i_sfc_temp), var_name(i_sfc_temp), var_desc(i_sfc_temp), &
835 call fileio_def_var( restart_fid, var_id(i_alb_lw), var_name(i_alb_lw), var_desc(i_alb_lw), &
837 call fileio_def_var( restart_fid, var_id(i_alb_sw), var_name(i_alb_sw), var_desc(i_alb_sw), &
840 call fileio_def_var( restart_fid, var_id(i_sflx_mw), var_name(i_sflx_mw), var_desc(i_sflx_mw), &
842 call fileio_def_var( restart_fid, var_id(i_sflx_mu), var_name(i_sflx_mu), var_desc(i_sflx_mu), &
844 call fileio_def_var( restart_fid, var_id(i_sflx_mv), var_name(i_sflx_mv), var_desc(i_sflx_mv), &
846 call fileio_def_var( restart_fid, var_id(i_sflx_sh), var_name(i_sflx_sh), var_desc(i_sflx_sh), &
848 call fileio_def_var( restart_fid, var_id(i_sflx_lh), var_name(i_sflx_lh), var_desc(i_sflx_lh), &
850 call fileio_def_var( restart_fid, var_id(i_sflx_gh), var_name(i_sflx_gh), var_desc(i_sflx_gh), &
852 call fileio_def_var( restart_fid, var_id(i_sflx_evap), var_name(i_sflx_evap), var_desc(i_sflx_evap), &
868 if ( restart_fid /= -1 )
then 872 call fileio_write_var( restart_fid, var_id(i_tr),
urban_tr(:,:), &
873 var_name(i_tr),
'XY', nohalo=.true. )
874 call fileio_write_var( restart_fid, var_id(i_tb),
urban_tb(:,:), &
875 var_name(i_tb),
'XY', nohalo=.true. )
876 call fileio_write_var( restart_fid, var_id(i_tg),
urban_tg(:,:), &
877 var_name(i_tg),
'XY', nohalo=.true. )
878 call fileio_write_var( restart_fid, var_id(i_tc),
urban_tc(:,:), &
879 var_name(i_tc),
'XY', nohalo=.true. )
880 call fileio_write_var( restart_fid, var_id(i_qc),
urban_qc(:,:), &
881 var_name(i_qc),
'XY', nohalo=.true. )
882 call fileio_write_var( restart_fid, var_id(i_uc),
urban_uc(:,:), &
883 var_name(i_uc),
'XY', nohalo=.true. )
885 call fileio_write_var( restart_fid, var_id(i_trl),
urban_trl(:,:,:), &
886 var_name(i_trl),
'Urban', nohalo=.true. )
887 call fileio_write_var( restart_fid, var_id(i_tbl),
urban_tbl(:,:,:), &
888 var_name(i_tbl),
'Urban', nohalo=.true. )
889 call fileio_write_var( restart_fid, var_id(i_tgl),
urban_tgl(:,:,:), &
890 var_name(i_tgl),
'Urban', nohalo=.true. )
892 call fileio_write_var( restart_fid, var_id(i_rainr),
urban_rainr(:,:), &
893 var_name(i_rainr),
'XY', nohalo=.true. )
894 call fileio_write_var( restart_fid, var_id(i_rainb),
urban_rainb(:,:), &
895 var_name(i_rainb),
'XY', nohalo=.true. )
896 call fileio_write_var( restart_fid, var_id(i_raing),
urban_raing(:,:), &
897 var_name(i_raing),
'XY', nohalo=.true. )
898 call fileio_write_var( restart_fid, var_id(i_roff),
urban_roff(:,:), &
899 var_name(i_roff),
'XY', nohalo=.true. )
901 call fileio_write_var( restart_fid, var_id(i_sfc_temp),
urban_sfc_temp(:,:), &
902 var_name(i_sfc_temp),
'XY', nohalo=.true. )
903 call fileio_write_var( restart_fid, var_id(i_alb_lw),
urban_sfc_albedo(:,:,i_lw), &
904 var_name(i_alb_lw),
'XY', nohalo=.true. )
905 call fileio_write_var( restart_fid, var_id(i_alb_sw),
urban_sfc_albedo(:,:,i_sw), &
906 var_name(i_alb_sw),
'XY', nohalo=.true. )
908 call fileio_write_var( restart_fid, var_id(i_sflx_mw),
urban_sflx_mw(:,:), &
909 var_name(i_sflx_mw),
'XY', nohalo=.true. )
910 call fileio_write_var( restart_fid, var_id(i_sflx_mu),
urban_sflx_mu(:,:), &
911 var_name(i_sflx_mu),
'XY', nohalo=.true. )
912 call fileio_write_var( restart_fid, var_id(i_sflx_mv),
urban_sflx_mv(:,:), &
913 var_name(i_sflx_mv),
'XY', nohalo=.true. )
914 call fileio_write_var( restart_fid, var_id(i_sflx_sh),
urban_sflx_sh(:,:), &
915 var_name(i_sflx_sh),
'XY', nohalo=.true. )
916 call fileio_write_var( restart_fid, var_id(i_sflx_lh),
urban_sflx_lh(:,:), &
917 var_name(i_sflx_lh),
'XY', nohalo=.true. )
918 call fileio_write_var( restart_fid, var_id(i_sflx_gh),
urban_sflx_gh(:,:), &
919 var_name(i_sflx_gh),
'XY', nohalo=.true. )
920 call fileio_write_var( restart_fid, var_id(i_sflx_evap),
urban_sflx_evap(:,:), &
921 var_name(i_sflx_evap),
'XY', nohalo=.true. )
real(rp), dimension(:,:), allocatable, public urban_qc_t
integer, public is
start point of inner domain: x, local
logical, public statistics_checktotal
calc&report variable totals to logfile?
integer, public je
end point of inner domain: y, local
integer, public const_i_lw
long-wave radiation index
subroutine, public prc_mpistop
Abort MPI.
real(rp), dimension(:,:), allocatable, public urban_qc
real(rp), dimension(:,:), allocatable, public urban_rainr_t
real(rp), dimension(:,:,:), allocatable, public urban_trl_t
real(rp), dimension(:,:), allocatable, public urban_tg_t
real(rp), dimension(:,:), allocatable, public urban_u10
subroutine, public urban_vars_restart_create
Create urban restart file.
logical, public io_l
output log or not? (this process)
real(rp), dimension(:,:), allocatable, public urban_v10
real(rp), dimension(:,:), allocatable, public urban_raing_t
real(rp), dimension(:,:), allocatable, public urban_z0e
real(rp), dimension(:,:), allocatable, public urban_sflx_mu
subroutine, public fileio_flush(fid)
Flush all pending requests to a netCDF file (PnetCDF only)
subroutine, public urban_vars_restart_enddef
Exit netCDF define mode.
real(rp), dimension(:,:), allocatable, public urban_sflx_evap
real(rp), dimension(:,:), allocatable, public urban_z0m
subroutine, public urban_vars_total
Budget monitor for urban.
subroutine, public urban_vars_restart_read
Read urban restart.
real(rp), dimension(:,:), allocatable, public urban_tb_t
real(rp), dimension(:,:), allocatable, public urban_t2
subroutine, public urban_vars_history
History output set for urban variables.
real(rp), dimension(:,:), allocatable, public urban_tb
logical, public urban_restart_out_postfix_timelabel
Add timelabel to the basename of output file?
subroutine, public urban_vars_external_in(URBAN_TC_in, URBAN_QC_in, URBAN_UC_in, URBAN_SFC_TEMP_in, URBAN_SFC_albedo_in)
Input from External I/O.
real(rp), dimension(:,:), allocatable, public urban_raing
real(rp), dimension(:,:), allocatable, public urban_uc
real(rp), dimension(:,:), allocatable, public atmos_sflx_prec
real(rp), public const_undef
character(len=h_short), public urban_restart_out_dtype
REAL4 or REAL8.
subroutine, public urban_vars_restart_write
Write urban restart.
subroutine, public urban_vars_restart_close
Close restart file.
real(rp), dimension(:,:), allocatable, public atmos_pbl
logical, public io_nml
output log or not? (for namelist, this process)
real(rp), dimension(:,:), allocatable, public urban_sflx_sh
character(len=h_long), public urban_restart_out_basename
Basename of the output file.
real(rp), dimension(:,:), allocatable, public urban_tr
integer, public ia
of whole cells: x, local, with HALO
real(rp), dimension(:,:,:), allocatable, public urban_tgl
subroutine, public time_gettimelabel(timelabel)
generate time label
real(rp), dimension(:,:), allocatable, public atmos_qv
real(rp), dimension(:,:), allocatable, public atmos_sfc_pres
real(rp), dimension(:,:), allocatable, public atmos_cossza
real(rp), dimension(:,:), allocatable, public urban_uc_t
real(rp), dimension(:,:), allocatable, public urban_z0h
subroutine, public fileio_create(fid, basename, title, datatype, date, subsec, append, nozcoord)
Create/open a netCDF file.
real(rp), dimension(:,:,:), allocatable, public atmos_sflx_sw
real(rp), dimension(:,:), allocatable, public atmos_v
integer, public js
start point of inner domain: y, local
real(rp), dimension(:,:), allocatable, public urban_roff
real(rp), dimension(:,:), allocatable, public atmos_dens
subroutine, public urban_vars_setup
Setup.
real(rp), dimension(:,:,:), allocatable, public urban_sfc_albedo
real(rp), dimension(:,:), allocatable, public urban_sflx_lh
real(rp), dimension(:,:), allocatable, public urban_tc
real(rp), dimension(:,:), allocatable, public atmos_pres
logical, public urban_restart_output
Output restart file?
subroutine, public fileio_enddef(fid)
Exit netCDF file define mode.
real(rp), dimension(:,:), allocatable, public urban_rainr
integer, public ie
end point of inner domain: x, local
subroutine, public urban_vars_restart_open
Open urban restart file for read.
logical, public urban_restart_in_postfix_timelabel
Add timelabel to the basename of input file?
logical, public io_aggregate
do parallel I/O through PnetCDF
real(rp), dimension(:,:), allocatable, public atmos_temp
subroutine, public fileio_open(fid, basename)
open a netCDF file for read
integer, public const_i_sw
short-wave radiation index
subroutine, public fileio_def_var(fid, vid, varname, desc, unit, axistype, datatype, timeintv, nsteps)
Define a variable to file.
real(rp), dimension(:,:), allocatable, public urban_q2
real(rp), dimension(:,:), allocatable, public urban_tg
real(rp), dimension(:,:), allocatable, public atmos_u
subroutine, public urban_vars_restart_def_var
Define urban variables in restart file.
real(rp), dimension(:,:), allocatable, public urban_sfc_temp
subroutine, public fileio_close(fid)
Close a netCDF file.
real(rp), dimension(:,:,:), allocatable, public urban_trl
integer, public io_fid_conf
Config file ID.
real(rp), dimension(:,:), allocatable, public urban_rainb_t
real(rp), dimension(:,:,:), allocatable, public atmos_sflx_lw
integer, public io_fid_log
Log file ID.
real(rp), dimension(:,:,:), allocatable, public urban_tbl
real(rp), dimension(:,:), allocatable, public urban_tr_t
real(rp), dimension(:,:,:), allocatable, public urban_tgl_t
real(rp), dimension(:,:), allocatable, public urban_sflx_gh
real(rp), dimension(:,:), allocatable, public urban_sflx_mv
real(rp), dimension(:,:), allocatable, public atmos_w
integer, public io_fid_nml
Log file ID (only for output namelist)
real(rp), dimension(:,:), allocatable, public urban_rainb
real(rp), dimension(:,:), allocatable, public urban_tc_t
character(len=h_long), public urban_restart_in_basename
Basename of the input file.
real(rp), dimension(:,:), allocatable, public urban_roff_t
real(rp), dimension(:,:,:), allocatable, public urban_tbl_t
real(rp), dimension(:,:), allocatable, public urban_sflx_mw
character(len=h_mid), public urban_restart_out_title
Title of the output file.
integer, public ja
of whole cells: y, local, with HALO