48 USE resist, ONLY:
g1,
g2,
g3,
g4,
g5,
g6,
th,
tl,
s1,
s2,
kmax,
gsmodel 76 REAL(KIND(1d0)):: fcskip = -999
80 CHARACTER(len=20):: grid_txt
81 CHARACTER(len=4):: year_txt
82 CHARACTER(len=12)::ssg_yyyy
84 CHARACTER(len=4):: iy_text
85 CHARACTER(len=3):: id_text
86 CHARACTER(len=2):: it_text, imin_text
124 IF (sum(
sfr) > 1.001 .OR. sum(
sfr) < 0.999) &
338 endDLS = INT(SurfaceChar(Gridiv, c_EndDLS))
400 CALL errorhint(67,
'ESTM Paved classes do not sum to 1 (but no Paved surface present).', &
412 CALL errorhint(67,
'ESTM Bldgs classes do not sum to 1 (but no Bldgs surface present).', &
645 IF (
zroof(i) <= 0)
THEN 651 IF (
zwall(i) <= 0)
THEN 657 IF (
zibld(i) <= 0)
THEN 814 DO iv = 1, (
nsurf - 1)
986 IF (ir == 1 .AND. imb == 1)
THEN 993 WRITE (ssg_yyyy,
'(A12)') trim(
filecode)//trim(adjustl(grid_txt))//
'_'//trim(adjustl(year_txt))
996 WRITE (12, *)
'----- '//trim(adjustl(ssg_yyyy))//
' Surface characteristics'//
' -----' 998 WRITE (12,
'(8a10,a16)')
'Paved',
'Bldgs',
'EveTr',
'DecTr',
'Grass',
'BSoil',
'Water',
'Snow',
' SurfType' 999 WRITE (12, 120) (
sfr(iv), iv=1,
nsurf), fcskip,
' SurfFr' 1008 WRITE (12, 120) fcskip, fcskip, (
baset(iv), iv=1,
nvegsurf), fcskip, fcskip, fcskip,
' BaseT' 1009 WRITE (12, 120) fcskip, fcskip, (
basete(iv), iv=1,
nvegsurf), fcskip, fcskip, fcskip,
' BaseTe' 1012 WRITE (12, 120) (
wetthresh(iv), iv=1,
nsurf), fcskip,
' WetThreshold' 1017 WRITE (12, 120) fcskip, fcskip, (
gddfull(iv), iv=1,
nvegsurf), fcskip, fcskip, fcskip,
' GDDFull' 1018 WRITE (12, 120) fcskip, fcskip, (
sddfull(iv), iv=1,
nvegsurf), fcskip, fcskip, fcskip,
' SDDFull' 1019 WRITE (12, 120) fcskip, fcskip, (
laimin(iv), iv=1,
nvegsurf), fcskip, fcskip, fcskip,
' LAIMin' 1020 WRITE (12, 120) fcskip, fcskip, (
laimax(iv), iv=1,
nvegsurf), fcskip, fcskip, fcskip,
' LAIMax' 1021 WRITE (12, 120) fcskip, fcskip, fcskip,
pormin_dec, fcskip, fcskip, fcskip, fcskip,
' PorosityMin' 1022 WRITE (12, 120) fcskip, fcskip, fcskip,
pormax_dec, fcskip, fcskip, fcskip, fcskip,
' PorosityMax' 1023 WRITE (12,
'(2f10.3,3i10, 3f10.3,a16)') fcskip, fcskip,
laitype(1:
nvegsurf), fcskip, fcskip, fcskip,
' LAIEq' 1024 WRITE (12,
'(2f10.3,3f10.5,3f10.3,a16)') fcskip, fcskip,
laipower(1, 1:
nvegsurf), fcskip, fcskip, fcskip,
' LAI_LeafGP1' 1025 WRITE (12,
'(2f10.3,3f10.5,3f10.3,a16)') fcskip, fcskip,
laipower(2, 1:
nvegsurf), fcskip, fcskip, fcskip,
' LAI_LeafGP2' 1026 WRITE (12,
'(2f10.3,3f10.5,3f10.3,a16)') fcskip, fcskip,
laipower(3, 1:
nvegsurf), fcskip, fcskip, fcskip,
' LAI_LeafOP1' 1027 WRITE (12,
'(2f10.3,3f10.5,3f10.3,a16)') fcskip, fcskip,
laipower(4, 1:
nvegsurf), fcskip, fcskip, fcskip,
' LAI_LeafOP2' 1029 WRITE (12, 120) (
soildepth(iv), iv=1, (
nsurf - 1)), fcskip, fcskip,
' SoilDepth' 1030 WRITE (12, 120) (
soilstorecap(iv), iv=1, (
nsurf - 1)), fcskip, fcskip,
' SoilStoreCap' 1031 WRITE (12,
'(6f10.5,2f10.3,a16)') (
sathydraulicconduct(iv), iv=1, (
nsurf - 1)), fcskip, fcskip,
' SatHydraulicConduct' 1033 WRITE (12, 120) (
snowpacklimit(iv), iv=1, (
nsurf - 1)), fcskip, fcskip,
' SnowLimPatch' 1050 WRITE (12, *)
'----- '//trim(adjustl(ssg_yyyy))//
' Snow parameters'//
' -----' 1051 WRITE (12,
'(a12,11a10)')
'Grid',
'RadMeltF',
'TempMeltF',
'tau_a',
'tau_f',
'PLimAlb',
'SDensMin',
'SDensMax', &
1052 'tau_r',
'CRWMin',
'CRWMax',
'PLimSnow' 1053 WRITE (12,
'(a12,11f10.4)') ssg_yyyy,
radmeltfact,
tempmeltfact,
tau_a,
tau_f,
preciplimitalb,
snowdensmin,
snowdensmax, &
1056 WRITE (12, *)
'----- '//trim(adjustl(ssg_yyyy))//
' Conductance parameters'//
' -----' 1057 WRITE (12,
'(a12,12a10)')
'Grid',
'G1',
'G2',
'G3',
'G4',
'G5',
'G6',
'TH',
'TL',
'S1',
'S2',
'Kmax',
'gsModel' 1058 WRITE (12,
'(a12,11f10.3,i3)') ssg_yyyy,
g1,
g2,
g3,
g4,
g5,
g6,
th,
tl,
s1,
s2,
kmax,
gsmodel 1060 WRITE (12, *)
'----- '//trim(adjustl(ssg_yyyy))//
' Energy-use parameters'//
' -----' 1061 WRITE (12,
'(a12,11a10)')
'Grid',
'PopDensDaytime',
'BaseTHDD',
'QF_A_WD',
'QF_A_WE',
'QF_B_WD',
'QF_B_WE',
'QF_C_WD', &
1062 'QF_C_WE',
'AH_Min',
'AH_Slope',
'T_critic_Heating' 1066 WRITE (12, *)
'----- '//trim(adjustl(ssg_yyyy))//
' Water-use parameters'//
' -----' 1067 WRITE (12,
'(a12,10a10)')
'Grid',
'IeStart',
'IeEnd',
'IntWatUse',
'Faut', &
1068 'Ie_a1',
'Ie_a2',
'Ie_a3',
'Ie_m1',
'Ie_m2',
'Ie_m3' 1072 WRITE (12, *)
'----- '//trim(adjustl(ssg_yyyy))//
' Weekly profiles'//
' -----' 1073 WRITE (12,
'(a12,7a10, a16)')
'Grid',
'1_Sun',
'2_Mon',
'3_Tue',
'4_Wed',
'5_Thu',
'6_Fri',
'7_Sat',
' DayOfWeek' 1074 WRITE (12,
'(a12,7f10.3,a16)') ssg_yyyy,
daywat(1:7),
' Irr allowed' 1075 WRITE (12,
'(a12,7f10.3,a16)') ssg_yyyy,
daywatper(1:7),
' Frac properties' 1077 WRITE (12, *)
'----- '//trim(adjustl(ssg_yyyy))//
' Hourly profiles'//
' -----' 1078 WRITE (12,
'(a12,24i10,a20)')
'Grid', (iv, iv=0, 23),
'HourOfDay' 1079 WRITE (12, 121) ssg_yyyy,
ahprof_24hr(0:23, 1),
' Anthrop heat WD' 1080 WRITE (12, 121) ssg_yyyy,
ahprof_24hr(0:23, 2),
' Anthrop heat WE' 1081 WRITE (12, 121) ssg_yyyy,
wuprofm_24hr(0:23, 1),
' Manual water use WD' 1082 WRITE (12, 121) ssg_yyyy,
wuprofm_24hr(0:23, 2),
' Manual water use WE' 1083 WRITE (12, 121) ssg_yyyy,
wuprofa_24hr(0:23, 1),
' Auto. water use WD' 1084 WRITE (12, 121) ssg_yyyy,
wuprofa_24hr(0:23, 2),
' Auto. water use WE' 1085 WRITE (12, 121) ssg_yyyy,
snowprof_24hr(0:23, 1),
' Snow clearing WD' 1086 WRITE (12, 121) ssg_yyyy,
snowprof_24hr(0:23, 2),
' Snow clearing WE' 1088 WRITE (12, *)
'----- '//trim(adjustl(ssg_yyyy))//
' Within-grid water distribution'//
' -----' 1089 WRITE (12,
'(9a10)')
'ToPaved',
'ToBldgs',
'ToEveTr',
'ToDecTr',
'ToGrass',
'ToBSoil',
'ToWater',
'ToROorSS' 1091 DO iv = 1, (
nsurf - 1)
1095 WRITE (12, *)
'----- '//trim(adjustl(ssg_yyyy))//
' Other parameters'//
' -----' 1096 WRITE (12,
'(a12,7a10)')
'Grid',
'FlowChange',
'ROToWater',
'PipeCap', &
1097 'DrRate',
'Cover',
'MaxRes', &
1103 WRITE (12, *)
'----- '//trim(adjustl(ssg_yyyy))//
' Site parameters'//
' -----' 1104 WRITE (12,
'(a12,9a10)') &
1105 'Grid',
'lat',
'lon',
'tz',
'alt',
'SurfA_ha',
'z',
'PopDensNighttime',
'z0_input',
'zd_input',
'StartDLS',
'EndDLS' 1106 WRITE (12,
'(a12,4f10.4,f10.2,4f10.4,2i10)') &
1107 ssg_yyyy,
lat,
lng*(-1.0),
timezone,
alt,
surfacearea_ha,
z,
popdensnighttime,
z0m_in,
zdm_in, &
1124 IF (sum(
qf_a) == 0 .AND. sum(
qf_b) == 0 .AND. sum(
qf_c) == 0)
THEN 1138 'FAI_Bldgs value provided is very small (RoughLenMomMethod=3)', &
1141 'FAI_EveTr/DecTr value provided is very small (RoughLenMomMethod=3)', &
1210 dectime =
REAL(id - 1, KIND(1d0)) +
REAL(
it, kind(1d0))/24 +
REAL(
imin, kind(1d0))/(60*24)
1212 WRITE (iy_text,
'(i4)')
iy 1213 WRITE (id_text,
'(i3)')
id 1214 WRITE (it_text,
'(i2)')
it 1215 WRITE (imin_text,
'(i2)')
imin 1264 IF (ir == 1 .AND. imb == 1)
THEN 1271 if (ir == 1 .and. imb == 1)
then 1275 write (12, *)
'&state_init' 1277 write (12, *)
'ah_min=',
ah_min 1281 write (12, *)
'alb=',
alb 1290 write (12, *)
'alt=',
alt 1291 write (12, *)
'avkdn=',
avkdn 1292 write (12, *)
'avrh=',
avrh 1293 write (12, *)
'avu1=',
avu1 1294 write (12, *)
'baset=',
baset 1295 write (12, *)
'basete=',
basete 1296 write (12, *)
'basethdd=',
basethdd 1299 write (12, *)
'bldgh=',
bldgh 1302 write (12, *)
'chanohm=',
chanohm 1304 write (12, *)
'cpanohm=',
cpanohm 1305 write (12, *)
'crwmax=',
crwmax 1306 write (12, *)
'crwmin=',
crwmin 1307 write (12, *)
'daywat=',
daywat 1309 write (12, *)
'dectreeh=',
dectreeh 1310 write (12, *)
'diagnose=',
diagnose 1311 write (12, *)
'diagqn=',
diagqn 1312 write (12, *)
'diagqs=',
diagqs 1313 write (12, *)
'drainrt=',
drainrt 1315 write (12, *)
'dqndt=',
dqndt 1316 write (12, *)
'qn1_av=',
qn1_av 1317 write (12, *)
'dqnsdt=',
dqnsdt 1318 write (12, *)
'qn1_s_av=',
qn1_s_av 1320 write (12, *)
'emis=',
emis 1323 write (12, *)
'enddls=',
enddls 1324 write (12, *)
'evetreeh=',
evetreeh 1325 write (12, *)
'faibldg=',
faibldg 1328 write (12, *)
'faut=',
faut 1330 write (12, *)
'fcld_obs=',
fcld_obs 1334 write (12, *)
'g1=',
g1 1335 write (12, *)
'g2=',
g2 1336 write (12, *)
'g3=',
g3 1337 write (12, *)
'g4=',
g4 1338 write (12, *)
'g5=',
g5 1339 write (12, *)
'g6=',
g6 1340 write (12, *)
'gdd_id=',
gdd_id 1341 write (12, *)
'gddfull=',
gddfull 1342 write (12, *)
'gridiv=', gridiv
1343 write (12, *)
'gsmodel=',
gsmodel 1344 write (12, *)
'hdd_id=',
hdd_id 1346 write (12, *)
'icefrac=',
icefrac 1347 write (12, *)
'id=',
id 1348 write (12, *)
'ie_a=',
ie_a 1349 write (12, *)
'ie_end=',
ie_end 1350 write (12, *)
'ie_m=',
ie_m 1351 write (12, *)
'ie_start=',
ie_start 1352 write (12, *)
'imin=',
imin 1357 write (12, *)
'isec=',
isec 1358 write (12, *)
'it=',
it 1360 write (12, *)
'iy=',
iy 1361 write (12, *)
'kkanohm=',
kkanohm 1362 write (12, *)
'kmax=',
kmax 1363 write (12, *)
'lai_id=',
lai_id 1365 write (12, *)
'laimax=',
laimax 1366 write (12, *)
'laimin=',
laimin 1367 write (12, *)
'lai_obs=',
lai_obs 1368 write (12, *)
'laipower=',
laipower 1369 write (12, *)
'laitype=',
laitype 1370 write (12, *)
'lat=',
lat 1373 write (12, *)
'lng=',
lng 1385 write (12, *)
'ohm_coef=',
ohm_coef 1386 write (12, *)
'ohmincqf=',
ohmincqf 1395 write (12, *)
'precip=',
precip 1399 write (12, *)
'qf0_beu=',
qf0_beu 1400 write (12, *)
'qf_a=',
qf_a 1401 write (12, *)
'qf_b=',
qf_b 1402 write (12, *)
'qf_c=',
qf_c 1403 write (12, *)
'qn1_obs=',
qn1_obs 1404 write (12, *)
'qh_obs=',
qh_obs 1405 write (12, *)
'qs_obs=',
qs_obs 1406 write (12, *)
'qf_obs=',
qf_obs 1410 write (12, *)
'resp_a=',
resp_a 1411 write (12, *)
'resp_b=',
resp_b 1415 write (12, *)
's1=',
s1 1416 write (12, *)
's2=',
s2 1418 write (12, *)
'sddfull=',
sddfull 1419 write (12, *)
'sdd_id=',
sdd_id 1420 write (12, *)
'sfr=',
sfr 1422 write (12, *)
'snowalb=',
snowalb 1426 write (12, *)
'snowdens=',
snowdens 1430 write (12, *)
'snowfrac=',
snowfrac 1434 write (12, *)
'snowpack=',
snowpack 1436 write (12, *)
'snowuse=',
snowuse 1441 write (12, *)
'startdls=',
startdls 1442 write (12, *)
'state_id=',
state_id 1447 write (12, *)
'tair_av=',
tair_av 1448 write (12, *)
'tau_a=',
tau_a 1449 write (12, *)
'tau_f=',
tau_f 1450 write (12, *)
'tau_r=',
tau_r 1451 write (12, *)
'tmax_id=',
tmax_id 1452 write (12, *)
'tmin_id=',
tmin_id 1455 write (12, *)
'temp_c=',
temp_c 1457 write (12, *)
'th=',
th 1459 write (12, *)
'timezone=',
timezone 1460 write (12, *)
'tl=',
tl 1465 write (12, *)
'tstep=',
tstep 1467 write (12, *)
'veg_type=',
veg_type 1471 write (12, *)
'wu_m3=',
wu_m3 1472 write (12, *)
'wuday_id=',
wuday_id 1480 write (12, *)
'xsmd=',
xsmd 1481 write (12, *)
'z=',
z 1482 write (12, *)
'z0m_in=',
z0m_in 1483 write (12, *)
'zdm_in=',
zdm_in 1496 120
FORMAT(8f10.3, a16)
1497 121
FORMAT(a12, 24f10.4, a20)
integer, dimension(5) c_internal_rhocp2_bldgs
integer, dimension(nsurfincsnow) c_surf_thick2
real(kind(1d0)) minfcmetab
integer, dimension(5) c_surf_k4_bldgs
integer, dimension(nvegsurf) c_theta_bioco2
integer, dimension(nvegsurf) c_resp_b
integer, dimension(3) c_ie_a
real(kind(1d0)), dimension(:, :), allocatable metforcingdata_grid
integer, dimension(5) c_wall_k5_bldgs
real(kind(1d0)) impervfraction
integer c_internal_thick5
real(kind(1d0)), dimension(nsurf+1) ohm_threshwd
integer, dimension(nsurfincsnow) c_a3_swet
real(kind(1d0)), dimension(nsurf+1) ohm_threshsw
real(kind(1d0)), dimension(nsurf) snowdens
integer, dimension(nvegsurf) c_leafgp2
integer, dimension(nsurf) c_dreq
real(kind(1d0)), dimension(maxnumberofgrids) tmin_id_grids
real(kind(1d0)) trans_site
integer, dimension(5) c_internal_thick2_bldgs
real(kind(1d0)), dimension(nvegsurf) theta_bioco2
real(kind(1d0)), dimension(3) ie_m
integer, dimension(nsurfincsnow) c_a2_sdry
integer, dimension(nsurf) c_snowlimpat
real(kind(1d0)), dimension(nsurf) icefrac
integer, dimension(nvegsurf) c_alpha_bioco2
real(kind(1d0)), dimension(nsurf) snowwater
integer, dimension(nvegsurf) c_leafop2
integer, dimension(5) c_alb_ibld_bldgs
integer c_internal_rhocp3
integer, dimension(nsurf) c_wgtosoilstore
real(kind(1d0)) albmin_grass
real(kind(1d0)) narp_emis_snow
integer, dimension(nsurfincsnow) c_surf_k2
real(kind(1d0)) snowfallcum
real(kind(1d0)) albmin_evetr
real(kind(1d0)), dimension(nsurf) state_id
real(kind(1d0)) vegfraction
integer, dimension(nsurf) c_wgtowater
real(kind(1d0)) pipecapacity
integer, parameter ivgrass
integer, dimension(nsurf) c_wetthresh
real(kind(1d0)) narp_year
real(kind(1d0)), dimension(:), allocatable qn1_s_av_grids
integer, dimension(5) c_wall_thick3_bldgs
integer c_internal_thick4
integer, dimension(nsurf) c_soildepth
integer, dimension(3) c_surf_rhocp5_paved
integer, dimension(nsurf) c_snowlimrem
integer, dimension(nsurf) c_obssmdepth
integer, dimension(3) c_ie_m
real(kind(1d0)), dimension(nvegsurf) laimax
real(kind(1d0)), dimension(2) t_critic_cooling
real(kind(1d0)), dimension(:), allocatable qn1_av_grids
integer, dimension(nsurfincsnow) c_a3_wdry
integer c_internal_rhocp5
real(kind(1d0)), dimension(5, 5) kwall_bldgs
integer, dimension(3) c_surf_rhocp2_paved
real(kind(1d0)), dimension(1) waterdepth
integer, dimension(5) c_internal_thick4_bldgs
integer, dimension(nsurfincsnow) c_surf_rhocp5
real(kind(1d0)), dimension(2) qf_c
integer c_internal_thick1
integer, dimension(nvegsurf) c_beta_enh_bioco2
real(kind(1d0)) snowlimpaved
integer, dimension(5) c_wall_rhocp4_bldgs
real(kind(1d0)), dimension(2) popdensdaytime
integer, dimension(5) c_surf_thick1_bldgs
integer, parameter bsoilsurf
integer, dimension(nsurfincsnow) c_surf_thick3
character(len=150) filestateinit
real(kind(1d0)), dimension(nvegsurf) maxconductance
integer, dimension(24) c_hrproftraffwe
integer, parameter nsurfincsnow
real(kind(1d0)), dimension(0:23, 2) ahprof_24hr
integer, dimension(24) c_hrproftraffwd
real(kind(1d0)) tempmeltfact
real(kind(1d0)), dimension(5) rroof
real(kind(1d0)), dimension(nsurf) soilstore_id
real(kind(1d0)) preciplimit
integer c_tcriticheating_we
integer, dimension(nsurfincsnow) c_a2_swet
integer, dimension(3) c_surf_thick4_paved
real(kind(1d0)), dimension(nvegsurf) alpha_enh_bioco2
integer, dimension(nvegsurf) c_sddfull
real(kind(1d0)), dimension(5) kibld
real(kind(1d0)), dimension(4, nvegsurf) laipower
integer, dimension(5) c_surf_thick4_bldgs
integer, dimension(nsurf) c_albmin
integer, dimension(5) c_internal_k4_bldgs
real(kind(1d0)) emis_snow
real(kind(1d0)), dimension(5) rwall
real(kind(1d0)), dimension(maxnumberofgrids) albevetr_id_grids
real(kind(1d0)), dimension(5, 5) ribld_bldgs
real(kind(1d0)), dimension(2) t_critic_heating
real(kind(1d0)), dimension(nvegsurf, maxnumberofgrids) lai_id_grids
real(kind(1d0)), dimension(:, :), allocatable ts5mindata
integer, dimension(nsurfincsnow) c_surf_thick4
real(kind(1d0)), dimension(5) kwall
real(kind(1d0)), dimension(maxnumberofgrids) lenday_id_grids
subroutine estm_translate(Gridiv)
real(kind(1d0)), dimension(nsurf) snowpacklimit
real(kind(1d0)) internalwateruse_h
real(kind(1d0)) surfacearea_ha
real(kind(1d0)), dimension(2) ah_slope_heating
real(kind(1d0)), dimension(12, maxnumberofgrids) hdd_id_grids
real(kind(1d0)) soilrocks
integer, dimension(5) c_ch_ibld_bldgs
real(kind(1d0)), dimension(5, 5) rwall_bldgs
real(kind(1d0)), dimension(5) kroof
integer, dimension(nsurfincsnow) c_surf_rhocp2
real(kind(1d0)), dimension(5, nsurfincsnow) ksurf_suewssurfs
real(kind(1d0)) albmax_evetr
real(kind(1d0)), dimension(nvegsurf) alpha_bioco2
real(kind(1d0)), dimension(5, 5) zwall_bldgs
real(kind(1d0)), dimension(2) ah_min
real(kind(1d0)), dimension(maxnumberofgrids) albdectr_id_grids
real(kind(1d0)) maxqfmetab
real(kind(1d0)) albevetr_id
real(kind(1d0)), dimension(nsurf) kkanohm
integer, dimension(nsurfincsnow) c_estmcode
integer, dimension(nsurfincsnow) c_a2_wwet
integer, dimension(nvegsurf) c_porositymin
real(kind(1d0)), dimension(5, 5) zibld_bldgs
integer c_internal_thick2
integer c_frfossilfuel_heat
real(kind(1d0)), dimension(nvegsurf) resp_a
real(kind(1d0)), dimension(5, nsurfincsnow) zsurf_suewssurfs
integer, dimension(5) c_wall_thick4_bldgs
real(kind(1d0)) wuareagrass_m2
integer, dimension(5) c_internal_rhocp3_bldgs
integer c_internal_rhocp1
real(kind(1d0)), dimension(5, 3) rsurf_paved
real(kind(1d0)) narp_long
real(kind(1d0)), dimension(:, :), allocatable surfacechar
integer, dimension(nvegsurf) c_porositymax
integer, dimension(nvegsurf) c_laimax
real(kind(1d0)) snowfrac_obs
integer, dimension(nsurf) c_drcoef2
integer, dimension(nsurf) c_obssmmax
real(kind(1d0)), dimension(nsurf) soilstorecap
real(kind(1d0)), dimension(nvegsurf) sdd_id
integer, dimension(5) c_wall_rhocp5_bldgs
real(kind(1d0)), dimension(nsurf, maxnumberofgrids) icefrac_grids
real(kind(1d0)), dimension(5) zwall
real(kind(1d0)), dimension(5, 5) zsurf_bldgs
integer c_internal_rhocp4
integer, dimension(5) c_internal_k3_bldgs
real(kind(1d0)) nonwaterfraction
real(kind(1d0)) snowdensmin
integer aerodynamicresistancemethod
real(kind(1d0)), dimension(3) estmsfr_paved
real(kind(1d0)) faievetree
real(kind(1d0)) soildensity
real(kind(1d0)) wuareadectr_m2
real(kind(1d0)) albmax_grass
integer, parameter conifsurf
integer, dimension(7) c_daywat
integer, dimension(5) c_surf_k3_bldgs
integer, dimension(nsurfincsnow) c_a1_sdry
real(kind(1d0)), dimension(nsurf) sathydraulicconduct
integer, dimension(24) c_hrprofsnowcwd
integer, dimension(nsurfincsnow) c_a1_wdry
real(kind(1d0)) popprofwe
integer, dimension(nsurfincsnow) c_a2_wdry
real(kind(1d0)), dimension(nsurf) statelimit
real(kind(1d0)) co2pointsource
integer, dimension(nvegsurf) c_leafgp1
real(kind(1d0)), dimension(nvegsurf) gddfull
integer, dimension(5) c_wall_k2_bldgs
integer, dimension(24) c_hrprofwumanuwd
integer, dimension(5) c_internal_rhocp5_bldgs
real(kind(1d0)) rainmaxres
real(kind(1d0)) ldown_obs
real(kind(1d0)), dimension(5, 3) zsurf_paved
real(kind(1d0)), dimension(12) hdd_id
real(kind(1d0)), dimension(2) fcef_v_kgkm
real(kind(1d0)) capmax_dec
real(kind(1d0)), dimension(0:23, 2) popprof_24hr
integer, dimension(nvegsurf) laitype
real(kind(1d0)) raincover
real(kind(1d0)) snowalbmax
real(kind(1d0)), dimension(0:23, 2) wuprofm_24hr
real(kind(1d0)), dimension(5) estmsfr_bldgs
real(kind(1d0)), dimension(maxnumberofgrids) porosity_id_grids
integer, dimension(3) c_surf_k2_paved
integer, dimension(24) c_hrprofwumanuwe
real(kind(1d0)), dimension(nvegsurf) resp_b
real(kind(1d0)), dimension(2) qf_a
real(kind(1d0)) pormax_dec
integer, dimension(5) c_internal_k5_bldgs
integer, dimension(nsurf) c_wgtopaved
integer, dimension(5) c_em_ibld_bldgs
real(kind(1d0)), dimension(nsurf) chanohm
integer, dimension(nsurf) c_ksat
real(kind(1d0)) soildepthmeas
integer, dimension(24) c_hrprofsnowcwe
integer, dimension(7) c_daywatper
integer, dimension(nsurf) c_soildens
integer, dimension(5) c_surf_rhocp5_bldgs
real(kind(1d0)), dimension(5) zibld
integer, dimension(nsurfincsnow) c_surf_rhocp1
integer, dimension(24) c_hrprofpopwd
integer, dimension(5) c_wall_rhocp2_bldgs
real(kind(1d0)), dimension(nsurf) emis
real(kind(1d0)), dimension(nsurf) soildepth
integer, dimension(nsurfincsnow) c_surf_k4
integer, dimension(24) c_hrprofhumactivitywe
integer, parameter grasssurf
real(kind(1d0)) radmeltfact
integer c_ahslopeheating_wd
integer, dimension(nvegsurf) c_laimin
real(kind(1d0)) irrfracgrass
integer, dimension(nsurfincsnow) c_surf_rhocp3
real(kind(1d0)), dimension(0:23, 2) snowprof_24hr
real(kind(1d0)), dimension(:, :), allocatable modeldailystate
integer c_ahslopecooling_wd
integer c_frfossilfuel_nonheat
real(kind(1d0)), dimension(5, 5) ksurf_bldgs
integer, dimension(3) c_surf_thick2_paved
integer, dimension(nvegsurf) c_laieq
real(kind(1d0)) wuareaevetr_m2
integer, dimension(3) c_surf_k1_paved
integer, dimension(nsurfincsnow) c_ohmthresh_wd
integer, dimension(nsurf) cmod_state
real(kind(1d0)), dimension(nsurf) snowfrac
real(kind(1d0)), dimension(5) nroom_bldgs
integer, dimension(5) c_wall_rhocp3_bldgs
integer, parameter ivconif
integer, dimension(5) c_surf_rhocp3_bldgs
integer roughlenheatmethod
integer, dimension(nvegsurf) c_min_res_bioco2
integer, dimension(nsurf) c_wgtograss
integer, dimension(nsurf) c_stormin
integer, dimension(24) c_hrprofhumactivitywd
integer, dimension(nsurf) c_soilstcap
integer, parameter ncolsestmdata
integer, dimension(5) c_internal_rhocp4_bldgs
integer, dimension(5) c_surf_thick2_bldgs
integer, dimension(nsurf) c_wgtorunoff
integer, dimension(nsurf) c_chanohm
real(kind(1d0)) frfossilfuel_heat
real(kind(1d0)) faidectree
integer, dimension(5) c_nroom_bldgs
real(kind(1d0)), dimension(nsurf+1, 4, 3) ohm_coef
real(kind(1d0)), dimension(nvegsurf) laimin
integer, dimension(5) c_surf_rhocp4_bldgs
integer, dimension(nsurf) c_obssnrfrac
real(kind(1d0)) surfacearea
integer, parameter nvegsurf
integer, dimension(nsurfincsnow) c_surf_thick5
real(kind(1d0)), dimension(5) ribld
real(kind(1d0)), dimension(nsurf) wetthresh
integer, dimension(nsurf) c_cpanohm
integer c_tcriticcooling_we
integer, dimension(nsurf) c_albmax
character(len=20) filecode
integer, dimension(24) c_hrprofwuautowd
real(kind(1d0)) pervfraction
integer, dimension(5) c_surf_rhocp1_bldgs
integer, dimension(5) c_surf_k2_bldgs
integer, dimension(3) c_surf_rhocp4_paved
integer, dimension(nsurf) cmod_snowfrac
character(len=10) gridid_text
integer, dimension(3) c_surf_thick1_paved
real(kind(1d0)), dimension(3) ie_a
integer, dimension(3) c_surf_k5_paved
integer, dimension(5) c_internal_thick3_bldgs
real(kind(1d0)), dimension(5, 3) ksurf_paved
real(kind(1d0)) narp_trans_site
real(kind(1d0)), dimension(5) alb_ibld_bldgs
integer, dimension(nsurf) c_wgtodectr
real(kind(1d0)), dimension(nvegsurf) lai_id
integer, dimension(nsurf) c_stormax
integer, dimension(nvegsurf) c_gsmax
integer, dimension(nsurfincsnow) c_surf_k5
real(kind(1d0)), dimension(2) trafficrate
integer, dimension(nsurf) c_statelimit
real(kind(1d0)), dimension(5, nsurfincsnow) rsurf_suewssurfs
real(kind(1d0)), dimension(9, maxnumberofgrids) wuday_id_grids
real(kind(1d0)), dimension(5) zroof
integer, dimension(nsurf) cmod_snowwaterstate
real(kind(1d0)) lenday_id
integer c_tcriticheating_wd
real(kind(1d0)) popdensnighttime
integer, dimension(24) c_hrprofenusewd
real(kind(1d0)) porosity_id
integer, dimension(5) c_surf_k1_bldgs
real(kind(1d0)) trafficunits
real(kind(1d0)), dimension(maxnumberofgrids) decidcap_id_grids
real(kind(1d0)), dimension(nsurf) cpanohm
integer, dimension(nvegsurf) c_leafop1
real(kind(1d0)), dimension(2) qf_b
real(kind(1d0)), dimension(5) ch_ibld_bldgs
integer, dimension(nvegsurf) c_resp_a
real(kind(1d0)), dimension(5, 5) rsurf_bldgs
real(kind(1d0)) albmin_dectr
real(kind(1d0)) traffprofwe
real(kind(1d0)), dimension(5) rground
integer, dimension(nsurfincsnow) c_a3_sdry
integer, dimension(nsurfincsnow) c_a1_wwet
integer, dimension(nsurf) cmod_snowpack
integer, dimension(5) c_wall_thick5_bldgs
real(kind(1d0)), dimension(nvegsurf) basete
real(kind(1d0)) albgrass_id
real(kind(1d0)), dimension(:), allocatable dqnsdt_grids
real(kind(1d0)) minqfmetab
real(kind(1d0)), dimension(nsurf) snowpack
real(kind(1d0)), dimension(5) kground
integer, dimension(nvegsurf) c_basete
integer cmds_laiinitialdectr
real(kind(1d0)) maxfcmetab
real(kind(1d0)), dimension(6, nsurf) storedrainprm
integer, dimension(nvegsurf) c_alpha_enh_bioco2
integer, dimension(5) c_internal_thick5_bldgs
integer, dimension(nsurfincsnow) c_a1_swet
integer, dimension(3) c_surf_thick3_paved
real(kind(1d0)), dimension(nvegsurf, maxnumberofgrids) sdd_id_grids
real(kind(1d0)), dimension(5) ch_iwall_bldgs
real(kind(1d0)), dimension(maxnumberofgrids) albgrass_id_grids
integer, dimension(5) c_wall_k1_bldgs
real(kind(1d0)) traffprofwd
real(kind(1d0)), dimension(0:23, 2) traffprof_24hr
real(kind(1d0)), dimension(7) daywatper
real(kind(1d0)), dimension(nsurf) sfr
real(kind(1d0)) snowlimbldg
integer, dimension(5) c_surf_rhocp2_bldgs
integer netradiationmethod
real(kind(1d0)), dimension(0:23, 2) wuprofa_24hr
integer, dimension(nsurfincsnow) c_a3_wwet
real(kind(1d0)), dimension(:, :, :), allocatable metforcingdata
real(kind(1d0)), dimension(5) zground
integer roughlenmommethod
integer, dimension(nsurfincsnow) c_surf_k1
integer, dimension(nvegsurf) c_beta_bioco2
integer c_ahslopeheating_we
integer, dimension(nsurf) cmod_soilstate
integer, dimension(nsurf) c_wgtobldgs
integer, dimension(nsurf) c_wgtobsoil
real(kind(1d0)), dimension(9) wuday_id
integer, dimension(3) c_surf_rhocp1_paved
integer cmds_laiinitialevetr
integer, dimension(3) c_surf_k3_paved
real(kind(1d0)), dimension(:, :, :), allocatable estmforcingdata
integer, dimension(nsurfincsnow) c_surf_thick1
integer c_internal_thick3
real(kind(1d0)), dimension(nvegsurf) min_res_bioco2
real(kind(1d0)) frfossilfuel_nonheat
integer, dimension(5) c_wall_k4_bldgs
integer, dimension(24) c_hrprofwuautowe
integer c_ahslopecooling_we
integer, dimension(5) c_internal_k1_bldgs
real(kind(1d0)) snowdensmax
integer, parameter decidsurf
real(kind(1d0)), dimension(:), allocatable tair_av_grids
integer, dimension(5) c_ch_iroof_bldgs
real(kind(1d0)) ef_umolco2perj
integer, dimension(5) c_surf_thick5_bldgs
integer, parameter pavsurf
real(kind(1d0)), dimension(2) ah_slope_cooling
integer, dimension(nsurf) cmds_snowdens
real(kind(1d0)), dimension(nsurf) alb
real(kind(1d0)) irrfracdecid
real(kind(1d0)) preciplimitalb
real(kind(1d0)) pormin_dec
integer, dimension(nsurf) c_wgtoevetr
real(kind(1d0)), dimension(nvegsurf) beta_enh_bioco2
integer, dimension(nsurf) c_kkanohm
integer, dimension(5) c_internal_k2_bldgs
integer, dimension(nvegsurf) c_baset
real(kind(1d0)), dimension(0:23, 2) humactivity_24hr
integer, dimension(3) c_surf_rhocp3_paved
real(kind(1d0)), dimension(5, 5) kibld_bldgs
real(kind(1d0)), dimension(:), allocatable dqndt_grids
subroutine errorhint(errh, ProblemFile, VALUE, value2, valueI)
integer storageheatmethod
integer, dimension(24) c_hrprofenusewe
real(kind(1d0)), dimension(5) em_ibld_bldgs
integer, dimension(5) c_wall_thick1_bldgs
real(kind(1d0)), dimension(:, :, :), allocatable modeloutputdata
integer, dimension(5) c_surf_k5_bldgs
integer, dimension(5) c_wall_k3_bldgs
real(kind(1d0)) capmin_dec
integer, parameter bldgsurf
integer, parameter watersurf
integer, dimension(nsurf) c_drcoef1
integer, dimension(5) c_wall_thick2_bldgs
real(kind(1d0)) popprofwd
real(kind(1d0)), dimension(nvegsurf) gdd_id
real(kind(1d0)), dimension(nvegsurf) sddfull
integer, dimension(nvegsurf) c_gddfull
real(kind(1d0)), dimension(:), allocatable ts5mindata_ir
real(kind(1d0)), dimension(5) ch_iroof_bldgs
integer, dimension(5) c_internal_rhocp1_bldgs
real(kind(1d0)) enef_v_jkm
character(len=150) fileoutputpath
real(kind(1d0)), dimension(maxnumberofgrids) tmax_id_grids
real(kind(1d0)), dimension(2) qf0_beu
character(len=150) filechoices
integer, dimension(24) c_hrprofpopwe
integer cmds_laiinitialgrass
real(kind(1d0)), dimension(nvegsurf) baset
real(kind(1d0)) press_hpa
integer, dimension(nsurf) c_emis
integer, dimension(nsurfincsnow) c_surf_k3
real(kind(1d0)) snowalbmin
real(kind(1d0)), dimension(7) daywat
real(kind(1d0)) runofftowater
real(kind(1d0)) flowchange
integer, dimension(5) c_ch_iwall_bldgs
real(kind(1d0)), dimension(nvegsurf, maxnumberofgrids) gdd_id_grids
integer, dimension(nsurfincsnow) c_ohmthresh_sw
integer, dimension(nsurfincsnow) c_surf_rhocp4
integer c_tcriticcooling_wd
real(kind(1d0)), dimension(nvegsurf) beta_bioco2
integer, dimension(5) c_wall_rhocp1_bldgs
real(kind(1d0)) albdectr_id
integer, dimension(5) c_surf_thick3_bldgs
real(kind(1d0)) irrfracconif
integer, dimension(3) c_surf_k4_paved
integer, parameter ivdecid
integer, dimension(5) c_internal_thick1_bldgs
integer, dimension(3) c_surf_thick5_paved
real(kind(1d0)), dimension(nsurf+1, nsurf - 1) waterdist
real(kind(1d0)) decidcap_id
real(kind(1d0)) albmax_dectr
integer c_internal_rhocp2