48 USE resist,
ONLY:
g1,
g2,
g3,
g4,
g5,
g6,
th,
tl,
s1,
s2,
kmax,
gsmodel
80 REAL(KIND(1D0)) :: FCskip = -999
84 CHARACTER(len=20) :: grid_txt
85 CHARACTER(len=4) :: year_txt
86 CHARACTER(len=12) :: SsG_YYYY
88 CHARACTER(len=4) :: iy_text
89 CHARACTER(len=3) :: id_text
90 CHARACTER(len=2) :: it_text, imin_text
408 CALL errorhint(67,
'ESTM Paved classes do not sum to 1 (but no Paved surface present).', &
420 CALL errorhint(67,
'ESTM Bldgs classes do not sum to 1 (but no Bldgs surface present).', &
656 IF (
zroof(i) <= 0)
THEN
662 IF (
zwall(i) <= 0)
THEN
668 IF (
zibld(i) <= 0)
THEN
933 DO iv = 1, (
nsurf - 1)
1115 IF (ir == 1 .AND. imb == 1)
THEN
1122 WRITE (ssg_yyyy,
'(A12)') trim(
filecode)//trim(adjustl(grid_txt))//
'_'//trim(adjustl(year_txt))
1125 WRITE (12, *)
'----- '//trim(adjustl(ssg_yyyy))//
' Surface characteristics'//
' -----'
1127 WRITE (12,
'(8a10,a16)')
'Paved',
'Bldgs',
'EveTr',
'DecTr',
'Grass',
'BSoil',
'Water',
'Snow',
' SurfType'
1128 WRITE (12, 120) (
sfr_surf(iv), iv=1,
nsurf), fcskip,
' SurfFr'
1137 WRITE (12, 120) fcskip, fcskip, (
baset(iv), iv=1,
nvegsurf), fcskip, fcskip, fcskip,
' BaseT'
1138 WRITE (12, 120) fcskip, fcskip, (
basete(iv), iv=1,
nvegsurf), fcskip, fcskip, fcskip,
' BaseTe'
1146 WRITE (12, 120) fcskip, fcskip, (
gddfull(iv), iv=1,
nvegsurf), fcskip, fcskip, fcskip,
' GDDFull'
1147 WRITE (12, 120) fcskip, fcskip, (
sddfull(iv), iv=1,
nvegsurf), fcskip, fcskip, fcskip,
' SDDFull'
1148 WRITE (12, 120) fcskip, fcskip, (
laimin(iv), iv=1,
nvegsurf), fcskip, fcskip, fcskip,
' LAIMin'
1149 WRITE (12, 120) fcskip, fcskip, (
laimax(iv), iv=1,
nvegsurf), fcskip, fcskip, fcskip,
' LAIMax'
1150 WRITE (12, 120) fcskip, fcskip, fcskip,
pormin_dec, fcskip, fcskip, fcskip, fcskip,
' PorosityMin'
1151 WRITE (12, 120) fcskip, fcskip, fcskip,
pormax_dec, fcskip, fcskip, fcskip, fcskip,
' PorosityMax'
1152 WRITE (12,
'(2f10.3,3i10, 3f10.3,a16)') fcskip, fcskip,
laitype(1:
nvegsurf), fcskip, fcskip, fcskip,
' LAIEq'
1153 WRITE (12,
'(2f10.3,3f10.5,3f10.3,a16)') fcskip, fcskip,
laipower(1, 1:
nvegsurf), fcskip, fcskip, fcskip,
' LAI_LeafGP1'
1154 WRITE (12,
'(2f10.3,3f10.5,3f10.3,a16)') fcskip, fcskip,
laipower(2, 1:
nvegsurf), fcskip, fcskip, fcskip,
' LAI_LeafGP2'
1155 WRITE (12,
'(2f10.3,3f10.5,3f10.3,a16)') fcskip, fcskip,
laipower(3, 1:
nvegsurf), fcskip, fcskip, fcskip,
' LAI_LeafOP1'
1156 WRITE (12,
'(2f10.3,3f10.5,3f10.3,a16)') fcskip, fcskip,
laipower(4, 1:
nvegsurf), fcskip, fcskip, fcskip,
' LAI_LeafOP2'
1158 WRITE (12, 120) (
soildepth(iv), iv=1, (
nsurf - 1)), fcskip, fcskip,
' SoilDepth'
1160 WRITE (12,
'(6f10.5,2f10.3,a16)') (
sathydraulicconduct(iv), iv=1, (
nsurf - 1)), fcskip, fcskip,
' SatHydraulicConduct'
1162 WRITE (12, 120) (
snowpacklimit(iv), iv=1, (
nsurf - 1)), fcskip, fcskip,
' SnowLimPatch'
1179 WRITE (12, *)
'----- '//trim(adjustl(ssg_yyyy))//
' Snow parameters'//
' -----'
1180 WRITE (12,
'(a12,11a10)')
'Grid',
'RadMeltF',
'TempMeltF',
'tau_a',
'tau_f',
'PLimAlb',
'SDensMin',
'SDensMax', &
1181 'tau_r',
'CRWMin',
'CRWMax',
'PLimSnow'
1182 WRITE (12,
'(a12,11f10.4)') ssg_yyyy,
radmeltfact,
tempmeltfact,
tau_a,
tau_f,
preciplimitalb,
snowdensmin,
snowdensmax, &
1185 WRITE (12, *)
'----- '//trim(adjustl(ssg_yyyy))//
' Conductance parameters'//
' -----'
1186 WRITE (12,
'(a12,12a10)')
'Grid',
'G1',
'G2',
'G3',
'G4',
'G5',
'G6',
'TH',
'TL',
'S1',
'S2',
'Kmax',
'gsModel'
1187 WRITE (12,
'(a12,11f10.3,i3)') ssg_yyyy,
g1,
g2,
g3,
g4,
g5,
g6,
th,
tl,
s1,
s2,
kmax,
gsmodel
1189 WRITE (12, *)
'----- '//trim(adjustl(ssg_yyyy))//
' Energy-use parameters'//
' -----'
1190 WRITE (12,
'(a12,11a10)')
'Grid',
'PopDensDaytime',
'BaseT_HC',
'QF_A_WD',
'QF_A_WE',
'QF_B_WD',
'QF_B_WE',
'QF_C_WD', &
1191 'QF_C_WE',
'AH_Min',
'AH_Slope',
'BaseT_Heating'
1195 WRITE (12, *)
'----- '//trim(adjustl(ssg_yyyy))//
' Water-use parameters'//
' -----'
1196 WRITE (12,
'(a12,10a10)')
'Grid',
'IeStart',
'IeEnd',
'IntWatUse',
'Faut', &
1197 'Ie_a1',
'Ie_a2',
'Ie_a3',
'Ie_m1',
'Ie_m2',
'Ie_m3'
1201 WRITE (12, *)
'----- '//trim(adjustl(ssg_yyyy))//
' Weekly profiles'//
' -----'
1202 WRITE (12,
'(a12,7a10, a16)')
'Grid',
'1_Sun',
'2_Mon',
'3_Tue',
'4_Wed',
'5_Thu',
'6_Fri',
'7_Sat',
' DayOfWeek'
1203 WRITE (12,
'(a12,7f10.3,a16)') ssg_yyyy,
daywat(1:7),
' Irr allowed'
1204 WRITE (12,
'(a12,7f10.3,a16)') ssg_yyyy,
daywatper(1:7),
' Frac properties'
1206 WRITE (12, *)
'----- '//trim(adjustl(ssg_yyyy))//
' Hourly profiles'//
' -----'
1207 WRITE (12,
'(a12,24i10,a20)')
'Grid', (iv, iv=0, 23),
'HourOfDay'
1208 WRITE (12, 121) ssg_yyyy,
ahprof_24hr(0:23, 1),
' Anthrop heat WD'
1209 WRITE (12, 121) ssg_yyyy,
ahprof_24hr(0:23, 2),
' Anthrop heat WE'
1210 WRITE (12, 121) ssg_yyyy,
wuprofm_24hr(0:23, 1),
' Manual water use WD'
1211 WRITE (12, 121) ssg_yyyy,
wuprofm_24hr(0:23, 2),
' Manual water use WE'
1212 WRITE (12, 121) ssg_yyyy,
wuprofa_24hr(0:23, 1),
' Auto. water use WD'
1213 WRITE (12, 121) ssg_yyyy,
wuprofa_24hr(0:23, 2),
' Auto. water use WE'
1214 WRITE (12, 121) ssg_yyyy,
snowprof_24hr(0:23, 1),
' Snow clearing WD'
1215 WRITE (12, 121) ssg_yyyy,
snowprof_24hr(0:23, 2),
' Snow clearing WE'
1217 WRITE (12, *)
'----- '//trim(adjustl(ssg_yyyy))//
' Within-grid water distribution'//
' -----'
1218 WRITE (12,
'(9a10)')
'ToPaved',
'ToBldgs',
'ToEveTr',
'ToDecTr',
'ToGrass',
'ToBSoil',
'ToWater',
'ToROorSS'
1220 DO iv = 1, (
nsurf - 1)
1224 WRITE (12, *)
'----- '//trim(adjustl(ssg_yyyy))//
' Other parameters'//
' -----'
1225 WRITE (12,
'(a12,7a10)')
'Grid',
'FlowChange',
'ROToWater',
'PipeCap', &
1226 'DrRate',
'Cover',
'MaxRes', &
1232 WRITE (12, *)
'----- '//trim(adjustl(ssg_yyyy))//
' Site parameters'//
' -----'
1233 WRITE (12,
'(a12,9a10)') &
1234 'Grid',
'lat',
'lon',
'tz',
'alt',
'SurfA_ha',
'z',
'PopDensNighttime',
'z0_input',
'zd_input',
'StartDLS',
'EndDLS'
1235 WRITE (12,
'(a12,4f10.4,f10.2,4f10.4,2i10)') &
1236 ssg_yyyy,
lat,
lng*(-1.0),
timezone,
alt,
surfacearea_ha,
z,
popdensnighttime,
z0m_in,
zdm_in, &
1253 IF (sum(
qf_a) == 0 .AND. sum(
qf_b) == 0 .AND. sum(
qf_c) == 0)
THEN
1267 'FAI_Bldgs value provided is very small (RoughLenMomMethod=3)', &
1270 'FAI_EveTr/DecTr value provided is very small (RoughLenMomMethod=3)', &
1339 dectime = real(
id - 1, kind(1d0)) + real(
it, kind(1d0))/24 + real(
imin, kind(1d0))/(60*24)
1341 WRITE (iy_text,
'(i4)')
iy
1342 WRITE (id_text,
'(i3)')
id
1343 WRITE (it_text,
'(i2)')
it
1344 WRITE (imin_text,
'(i2)')
imin
1393 IF (ir == 1 .AND. imb == 1)
THEN
1400 IF (ir == 1 .AND. imb == 1)
THEN
1404 WRITE (12, *)
'&state_init'
1406 WRITE (12, *)
'ah_min=',
ah_min
1410 WRITE (12, *)
'alb=',
alb
1419 WRITE (12, *)
'alt=',
alt
1420 WRITE (12, *)
'avkdn=',
avkdn
1421 WRITE (12, *)
'avrh=',
avrh
1422 WRITE (12, *)
'avu1=',
avu1
1423 WRITE (12, *)
'baset=',
baset
1424 WRITE (12, *)
'basete=',
basete
1425 WRITE (12, *)
'BaseT_HC=',
baset_hc
1428 WRITE (12, *)
'bldgh=',
bldgh
1431 WRITE (12, *)
'chanohm=',
chanohm
1433 WRITE (12, *)
'cpanohm=',
cpanohm
1434 WRITE (12, *)
'crwmax=',
crwmax
1435 WRITE (12, *)
'crwmin=',
crwmin
1436 WRITE (12, *)
'daywat=',
daywat
1438 WRITE (12, *)
'dectreeh=',
dectreeh
1439 WRITE (12, *)
'diagnose=',
diagnose
1440 WRITE (12, *)
'diagqn=',
diagqn
1441 WRITE (12, *)
'diagqs=',
diagqs
1442 WRITE (12, *)
'drainrt=',
drainrt
1444 WRITE (12, *)
'dqndt=',
dqndt
1445 WRITE (12, *)
'qn_av=',
qn_av
1446 WRITE (12, *)
'dqnsdt=',
dqnsdt
1447 WRITE (12, *)
'qn_s_av=',
qn_s_av
1449 WRITE (12, *)
'emis=',
emis
1452 WRITE (12, *)
'enddls=',
enddls
1453 WRITE (12, *)
'evetreeh=',
evetreeh
1454 WRITE (12, *)
'faibldg=',
faibldg
1457 WRITE (12, *)
'faut=',
faut
1459 WRITE (12, *)
'fcld_obs=',
fcld_obs
1463 WRITE (12, *)
'g1=',
g1
1464 WRITE (12, *)
'g2=',
g2
1465 WRITE (12, *)
'g3=',
g3
1466 WRITE (12, *)
'g4=',
g4
1467 WRITE (12, *)
'g5=',
g5
1468 WRITE (12, *)
'g6=',
g6
1469 WRITE (12, *)
'gdd_id=',
gdd_id
1470 WRITE (12, *)
'gddfull=',
gddfull
1471 WRITE (12, *)
'gridiv=', gridiv
1472 WRITE (12, *)
'gsmodel=',
gsmodel
1473 WRITE (12, *)
'hdd_id=',
hdd_id
1475 WRITE (12, *)
'icefrac=',
icefrac
1476 WRITE (12, *)
'id=',
id
1477 WRITE (12, *)
'ie_a=',
ie_a
1478 WRITE (12, *)
'ie_end=',
ie_end
1479 WRITE (12, *)
'ie_m=',
ie_m
1480 WRITE (12, *)
'ie_start=',
ie_start
1481 WRITE (12, *)
'imin=',
imin
1486 WRITE (12, *)
'isec=',
isec
1487 WRITE (12, *)
'it=',
it
1489 WRITE (12, *)
'iy=',
iy
1490 WRITE (12, *)
'kkanohm=',
kkanohm
1491 WRITE (12, *)
'kmax=',
kmax
1492 WRITE (12, *)
'lai_id=',
lai_id
1494 WRITE (12, *)
'laimax=',
laimax
1495 WRITE (12, *)
'laimin=',
laimin
1496 WRITE (12, *)
'lai_obs=',
lai_obs
1497 WRITE (12, *)
'laipower=',
laipower
1498 WRITE (12, *)
'laitype=',
laitype
1499 WRITE (12, *)
'lat=',
lat
1502 WRITE (12, *)
'lng=',
lng
1514 WRITE (12, *)
'ohm_coef=',
ohm_coef
1515 WRITE (12, *)
'ohmincqf=',
ohmincqf
1524 WRITE (12, *)
'precip=',
precip
1528 WRITE (12, *)
'qf0_beu=',
qf0_beu
1529 WRITE (12, *)
'qf_a=',
qf_a
1530 WRITE (12, *)
'qf_b=',
qf_b
1531 WRITE (12, *)
'qf_c=',
qf_c
1532 WRITE (12, *)
'qn1_obs=',
qn1_obs
1533 WRITE (12, *)
'qh_obs=',
qh_obs
1534 WRITE (12, *)
'qs_obs=',
qs_obs
1535 WRITE (12, *)
'qf_obs=',
qf_obs
1539 WRITE (12, *)
'resp_a=',
resp_a
1540 WRITE (12, *)
'resp_b=',
resp_b
1544 WRITE (12, *)
's1=',
s1
1545 WRITE (12, *)
's2=',
s2
1547 WRITE (12, *)
'sddfull=',
sddfull
1548 WRITE (12, *)
'sdd_id=',
sdd_id
1549 WRITE (12, *)
'sfr_surf=',
sfr_surf
1551 WRITE (12, *)
'snowalb=',
snowalb
1555 WRITE (12, *)
'snowdens=',
snowdens
1559 WRITE (12, *)
'snowfrac=',
snowfrac
1563 WRITE (12, *)
'snowpack=',
snowpack
1565 WRITE (12, *)
'SnowUse=',
snowuse
1570 WRITE (12, *)
'startdls=',
startdls
1576 WRITE (12, *)
'tair_av=',
tair_av
1577 WRITE (12, *)
'tau_a=',
tau_a
1578 WRITE (12, *)
'tau_f=',
tau_f
1579 WRITE (12, *)
'tau_r=',
tau_r
1580 WRITE (12, *)
'tmax_id=',
tmax_id
1581 WRITE (12, *)
'tmin_id=',
tmin_id
1584 WRITE (12, *)
'temp_c=',
temp_c
1586 WRITE (12, *)
'th=',
th
1588 WRITE (12, *)
'timezone=',
timezone
1589 WRITE (12, *)
'tl=',
tl
1594 WRITE (12, *)
'tstep=',
tstep
1596 WRITE (12, *)
'veg_type=',
veg_type
1600 WRITE (12, *)
'wu_m3=',
wu_m3
1601 WRITE (12, *)
'wuday_id=',
wuday_id
1609 WRITE (12, *)
'xsmd=',
xsmd
1610 WRITE (12, *)
'z=',
z
1611 WRITE (12, *)
'z0m_in=',
z0m_in
1612 WRITE (12, *)
'zdm_in=',
zdm_in
1625120
FORMAT(8f10.3, a16)
1626121
FORMAT(a12, 24f10.4, a20)
1656 INTEGER :: Gridiv, &
1824 IF (ir == irmax)
THEN
integer c_internal_rhocp5
real(kind(1d0)), dimension(maxnumberofgrids) decidcap_id_grids
integer c_internal_thick2
real(kind(1d0)), dimension(12, maxnumberofgrids) hdd_id_grids
integer, dimension(5) c_wall_thick4_bldgs
real(kind(1d0)), dimension(5, nsurfincsnow) zsurf_suewssurfs
integer, dimension(nvegsurf) c_gddfull
real(kind(1d0)), dimension(:), allocatable statelimit_wall
real(kind(1d0)) pormax_dec
integer, dimension(5) c_internal_rhocp4_bldgs
real(kind(1d0)), dimension(:), allocatable dqndt_grids
integer, parameter bldgsurf
real(kind(1d0)), dimension(:, :), allocatable modeldailystate
real(kind(1d0)), dimension(nsurf) snowpack
integer, dimension(nsurfincsnow) c_surf_thick5
integer, dimension(nsurf) c_kkanohm
integer, dimension(5) c_surf_k3_bldgs
real(kind(1d0)), dimension(:, :), allocatable tsfc_wall_grids
real(kind(1d0)), dimension(:, :), allocatable soilstorecap_wall_grids
integer, dimension(5) c_wall_thick1_bldgs
real(kind(1d0)), dimension(:, :), allocatable dz_wall
real(kind(1d0)), dimension(nsurf) chanohm
integer, dimension(nsurfincsnow) c_surf_rhocp2
integer, dimension(24) c_hrproftraffwd
real(kind(1d0)), dimension(nsurf) soilstorecap_surf
real(kind(1d0)), dimension(0:23, 2) humactivity_24hr
integer, dimension(nsurf) c_cpanohm
real(kind(1d0)), dimension(:, :), allocatable ts5mindata
integer, dimension(5) c_ch_iwall_bldgs
integer, dimension(5) c_internal_rhocp1_bldgs
integer, dimension(24) c_hrprofsnowcwe
real(kind(1d0)), dimension(:, :), allocatable soilstore_wall_grids
integer, dimension(5) c_wall_k1_bldgs
integer, dimension(nsurfincsnow) c_ohmthresh_sw
real(kind(1d0)), dimension(:, :), allocatable tin_surf_grids
integer, dimension(nsurfincsnow) c_surf_k1
integer, parameter ncolsestmdata
real(kind(1d0)), dimension(1) waterdepth
integer, parameter conifsurf
integer, dimension(3) c_ie_a
integer c_tcriticcooling_we
integer, dimension(5) c_internal_thick3_bldgs
integer, dimension(nsurfincsnow) c_surf_thick4
real(kind(1d0)) albmin_grass
real(kind(1d0)), dimension(:, :, :), allocatable cp_wall_grids
integer, dimension(5) c_internal_k3_bldgs
real(kind(1d0)), dimension(:, :), allocatable emis_wall_grids
integer c_internal_rhocp2
integer c_internal_rhocp4
integer, dimension(3) c_surf_rhocp2_paved
real(kind(1d0)), dimension(nsurf) statelimit_surf
integer, dimension(nvegsurf) c_sddfull
integer, dimension(nvegsurf) c_beta_bioco2
real(kind(1d0)), dimension(:, :), allocatable metforcingdata_grid
integer, dimension(nsurf) c_wgtorunoff
integer, dimension(nsurf) c_wgtograss
integer, dimension(nsurfincsnow) c_a2_swet
real(kind(1d0)), dimension(nsurf) state_surf
integer, dimension(5) c_surf_k1_bldgs
real(kind(1d0)), dimension(nsurf) soildepth
integer, dimension(nsurf) c_wgtobldgs
real(kind(1d0)), dimension(nsurf) cpanohm
real(kind(1d0)), dimension(:), allocatable soilstorecap_wall
integer, dimension(nsurfincsnow) c_a1_wwet
real(kind(1d0)) porosity_id
real(kind(1d0)), dimension(nvegsurf) basete
real(kind(1d0)), dimension(:), allocatable tsfc_roof
integer, dimension(nvegsurf) c_gsmax
integer, dimension(nsurf) c_soilstcap
integer, dimension(nsurf) c_soildens
integer, dimension(nsurfincsnow) c_a1_swet
real(kind(1d0)), dimension(:), allocatable alb_roof
real(kind(1d0)), dimension(:, :, :), allocatable temp_surf_grids
integer, dimension(nsurf) c_soildepth
integer, dimension(5) c_surf_thick3_bldgs
integer, dimension(nsurf) c_wgtoevetr
integer, dimension(5) c_surf_rhocp2_bldgs
integer c_ahslopecooling_we
real(kind(1d0)), dimension(:), allocatable state_wall
real(kind(1d0)), dimension(0:23, 2) traffprof_24hr
integer, dimension(24) c_hrprofenusewe
real(kind(1d0)), dimension(nsurf+1) ohm_threshwd
real(kind(1d0)), dimension(0:23, 2) ahprof_24hr
integer, dimension(7) c_daywatper
real(kind(1d0)), dimension(:, :), allocatable tin_roof_grids
integer, dimension(5) c_surf_rhocp5_bldgs
real(kind(1d0)), dimension(:, :), allocatable building_frac_grids
integer, dimension(5) c_ch_ibld_bldgs
real(kind(1d0)), dimension(:, :, :), allocatable temp_wall_grids
integer, dimension(5) c_surf_rhocp4_bldgs
integer, dimension(5) c_internal_thick1_bldgs
real(kind(1d0)), dimension(nvegsurf) beta_enh_bioco2
integer, dimension(24) c_hrprofwuautowd
integer, dimension(nvegsurf) c_laimax
integer, dimension(nsurfincsnow) c_a2_sdry
integer, dimension(nsurf) c_statelimit
integer, dimension(3) c_ie_m
real(kind(1d0)), dimension(:, :), allocatable tin_wall_grids
integer c_tcriticheating_we
real(kind(1d0)), dimension(nsurf+1, 4, 3) ohm_coef
integer, dimension(nvegsurf) c_alpha_bioco2
real(kind(1d0)), dimension(:, :), allocatable temp_roof
integer, dimension(3) c_surf_k4_paved
real(kind(1d0)), dimension(nvegsurf) min_res_bioco2
real(kind(1d0)), dimension(:), allocatable wetthresh_wall
real(kind(1d0)), dimension(nvegsurf) lai_id
real(kind(1d0)), dimension(:), allocatable state_roof
integer, dimension(nsurf) c_drcoef2
real(kind(1d0)), dimension(:), allocatable dqnsdt_grids
integer, dimension(5) c_ch_iroof_bldgs
integer, dimension(nsurf) c_ksat
real(kind(1d0)), dimension(nvegsurf) baset
real(kind(1d0)), dimension(:, :), allocatable tsfc_roof_grids
real(kind(1d0)), dimension(:, :), allocatable dz_surf
integer c_ahslopecooling_wd
integer, dimension(nsurf) c_obssmmax
integer, dimension(nvegsurf) c_leafgp2
real(kind(1d0)), dimension(nvegsurf) resp_b
real(kind(1d0)) narp_long
integer, dimension(nsurf) c_chanohm
integer, dimension(5) c_surf_thick2_bldgs
real(kind(1d0)), dimension(nsurf) sfr_surf
real(kind(1d0)), dimension(maxnumberofgrids) albevetr_id_grids
real(kind(1d0)), dimension(:), allocatable qn_s_av_grids
integer, dimension(5) c_internal_rhocp2_bldgs
integer, dimension(:), allocatable nlayer_grids
real(kind(1d0)), dimension(4, nvegsurf) laipower
integer, dimension(5) c_wall_k3_bldgs
real(kind(1d0)), dimension(:, :), allocatable alb_wall_grids
real(kind(1d0)), dimension(nvegsurf) resp_a
real(kind(1d0)), dimension(5, nsurfincsnow) rsurf_suewssurfs
integer, dimension(5) c_wall_k5_bldgs
integer, dimension(nsurf) c_snowlimpat
integer, dimension(nsurfincsnow) c_ohmthresh_wd
real(kind(1d0)), dimension(nvegsurf) laimax
integer, dimension(nsurfincsnow) c_a3_wwet
real(kind(1d0)), dimension(0:23, 2) wuprofm_24hr
integer, dimension(5) c_surf_rhocp1_bldgs
real(kind(1d0)), dimension(:, :, :), allocatable cp_surf_grids
real(kind(1d0)), dimension(:), allocatable sfr_roof
integer, dimension(3) c_surf_k5_paved
integer, dimension(nsurf) c_stormin
integer c_tcriticheating_wd
integer, dimension(7) c_daywat
real(kind(1d0)), dimension(nsurf) emis
real(kind(1d0)), dimension(:, :, :), allocatable wall_specular_frac_grids
integer, dimension(5) c_wall_rhocp1_bldgs
real(kind(1d0)), dimension(:, :), allocatable alb_roof_grids
real(kind(1d0)), dimension(:, :, :), allocatable k_wall_grids
integer c_internal_thick3
real(kind(1d0)), dimension(nvegsurf, maxnumberofgrids) sdd_id_grids
real(kind(1d0)), dimension(nvegsurf) gdd_id
integer, dimension(24) c_hrprofsnowcwd
real(kind(1d0)), dimension(maxnumberofgrids) tmin_id_grids
real(kind(1d0)), dimension(nvegsurf, maxnumberofgrids) lai_id_grids
real(kind(1d0)), dimension(:, :), allocatable emis_roof_grids
integer, dimension(5) c_wall_rhocp3_bldgs
real(kind(1d0)) capmin_dec
integer, dimension(nsurfincsnow) c_a3_sdry
real(kind(1d0)), dimension(maxnumberofgrids) tmax_id_grids
integer c_ahslopeheating_we
real(kind(1d0)) decidcap_id
real(kind(1d0)), dimension(:), allocatable building_scale
real(kind(1d0)), dimension(:, :, :), allocatable temp_roof_grids
integer, dimension(5) c_surf_k2_bldgs
integer c_tcriticcooling_wd
integer, dimension(nsurfincsnow) c_surf_k5
integer c_internal_thick5
real(kind(1d0)), dimension(:), allocatable soilstore_roof
integer, dimension(nsurf) c_wgtowater
real(kind(1d0)), dimension(:, :, :), allocatable cp_roof_grids
real(kind(1d0)), dimension(nsurf) soilstore_surf
real(kind(1d0)), dimension(:, :), allocatable tsfc_surf_grids
integer, dimension(24) c_hrprofpopwe
real(kind(1d0)), dimension(maxnumberofgrids) lenday_id_grids
integer, dimension(nsurfincsnow) c_surf_thick3
integer, dimension(nsurf) cmod_snowfrac
real(kind(1d0)), dimension(:, :), allocatable sfr_wall_grids
integer, dimension(nvegsurf) laitype
integer, dimension(nsurf) cmds_snowdens
real(kind(1d0)), dimension(:, :), allocatable state_wall_grids
real(kind(1d0)), dimension(:, :), allocatable building_scale_grids
real(kind(1d0)), dimension(:, :, :), allocatable dz_surf_grids
integer, dimension(3) c_surf_k1_paved
real(kind(1d0)), dimension(:), allocatable height
integer, dimension(nsurf) cmod_snowwaterstate
integer, dimension(5) c_surf_k5_bldgs
real(kind(1d0)), dimension(5, nsurfincsnow) ksurf_suewssurfs
real(kind(1d0)), dimension(:, :), allocatable cp_wall
integer, dimension(nsurf) c_wgtosoilstore
real(kind(1d0)), dimension(maxnumberofgrids) albgrass_id_grids
integer, dimension(nvegsurf) c_laimin
integer, dimension(3) c_surf_rhocp4_paved
real(kind(1d0)), dimension(nsurf) sathydraulicconduct
real(kind(1d0)) lenday_id
real(kind(1d0)), dimension(6, nsurf) storedrainprm
real(kind(1d0)), dimension(:, :), allocatable soilstore_roof_grids
integer, dimension(nvegsurf) c_alpha_enh_bioco2
real(kind(1d0)), dimension(nsurf) kkanohm
real(kind(1d0)), dimension(nvegsurf) theta_bioco2
integer, dimension(24) c_hrprofpopwd
real(kind(1d0)), dimension(nsurf+1, nsurf - 1) waterdist
real(kind(1d0)), dimension(:), allocatable emis_roof
real(kind(1d0)), dimension(:), allocatable tsfc_surf
integer, dimension(nsurfincsnow) c_surf_thick1
real(kind(1d0)) narp_emis_snow
integer, dimension(nsurf) c_wgtopaved
integer, dimension(5) c_internal_thick4_bldgs
real(kind(1d0)), dimension(:, :), allocatable cp_surf
integer, dimension(nsurfincsnow) c_a3_wdry
integer, dimension(24) c_hrprofwumanuwe
real(kind(1d0)), dimension(nsurf+1) ohm_threshsw
integer, dimension(nvegsurf) c_min_res_bioco2
integer, dimension(nvegsurf) c_resp_b
real(kind(1d0)), dimension(:, :, :), allocatable k_roof_grids
integer, dimension(5) c_internal_rhocp5_bldgs
real(kind(1d0)), dimension(:, :, :), allocatable metforcingdata
integer, dimension(nsurf) c_albmin
integer, dimension(5) c_internal_k5_bldgs
real(kind(1d0)), dimension(:, :), allocatable k_roof
integer c_frfossilfuel_heat
real(kind(1d0)), dimension(:), allocatable wetthresh_roof
integer, dimension(nsurf) c_obssmdepth
real(kind(1d0)), dimension(:), allocatable soilstorecap_roof
real(kind(1d0)), dimension(:), allocatable veg_frac
real(kind(1d0)), dimension(:, :), allocatable k_surf
real(kind(1d0)) capmax_dec
integer c_internal_thick4
real(kind(1d0)), dimension(nvegsurf) beta_bioco2
integer, dimension(24) c_hrproftraffwe
integer, dimension(5) c_wall_rhocp5_bldgs
integer, dimension(24) c_hrprofwumanuwd
integer, dimension(5) c_surf_thick5_bldgs
integer, dimension(5) c_wall_k2_bldgs
integer, dimension(nsurfincsnow) c_a3_swet
real(kind(1d0)), dimension(:, :), allocatable surfacechar
integer, dimension(nsurf) cmod_snowpack
integer c_ahslopeheating_wd
real(kind(1d0)) albevetr_id
integer, parameter ivgrass
real(kind(1d0)), dimension(:, :), allocatable statelimit_wall_grids
real(kind(1d0)), dimension(nsurf) snowwater
real(kind(1d0)) narp_trans_site
integer, dimension(3) c_surf_thick4_paved
integer, dimension(nsurf) c_stormax
integer, dimension(nsurfincsnow) c_surf_rhocp3
real(kind(1d0)), dimension(:, :), allocatable wetthresh_roof_grids
integer c_internal_rhocp3
real(kind(1d0)), dimension(0:23, 2) wuprofa_24hr
integer, dimension(nsurf) c_snowlimrem
integer, dimension(3) c_surf_rhocp1_paved
integer c_frfossilfuel_nonheat
integer, dimension(nvegsurf) c_baset
real(kind(1d0)), dimension(:, :), allocatable roof_albedo_dir_mult_fact
integer, dimension(nsurf) c_emis
real(kind(1d0)), dimension(:, :), allocatable soilstorecap_roof_grids
real(kind(1d0)) albmax_dectr
integer, dimension(nvegsurf) c_resp_a
integer, dimension(nsurfincsnow) c_surf_thick2
real(kind(1d0)), dimension(nvegsurf) sdd_id
integer, dimension(5) c_nroom_bldgs
real(kind(1d0)), dimension(nvegsurf) sddfull
integer, dimension(5) c_internal_k2_bldgs
integer, dimension(5) c_internal_k4_bldgs
integer, dimension(5) c_surf_k4_bldgs
real(kind(1d0)), dimension(nvegsurf) laimin
real(kind(1d0)) albmin_dectr
integer c_internal_rhocp1
integer, dimension(24) c_hrprofhumactivitywe
real(kind(1d0)), dimension(maxnumberofgrids) porosity_id_grids
real(kind(1d0)), dimension(:), allocatable tin_surf
integer, parameter watersurf
real(kind(1d0)), dimension(:), allocatable tin_wall
integer, parameter grasssurf
integer, dimension(3) c_surf_thick1_paved
real(kind(1d0)), dimension(nvegsurf) alpha_enh_bioco2
real(kind(1d0)), dimension(:, :, :), allocatable dz_roof_grids
real(kind(1d0)), dimension(:), allocatable statelimit_roof
real(kind(1d0)), dimension(:), allocatable alb_wall
real(kind(1d0)), dimension(:, :, :), allocatable roof_albedo_dir_mult_fact_grids
integer, dimension(nsurfincsnow) c_estmcode
real(kind(1d0)), dimension(9) wuday_id
real(kind(1d0)) albdectr_id
integer, parameter nvegsurf
integer, dimension(nsurf) cmod_soilstate
real(kind(1d0)), dimension(:, :), allocatable wall_specular_frac
real(kind(1d0)) narp_year
integer, dimension(nsurfincsnow) c_surf_k3
real(kind(1d0)), dimension(:, :), allocatable height_grids
real(kind(1d0)), dimension(maxnumberofgrids) albdectr_id_grids
integer, dimension(3) c_surf_rhocp5_paved
integer, parameter ivdecid
real(kind(1d0)), dimension(:, :), allocatable veg_scale_grids
integer c_internal_thick1
integer, dimension(5) c_surf_thick4_bldgs
integer, dimension(3) c_surf_thick2_paved
real(kind(1d0)), dimension(:, :), allocatable dz_roof
real(kind(1d0)), dimension(:, :, :), allocatable k_surf_grids
integer, parameter bsoilsurf
real(kind(1d0)) albmax_grass
real(kind(1d0)) pormin_dec
real(kind(1d0)), dimension(:, :), allocatable temp_surf
integer, dimension(5) c_surf_thick1_bldgs
real(kind(1d0)), dimension(9, maxnumberofgrids) wuday_id_grids
real(kind(1d0)), dimension(nsurf) snowdens
integer, dimension(nsurfincsnow) c_surf_k2
integer, dimension(3) c_surf_rhocp3_paved
integer, dimension(nsurfincsnow) c_surf_rhocp5
integer, dimension(nsurf) c_wgtodectr
integer, dimension(5) c_internal_rhocp3_bldgs
real(kind(1d0)), dimension(:), allocatable emis_wall
integer, dimension(nvegsurf) c_beta_enh_bioco2
integer, dimension(nvegsurf) c_porositymax
real(kind(1d0)), dimension(:), allocatable ts5mindata_ir
integer, parameter pavsurf
integer, dimension(5) c_em_ibld_bldgs
integer, dimension(3) c_surf_k3_paved
integer, dimension(nvegsurf) c_theta_bioco2
real(kind(1d0)) albmax_evetr
integer, dimension(nvegsurf) c_porositymin
real(kind(1d0)), dimension(nsurf) wetthresh_surf
integer, dimension(nvegsurf) c_leafgp1
integer, dimension(3) c_surf_thick5_paved
integer, dimension(nsurfincsnow) c_surf_k4
real(kind(1d0)), dimension(:, :), allocatable cp_roof
real(kind(1d0)), dimension(nsurf) alb
real(kind(1d0)), dimension(:), allocatable building_frac
integer, dimension(nsurf) c_obssnrfrac
integer, parameter ndepth
integer, dimension(5) c_wall_thick5_bldgs
real(kind(1d0)), dimension(:, :, :), allocatable modeloutputdata
real(kind(1d0)), dimension(:, :), allocatable veg_frac_grids
integer, dimension(5) c_alb_ibld_bldgs
integer, dimension(24) c_hrprofwuautowe
integer, dimension(nsurf) cmod_state
integer, parameter ivconif
integer, dimension(3) c_surf_thick3_paved
real(kind(1d0)), dimension(:, :), allocatable state_roof_grids
integer, dimension(nsurfincsnow) c_surf_rhocp1
real(kind(1d0)), dimension(nsurf, maxnumberofgrids) icefrac_grids
real(kind(1d0)), dimension(nvegsurf) maxconductance
integer, dimension(24) c_hrprofhumactivitywd
real(kind(1d0)), dimension(:, :), allocatable statelimit_roof_grids
real(kind(1d0)), dimension(:, :), allocatable sfr_roof_grids
integer, dimension(5) c_wall_rhocp4_bldgs
integer, dimension(nsurf) c_wgtobsoil
integer, dimension(nsurfincsnow) c_a1_wdry
real(kind(1d0)), dimension(0:23, 2) popprof_24hr
real(kind(1d0)), dimension(nvegsurf) gddfull
integer, dimension(nsurfincsnow) c_a2_wdry
integer, dimension(nvegsurf) c_laieq
real(kind(1d0)), dimension(:, :), allocatable temp_wall
integer, dimension(5) c_wall_k4_bldgs
real(kind(1d0)), dimension(:, :, :), allocatable dz_wall_grids
real(kind(1d0)), dimension(:), allocatable tair_av_grids
integer, dimension(nsurfincsnow) c_a1_sdry
integer, dimension(nsurfincsnow) c_surf_rhocp4
real(kind(1d0)), dimension(:, :), allocatable k_wall
real(kind(1d0)), dimension(:, :, :), allocatable estmforcingdata
integer, dimension(nvegsurf) c_leafop1
real(kind(1d0)), dimension(:), allocatable sfr_wall
integer, dimension(5) c_surf_rhocp3_bldgs
integer, dimension(nsurf) c_wetthresh
real(kind(1d0)), dimension(nsurf) snowpacklimit
real(kind(1d0)), dimension(:), allocatable veg_scale
integer, dimension(5) c_internal_thick2_bldgs
real(kind(1d0)), dimension(nvegsurf, maxnumberofgrids) gdd_id_grids
integer, dimension(5) c_internal_k1_bldgs
integer, dimension(nsurfincsnow) c_a2_wwet
real(kind(1d0)), dimension(12) hdd_id
real(kind(1d0)), dimension(:), allocatable qn_av_grids
real(kind(1d0)), dimension(:, :), allocatable wetthresh_wall_grids
integer, dimension(nvegsurf) c_leafop2
real(kind(1d0)), dimension(:), allocatable tin_roof
integer, parameter nsurfincsnow
real(kind(1d0)), dimension(:), allocatable soilstore_wall
integer, dimension(5) c_internal_thick5_bldgs
integer, dimension(24) c_hrprofenusewd
integer, dimension(nsurf) c_dreq
integer, dimension(nsurf) c_albmax
integer, parameter decidsurf
integer, dimension(5) c_wall_rhocp2_bldgs
real(kind(1d0)) albgrass_id
integer, dimension(3) c_surf_k2_paved
real(kind(1d0)), dimension(nsurf) icefrac
integer, dimension(5) c_wall_thick2_bldgs
integer, dimension(nsurf) c_drcoef1
real(kind(1d0)) albmin_evetr
real(kind(1d0)), dimension(:), allocatable tsfc_wall
integer, dimension(nvegsurf) c_basete
real(kind(1d0)), dimension(nvegsurf) alpha_bioco2
real(kind(1d0)), dimension(nsurf) snowfrac
integer, dimension(5) c_wall_thick3_bldgs
integer cmds_laiinitialgrass
integer cmds_laiinitialevetr
integer cmds_laiinitialdectr
real(kind(1d0)) emis_snow
integer netradiationmethod
character(len=20) filecode
real(kind(1d0)) minqfmetab
real(kind(1d0)) trafficunits
real(kind(1d0)) rainmaxres
real(kind(1d0)) frfossilfuel_heat
real(kind(1d0)) co2pointsource
character(len=150) fileoutputpath
real(kind(1d0)), dimension(2) fcef_v_kgkm
real(kind(1d0)), dimension(2) qf0_beu
real(kind(1d0)), dimension(2) qf_a
real(kind(1d0)) trans_site
real(kind(1d0)) ef_umolco2perj
real(kind(1d0)) maxqfmetab
real(kind(1d0)) traffprofwd
real(kind(1d0)) ldown_obs
character(len=150) filestateinit
real(kind(1d0)), dimension(2) ah_slope_heating
character(len=150) filechoices
real(kind(1d0)) snowfrac_obs
real(kind(1d0)), dimension(2) ah_min
real(kind(1d0)), dimension(2) baset_heating
real(kind(1d0)) popprofwe
real(kind(1d0)), dimension(2) ah_slope_cooling
real(kind(1d0)) press_hpa
real(kind(1d0)), dimension(2) qf_c
real(kind(1d0)) maxfcmetab
integer storageheatmethod
real(kind(1d0)), dimension(2) trafficrate
real(kind(1d0)) enef_v_jkm
real(kind(1d0)), dimension(2) qf_b
real(kind(1d0)) traffprofwe
real(kind(1d0)) raincover
integer roughlenmommethod
real(kind(1d0)) popprofwd
real(kind(1d0)), dimension(2) popdensdaytime
real(kind(1d0)) minfcmetab
real(kind(1d0)), dimension(2) baset_cooling
real(kind(1d0)) popdensnighttime
real(kind(1d0)) frfossilfuel_nonheat
real(kind(1d0)), dimension(5, 3) rsurf_paved
real(kind(1d0)), dimension(5) em_ibld_bldgs
real(kind(1d0)), dimension(5) zground
real(kind(1d0)), dimension(5, 5) ribld_bldgs
real(kind(1d0)), dimension(5, 5) kibld_bldgs
real(kind(1d0)), dimension(5, 5) rwall_bldgs
real(kind(1d0)), dimension(5) alb_ibld_bldgs
real(kind(1d0)), dimension(5, 3) zsurf_paved
real(kind(1d0)), dimension(5) kwall
real(kind(1d0)), dimension(5) kroof
real(kind(1d0)), dimension(5) kground
real(kind(1d0)), dimension(5) zibld
real(kind(1d0)), dimension(5, 5) zibld_bldgs
real(kind(1d0)), dimension(5) ch_iwall_bldgs
real(kind(1d0)), dimension(5, 5) kwall_bldgs
real(kind(1d0)), dimension(5) rwall
real(kind(1d0)), dimension(5) ch_iroof_bldgs
real(kind(1d0)), dimension(5, 5) zwall_bldgs
real(kind(1d0)), dimension(5) estmsfr_bldgs
real(kind(1d0)), dimension(5, 5) rsurf_bldgs
real(kind(1d0)), dimension(5) rroof
real(kind(1d0)), dimension(5, 3) ksurf_paved
real(kind(1d0)), dimension(5, 5) ksurf_bldgs
real(kind(1d0)), dimension(5) kibld
real(kind(1d0)), dimension(5) zwall
real(kind(1d0)), dimension(5, 5) zsurf_bldgs
real(kind(1d0)), dimension(3) estmsfr_paved
real(kind(1d0)), dimension(5) rground
real(kind(1d0)), dimension(5) nroom_bldgs
real(kind(1d0)), dimension(5) ribld
real(kind(1d0)), dimension(5) ch_ibld_bldgs
real(kind(1d0)), dimension(5) zroof
subroutine estm_translate(Gridiv)
real(kind(1d0)) vegfraction
real(kind(1d0)) nonwaterfraction
real(kind(1d0)) faievetree
real(kind(1d0)) pervfraction
real(kind(1d0)) faidectree
real(kind(1d0)) impervfraction
real(kind(1d0)) snowfallcum
real(kind(1d0)), dimension(0:23, 2) snowprof_24hr
real(kind(1d0)) snowlimpaved
real(kind(1d0)) snowalbmax
real(kind(1d0)) radmeltfact
real(kind(1d0)) tempmeltfact
real(kind(1d0)) snowdensmin
real(kind(1d0)) snowlimbldg
real(kind(1d0)) snowalbmin
real(kind(1d0)) preciplimitalb
real(kind(1d0)) snowdensmax
real(kind(1d0)) preciplimit
real(kind(1d0)) irrfracgrass
real(kind(1d0)) irrfracbldgs
integer aerodynamicresistancemethod
real(kind(1d0)) runofftowater
real(kind(1d0)), dimension(7) daywat
real(kind(1d0)) wuareaevetr_m2
real(kind(1d0)) flowchange
real(kind(1d0)) wuareagrass_m2
real(kind(1d0)) irrfracevetr
real(kind(1d0)) soildensity
real(kind(1d0)) soilrocks
real(kind(1d0)), dimension(3) ie_a
real(kind(1d0)) surfacearea_ha
real(kind(1d0)) irrfracdectr
real(kind(1d0)) irrfracbsoil
real(kind(1d0)) pipecapacity
integer roughlenheatmethod
real(kind(1d0)) irrfracwater
real(kind(1d0)), dimension(7) daywatper
real(kind(1d0)) irrfracpaved
real(kind(1d0)) wuareadectr_m2
real(kind(1d0)) surfacearea
real(kind(1d0)), dimension(3) ie_m
real(kind(1d0)) internalwateruse_h
real(kind(1d0)) soildepthmeas
real(kind(1d0)) h_maintain
character(len=10) gridid_text
subroutine errorhint(errh, ProblemFile, VALUE, value2, valueI)
subroutine suews_translateback(Gridiv, ir, irMax)
subroutine suews_translate(Gridiv, ir, iMB)