SUEWS API Site
Documentation of SUEWS source code
Variables
allocatearray Module Reference

Variables

integer, parameter maxnumberofgrids = 10000
 
integer, parameter maxlinesmet = 8640
 
integer, parameter ncolumnssiteselect = 101
 
integer, parameter ncolumnsnonveg = 24
 
integer, parameter ncolumnsveg = 38
 
integer, parameter ncolumnswater = 22
 
integer, parameter ncolumnssnow = 25
 
integer, parameter ncolumnssoil = 9
 
integer, parameter ncolumnsconductance = 13
 
integer, parameter ncolumnsohmcoefficients = 4
 
integer, parameter ncolumnsestmcoefficients = 52
 
integer, parameter ncolumnsanthropogenic = 39
 
integer, parameter ncolumnsirrigation = 25
 
integer, parameter ncolumnsprofiles = 25
 
integer, parameter ncolumnswgwaterdist = 10
 
integer, parameter ncolumnsbiogen = 9
 
integer, parameter ncolumnsmetforcingdata = 24
 
integer, parameter ncolsestmdata = 13
 
integer, parameter ncolumnsdataoutsuews = 87
 
integer, parameter ncolumnsdataoutsnow = 103
 
integer, parameter ncolumnsdataoutsol = 31
 
integer, parameter ncolumnsdataoutbl = 22
 
integer, parameter ncolumnsdataoutestm = 32
 
integer, parameter ncolumnsdataoutdailystate = 50
 
integer, parameter ncolumnsdataoutrsl = 125
 
character(len=20), dimension(ncolumnssiteselectheadersiteselect_file
 
character(len=20), dimension(ncolumnsnonvegheadernonveg_file
 
character(len=20), dimension(ncolumnsnonvegheadernonveg_reqd
 
character(len=20), dimension(ncolumnsvegheaderveg_file
 
character(len=20), dimension(ncolumnsvegheaderveg_reqd
 
character(len=20), dimension(ncolumnswaterheaderwater_file
 
character(len=20), dimension(ncolumnswaterheaderwater_reqd
 
character(len=20), dimension(ncolumnssnowheadersnow_file
 
character(len=20), dimension(ncolumnssnowheadersnow_reqd
 
character(len=20), dimension(ncolumnssoilheadersoil_file
 
character(len=20), dimension(ncolumnssoilheadersoil_reqd
 
character(len=20), dimension(ncolumnsconductanceheadercond_file
 
character(len=20), dimension(ncolumnsconductanceheadercond_reqd
 
character(len=20), dimension(ncolumnsohmcoefficientsheaderohmcoefficients_file
 
character(len=20), dimension(ncolumnsohmcoefficientsheaderohmcoefficients_reqd
 
character(len=20), dimension(ncolumnsestmcoefficientsheaderestmcoefficients_file
 
character(len=20), dimension(ncolumnsestmcoefficientsheaderestmcoefficients_reqd
 
character(len=20), dimension(ncolumnsanthropogenicheaderanthropogenic_file
 
character(len=20), dimension(ncolumnsanthropogenicheaderanthropogenic_reqd
 
character(len=20), dimension(ncolumnsirrigationheaderirrigation_file
 
character(len=20), dimension(ncolumnsirrigationheaderirrigation_reqd
 
character(len=20), dimension(ncolumnsprofilesheaderprofiles_file
 
character(len=20), dimension(ncolumnsprofilesheaderprofiles_reqd
 
character(len=20), dimension(ncolumnswgwaterdistheaderwgwaterdist_file
 
character(len=20), dimension(ncolumnswgwaterdistheaderwgwaterdist_reqd
 
character(len=20), dimension(ncolumnsbiogenheaderbiogen_file
 
character(len=20), dimension(ncolumnsbiogenheaderbiogen_reqd
 
integer, dimension(:), allocatable usecolumnsdataout
 
character(len=14 *ncolumnsdataoutsuewsheaderuse
 
character(len=14 *ncolumnsdataoutsuewsformatuse
 
character(len=14 *ncolumnsdataoutsuewsheaderusenosep
 
character(len=14 *ncolumnsdataoutsuewsformatusenosep
 
character(len=52 *ncolumnsdataoutsuewslongnmuse
 
character(len=14 *ncolumnsdataoutsuewsunitsuse
 
character(len=3 *ncolumnsdataoutsuewsaggreguse
 
character(len=4 *ncolumnsdataoutsuewscolnosuse
 
real(kind(1d0)), dimension(:, :), allocatable siteselect
 
real(kind(1d0)), dimension(:, :), allocatable nonveg_coeff
 
real(kind(1d0)), dimension(:, :), allocatable veg_coeff
 
real(kind(1d0)), dimension(:, :), allocatable water_coeff
 
real(kind(1d0)), dimension(:, :), allocatable snow_coeff
 
real(kind(1d0)), dimension(:, :), allocatable soil_coeff
 
real(kind(1d0)), dimension(:, :), allocatable conductance_coeff
 
real(kind(1d0)), dimension(:, :), allocatable ohmcoefficients_coeff
 
real(kind(1d0)), dimension(:, :), allocatable estmcoefficients_coeff
 
real(kind(1d0)), dimension(:, :), allocatable anthropogenic_coeff
 
real(kind(1d0)), dimension(:, :), allocatable irrigation_coeff
 
real(kind(1d0)), dimension(:, :), allocatable profiles_coeff
 
real(kind(1d0)), dimension(:, :), allocatable wgwaterdist_coeff
 
real(kind(1d0)), dimension(:, :), allocatable biogen_coeff
 
integer, dimension(:), allocatable grididmatrix
 
integer, dimension(:), allocatable grididmatrix0
 
real(kind(1d0)), dimension(:, :), allocatable surfacechar
 
real(kind(1d0)), dimension(:, :, :), allocatable metforcingdata
 
real(kind(1d0)), dimension(:, :), allocatable metforcingdata_grid
 
real(kind(1d0)), dimension(:, :, :), allocatable estmforcingdata
 
real(kind(1d0)), dimension(:, :), allocatable modeldailystate
 
real(kind(1d0)), dimension(:), allocatable dailystatefirstopen
 
real(kind(1d0)), dimension(:, :, :), allocatable modeloutputdata
 
real(kind(1d0)), dimension(:, :, :), allocatable dataoutsuews
 
real(kind(1d0)), dimension(:, :, :), allocatable dataoutrsl
 
real(kind(1d0)), dimension(:, :, :), allocatable dataoutbl
 
real(kind(1d0)), dimension(:, :, :), allocatable dataoutsol
 
real(kind(1d0)), dimension(:, :, :), allocatable dataoutsnow
 
real(kind(1d0)), dimension(:, :, :), allocatable dataoutestm
 
real(kind(1d0)), dimension(:, :, :), allocatable dataoutdailystate
 
real(kind(1d0)), dimension(5) datetimeline
 
real(kind(1d0)), dimension(ncolumnsdataoutsuews - 5) dataoutlinesuews
 
real(kind(1d0)), dimension(ncolumnsdataoutsnow - 5) dataoutlinesnow
 
real(kind(1d0)), dimension(ncolumnsdataoutrsl - 5) dataoutlinersl
 
real(kind(1d0)), dimension(ncolumnsdataoutdailystate - 5) dailystateline
 
real(kind(1d0)), dimension(:, :), allocatable metfordisagg
 
real(kind(1d0)), dimension(:), allocatable metfordisaggprev
 
real(kind(1d0)), dimension(:), allocatable metfordisaggnext
 
real(kind(1d0)), dimension(:, :), allocatable estmfordisagg
 
real(kind(1d0)), dimension(:), allocatable estmfordisaggprev
 
real(kind(1d0)), dimension(:), allocatable estmfordisaggnext
 
real(kind(1d0)), dimension(0:23, 2) ahprof_24hr
 
real(kind(1d0)), dimension(0:23, 2) humactivity_24hr
 
real(kind(1d0)), dimension(0:23, 2) traffprof_24hr
 
real(kind(1d0)), dimension(0:23, 2) popprof_24hr
 
real(kind(1d0)), dimension(0:23, 2) wuprofm_24hr
 
real(kind(1d0)), dimension(0:23, 2) wuprofa_24hr
 
real(kind(1d0)), dimension(:, :), allocatable ts5mindata
 
real(kind(1d0)), dimension(:), allocatable ts5mindata_ir
 
real(kind(1d0)), dimension(:), allocatable tair24hr
 
real(kind(1d0)), dimension(27) dataoutlineestm
 
integer ctp_enusewd = 1
 
integer ctp_enusewe = 2
 
integer ctp_wumanuwd = 3
 
integer ctp_wumanuwe = 4
 
integer ctp_wuautowd = 5
 
integer ctp_wuautowe = 6
 
integer ctp_snowcwd = 7
 
integer ctp_snowcwe = 8
 
integer ctp_humactivitywd = 9
 
integer ctp_humactivitywe = 10
 
integer ctp_traffprofwd = 11
 
integer ctp_traffprofwe = 12
 
integer ctp_popprofwd = 13
 
integer ctp_popprofwe = 14
 
integer, parameter nsurf = 7
 
integer, parameter nvegsurf = 3
 
integer, parameter nsurfincsnow = nsurf + 1
 
integer, parameter pavsurf = 1
 
integer, parameter bldgsurf = 2
 
integer, parameter conifsurf = 3
 
integer, parameter decidsurf = 4
 
integer, parameter grasssurf = 5
 
integer, parameter bsoilsurf = 6
 
integer, parameter watersurf = 7
 
integer, parameter excesssurf = 8
 
integer, parameter nsurfdonotreceivedrainage = 0
 
integer, parameter ivconif = 1
 
integer, parameter ivdecid = 2
 
integer, parameter ivgrass = 3
 
real(kind(1d0)), dimension(nsurf) sfr
 
real(kind(1d0)), dimension(nsurf) addwater
 
real(kind(1d0)), dimension(nsurf) addwaterrunoff
 
real(kind(1d0)), dimension(nsurf) chang
 
real(kind(1d0)), dimension(nsurf) drain
 
real(kind(1d0)), dimension(nsurf) evap
 
real(kind(1d0)), dimension(nsurf) runoff
 
real(kind(1d0)), dimension(nsurf) runoffsoil
 
real(kind(1d0)), dimension(nsurf) smd_nsurf
 
real(kind(1d0)), dimension(nsurf) smd_nsurfout
 
real(kind(1d0)), dimension(nsurf) soilstore_id
 
real(kind(1d0)), dimension(nsurf) soilstoreold
 
real(kind(1d0)), dimension(nsurf) state_id
 
real(kind(1d0)), dimension(nsurf) stateout
 
real(kind(1d0)), dimension(nsurf) stateold
 
real(kind(1d0)), dimension(nsurf) rss_nsurf
 
real(kind(1d0)), dimension(nsurf) wetthresh
 
real(kind(1d0)), dimension(nsurf) statelimit
 
real(kind(1d0)), dimension(1) waterdepth
 
real(kind(1d0)), dimension(nsurf) sathydraulicconduct
 
real(kind(1d0)), dimension(nsurf) soildepth
 
real(kind(1d0)), dimension(nsurf) soilstorecap
 
real(kind(1d0)), dimension(nsurf+1, nsurf - 1) waterdist
 
real(kind(1d0)), dimension(6, nsurf) storedrainprm
 
integer, parameter ndays = 366
 
real(kind(1d0)), dimension(nvegsurf) gdd_id
 
real(kind(1d0)), dimension(nvegsurf) gdd_id_prev
 
real(kind(1d0)), dimension(nvegsurf) sdd_id
 
real(kind(1d0)) tmin_id
 
real(kind(1d0)) tmax_id
 
real(kind(1d0)) lenday_id
 
real(kind(1d0)), dimension(12) hdd_id
 
real(kind(1d0)), dimension(9) wuday_id
 
real(kind(1d0)), dimension(9) wuday_id_prev
 
real(kind(1d0)), dimension(nvegsurf) lai_id
 
real(kind(1d0)), dimension(nvegsurf) lai_id_prev
 
real(kind(1d0)) albmin_dectr
 
real(kind(1d0)) albmax_dectr
 
real(kind(1d0)) capmin_dec
 
real(kind(1d0)) capmax_dec
 
real(kind(1d0)) pormin_dec
 
real(kind(1d0)) pormax_dec
 
real(kind(1d0)) albmin_evetr
 
real(kind(1d0)) albmax_evetr
 
real(kind(1d0)) albmin_grass
 
real(kind(1d0)) albmax_grass
 
real(kind(1d0)), dimension(nvegsurf, maxnumberofgrids) gdd_id_grids
 
real(kind(1d0)), dimension(nvegsurf, maxnumberofgrids) sdd_id_grids
 
real(kind(1d0)), dimension(maxnumberofgrids) tmin_id_grids
 
real(kind(1d0)), dimension(maxnumberofgrids) tmax_id_grids
 
real(kind(1d0)), dimension(maxnumberofgrids) lenday_id_grids
 
real(kind(1d0)), dimension(12, maxnumberofgrids) hdd_id_grids
 
real(kind(1d0)), dimension(9, maxnumberofgrids) wuday_id_grids
 
real(kind(1d0)), dimension(nvegsurf, maxnumberofgrids) lai_id_grids
 
real(kind(1d0)), dimension(maxnumberofgrids) decidcap_id_grids
 
real(kind(1d0)), dimension(maxnumberofgrids) albdectr_id_grids
 
real(kind(1d0)), dimension(maxnumberofgrids) albevetr_id_grids
 
real(kind(1d0)), dimension(maxnumberofgrids) albgrass_id_grids
 
real(kind(1d0)), dimension(maxnumberofgrids) porosity_id_grids
 
real(kind(1d0)) decidcap_id
 
real(kind(1d0)) albdectr_id
 
real(kind(1d0)) albevetr_id
 
real(kind(1d0)) albgrass_id
 
real(kind(1d0)) porosity_id
 
real(kind(1d0)) xbo
 
real(kind(1d0)), dimension(nvegsurf) baset
 
real(kind(1d0)), dimension(nvegsurf) basete
 
real(kind(1d0)), dimension(nvegsurf) gddfull
 
real(kind(1d0)), dimension(nvegsurf) sddfull
 
real(kind(1d0)), dimension(nvegsurf) laimin
 
real(kind(1d0)), dimension(nvegsurf) laimax
 
real(kind(1d0)), dimension(nvegsurf) maxconductance
 
real(kind(1d0)), dimension(4, nvegsurf) laipower
 
integer, dimension(nvegsurflaitype
 
real(kind(1d0)), dimension(nvegsurf) biogenco2code
 
real(kind(1d0)), dimension(nvegsurf) alpha_bioco2
 
real(kind(1d0)), dimension(nvegsurf) beta_bioco2
 
real(kind(1d0)), dimension(nvegsurf) theta_bioco2
 
real(kind(1d0)), dimension(nvegsurf) alpha_enh_bioco2
 
real(kind(1d0)), dimension(nvegsurf) beta_enh_bioco2
 
real(kind(1d0)), dimension(nvegsurf) resp_a
 
real(kind(1d0)), dimension(nvegsurf) resp_b
 
real(kind(1d0)), dimension(nvegsurf) min_res_bioco2
 
real(kind(1d0)), dimension(nsurf) alb
 
real(kind(1d0)), dimension(nsurf) emis
 
real(kind(1d0)) bulkalbedo
 
real(kind(1d0)), dimension(nsurf) tsurf_ind
 
real(kind(1d0)), dimension(nsurf) tsurf_ind_snow
 
real(kind(1d0)), dimension(nsurf) tsurf_ind_nosnow
 
real(kind(1d0)), dimension(nsurf) kup_ind
 
real(kind(1d0)), dimension(nsurf) kup_ind_snow
 
real(kind(1d0)), dimension(nsurf) kup_ind_nosnow
 
real(kind(1d0)), dimension(nsurf) lup_ind
 
real(kind(1d0)), dimension(nsurf) lup_ind_snow
 
real(kind(1d0)), dimension(nsurf) lup_ind_nosnow
 
real(kind(1d0)), dimension(nsurf) qn1_ind
 
real(kind(1d0)), dimension(nsurf) qn1_ind_snow
 
real(kind(1d0)), dimension(nsurf) qn1_ind_nosnow
 
real(kind(1d0)) narp_lat
 
real(kind(1d0)) narp_long
 
real(kind(1d0)) narp_year
 
real(kind(1d0)) narp_tz
 
real(kind(1d0)) narp_alb_snow
 
real(kind(1d0)) narp_emis_snow
 
real(kind(1d0)) narp_trans_site
 
real(kind(1d0)), dimension(365) narp_g
 
integer narp_nperhour
 
real(kind(1d0)), dimension(:), allocatable narp_kdown_hr
 
real(kind(1d0)), parameter deg2rad = 0.017453292
 
real(kind(1d0)), parameter rad2deg = 57.29577951
 
real(kind(1d0)), parameter sigma_sb = 5.67E-8
 
real(kind(1d0)), dimension(nsurf+1, 4, 3) ohm_coef
 
real(kind(1d0)), dimension(nsurf+1) ohm_threshsw
 
real(kind(1d0)), dimension(nsurf+1) ohm_threshwd
 
real(kind(1d0)) a1
 
real(kind(1d0)) a2
 
real(kind(1d0)) a3
 
real(kind(1d0)), dimension(:), allocatable tair_av_grids
 
real(kind(1d0)), dimension(:), allocatable qn1_av_grids
 
real(kind(1d0)), dimension(:), allocatable qn1_s_av_grids
 
real(kind(1d0)), dimension(:), allocatable dqndt_grids
 
real(kind(1d0)), dimension(:), allocatable dqnsdt_grids
 
real(kind(1d0)) qn1_av
 
real(kind(1d0)) dqndt
 
real(kind(1d0)) tair_av
 
real(kind(1d0)) qn1_s_av
 
real(kind(1d0)) dqnsdt
 
real(kind(1d0)), dimension(nsurf) changsnow
 
real(kind(1d0)), dimension(nsurf) maxsnowvol
 
real(kind(1d0)), dimension(nsurf) snowwater
 
real(kind(1d0)), dimension(nsurf) ev_snow
 
real(kind(1d0)), dimension(nsurf) mw_ind
 
real(kind(1d0)), dimension(nsurf) mw_indday
 
real(kind(1d0)), dimension(nsurf) runoffsnow
 
real(kind(1d0)), dimension(nsurf) snowdens
 
real(kind(1d0)), dimension(nsurf) snowfrac
 
real(kind(1d0)), dimension(nsurf) icefrac
 
real(kind(1d0)), dimension(nsurf) snowinit
 
real(kind(1d0)), dimension(nsurf) snowdepth
 
real(kind(1d0)), dimension(nsurf) snowtosurf
 
real(kind(1d0)), dimension(nsurf) volswe
 
real(kind(1d0)), dimension(nsurf) statefraction
 
real(kind(1d0)), dimension(nsurf) freezmelt
 
real(kind(1d0)), dimension(nsurf) qm_freezstate
 
real(kind(1d0)), dimension(nsurf) freezstate
 
real(kind(1d0)), dimension(nsurf) freezstatevol
 
real(kind(1d0)), dimension(nsurf) qm_melt
 
real(kind(1d0)), dimension(nsurf) qm_rain
 
real(kind(1d0)), dimension(nsurf) rainonsnow
 
real(kind(1d0)), dimension(nsurf) snowpacklimit
 
real(kind(1d0)), dimension(nsurf) deltaqi
 
real(kind(1d0)), dimension(nsurf, maxnumberofgrids) icefrac_grids
 
real(kind(1d0)), dimension(nsurf) snowpack
 
real(kind(1d0)), dimension(nsurf) snowpackold
 
integer, dimension(nsurfheig
 
integer, dimension(nsurfsnowcoverforms
 
integer, dimension(nsurfsnowcalcswitch = 0
 
integer, parameter nconns = 8
 
real(kind(1d0)), dimension(nconns) gridtofrac
 
real(kind(1d0)), dimension(nconns) gridto
 
real(kind(1d0)), dimension(maxnumberofgrids) a1anohm
 
real(kind(1d0)), dimension(maxnumberofgrids) a2anohm
 
real(kind(1d0)), dimension(maxnumberofgrids) a3anohm
 
real(kind(1d0)), dimension(maxnumberofgrids) mahanohm
 
real(kind(1d0)), dimension(maxnumberofgrids) boanohmstart
 
real(kind(1d0)), dimension(maxnumberofgrids) boanohmend
 
real(kind(1d0)), dimension(nsurf) cpanohm
 
real(kind(1d0)), dimension(nsurf) kkanohm
 
real(kind(1d0)), dimension(nsurf) chanohm
 
real(kind(1d0)), dimension(5, nsurfincsnow) zsurf_suewssurfs
 
real(kind(1d0)), dimension(5, nsurfincsnow) ksurf_suewssurfs
 
real(kind(1d0)), dimension(5, nsurfincsnow) rsurf_suewssurfs
 
integer cc
 
integer, parameter ccendsi = ncolumnsSiteSelect
 
integer, dimension(nsurfc_albmin = (/(cc, cc=ccEndSI + 0*nsurf + 1, ccEndSI + 0*nsurf + nsurf, 1)/)
 
integer, dimension(nsurfc_albmax = (/(cc, cc=ccEndSI + 1*nsurf + 1, ccEndSI + 1*nsurf + nsurf, 1)/)
 
integer, dimension(nsurfc_emis = (/(cc, cc=ccEndSI + 2*nsurf + 1, ccEndSI + 2*nsurf + nsurf, 1)/)
 
integer, dimension(nsurfc_stormin = (/(cc, cc=ccEndSI + 3*nsurf + 1, ccEndSI + 3*nsurf + nsurf, 1)/)
 
integer, dimension(nsurfc_stormax = (/(cc, cc=ccEndSI + 4*nsurf + 1, ccEndSI + 4*nsurf + nsurf, 1)/)
 
integer, dimension(nsurfc_wetthresh = (/(cc, cc=ccEndSI + 5*nsurf + 1, ccEndSI + 5*nsurf + nsurf, 1)/)
 
integer, dimension(nsurfc_statelimit = (/(cc, cc=ccEndSI + 6*nsurf + 1, ccEndSI + 6*nsurf + nsurf, 1)/)
 
integer, dimension(nsurfc_dreq = (/(cc, cc=ccEndSI + 7*nsurf + 1, ccEndSI + 7*nsurf + nsurf, 1)/)
 
integer, dimension(nsurfc_drcoef1 = (/(cc, cc=ccEndSI + 8*nsurf + 1, ccEndSI + 8*nsurf + nsurf, 1)/)
 
integer, dimension(nsurfc_drcoef2 = (/(cc, cc=ccEndSI + 9*nsurf + 1, ccEndSI + 9*nsurf + nsurf, 1)/)
 
integer, dimension(nsurfc_soiltcode = (/(cc, cc=ccEndSI + 10*nsurf + 1, ccEndSI + 10*nsurf + nsurf, 1)/)
 
integer, dimension(nsurfc_snowlimpat = (/(cc, cc=ccEndSI + 11*nsurf + 1, ccEndSI + 11*nsurf + nsurf, 1)/)
 
integer, dimension(nsurfc_snowlimrem = (/(cc, cc=ccEndSI + 12*nsurf + 1, ccEndSI + 12*nsurf + nsurf, 1)/)
 
integer, dimension(nsurfc_cpanohm = (/(cc, cc=ccEndSI + 13*nsurf + 1, ccEndSI + 13*nsurf + nsurf, 1)/)
 
integer, dimension(nsurfc_kkanohm = (/(cc, cc=ccEndSI + 14*nsurf + 1, ccEndSI + 14*nsurf + nsurf, 1)/)
 
integer, dimension(nsurfc_chanohm = (/(cc, cc=ccEndSI + 15*nsurf + 1, ccEndSI + 15*nsurf + nsurf, 1)/)
 
integer, parameter ccendi = (ccEndSI + 15*nsurf + nsurf)
 
integer, dimension(nvegsurfc_baset = (/(cc, cc=ccEndI + 0*nvegsurf + 1, ccEndI + 0*nvegsurf + nvegsurf, 1)/)
 
integer, dimension(nvegsurfc_basete = (/(cc, cc=ccEndI + 1*nvegsurf + 1, ccEndI + 1*nvegsurf + nvegsurf, 1)/)
 
integer, dimension(nvegsurfc_gddfull = (/(cc, cc=ccEndI + 2*nvegsurf + 1, ccEndI + 2*nvegsurf + nvegsurf, 1)/)
 
integer, dimension(nvegsurfc_sddfull = (/(cc, cc=ccEndI + 3*nvegsurf + 1, ccEndI + 3*nvegsurf + nvegsurf, 1)/)
 
integer, dimension(nvegsurfc_laimin = (/(cc, cc=ccEndI + 4*nvegsurf + 1, ccEndI + 4*nvegsurf + nvegsurf, 1)/)
 
integer, dimension(nvegsurfc_laimax = (/(cc, cc=ccEndI + 5*nvegsurf + 1, ccEndI + 5*nvegsurf + nvegsurf, 1)/)
 
integer, dimension(nvegsurfc_porositymin = (/(cc, cc=ccEndI + 6*nvegsurf + 1, ccEndI + 6*nvegsurf + nvegsurf, 1)/)
 
integer, dimension(nvegsurfc_porositymax = (/(cc, cc=ccEndI + 7*nvegsurf + 1, ccEndI + 7*nvegsurf + nvegsurf, 1)/)
 
integer, dimension(nvegsurfc_gsmax = (/(cc, cc=ccEndI + 8*nvegsurf + 1, ccEndI + 8*nvegsurf + nvegsurf, 1)/)
 
integer, dimension(nvegsurfc_laieq = (/(cc, cc=ccEndI + 9*nvegsurf + 1, ccEndI + 9*nvegsurf + nvegsurf, 1)/)
 
integer, dimension(nvegsurfc_leafgp1 = (/(cc, cc=ccEndI + 10*nvegsurf + 1, ccEndI + 10*nvegsurf + nvegsurf, 1)/)
 
integer, dimension(nvegsurfc_leafgp2 = (/(cc, cc=ccEndI + 11*nvegsurf + 1, ccEndI + 11*nvegsurf + nvegsurf, 1)/)
 
integer, dimension(nvegsurfc_leafop1 = (/(cc, cc=ccEndI + 12*nvegsurf + 1, ccEndI + 12*nvegsurf + nvegsurf, 1)/)
 
integer, dimension(nvegsurfc_leafop2 = (/(cc, cc=ccEndI + 13*nvegsurf + 1, ccEndI + 13*nvegsurf + nvegsurf, 1)/)
 
integer, dimension(nvegsurfc_biogenco2code = (/(cc, cc=ccEndI + 14*nvegsurf + 1, ccEndI + 14*nvegsurf + nvegsurf, 1)/)
 
integer, parameter ccendp = (ccEndI + 14*nvegsurf + nvegsurf)
 
integer c_waterdepth = (ccEndP + 1)
 
integer, parameter ccendw = (ccEndP + 1)
 
integer c_snowrmfactor = (ccEndW + 1)
 
integer c_snowtmfactor = (ccEndW + 2)
 
integer c_snowalbmin = (ccEndW + 3)
 
integer c_snowalbmax = (ccEndW + 4)
 
integer c_snowemis = (ccEndW + 6)
 
integer c_snowtau_a = (ccEndW + 7)
 
integer c_snowtau_f = (ccEndW + 8)
 
integer c_snowplimalb = (ccEndW + 9)
 
integer c_snowsdmin = (ccEndW + 10)
 
integer c_snowsdmax = (ccEndW + 11)
 
integer c_snowtau_r = (ccEndW + 12)
 
integer c_snowcrwmin = (ccEndW + 13)
 
integer c_snowcrwmax = (ccEndW + 14)
 
integer c_snowplimsnow = (ccEndW + 15)
 
integer, parameter ccendsn = (ccEndW + 15)
 
integer, dimension(nsurfc_soildepth = (/(cc, cc=ccEndSn + 0*nsurf + 1, ccEndSn + 0*nsurf + nsurf, 1)/)
 
integer, dimension(nsurfc_soilstcap = (/(cc, cc=ccEndSn + 1*nsurf + 1, ccEndSn + 1*nsurf + nsurf, 1)/)
 
integer, dimension(nsurfc_ksat = (/(cc, cc=ccEndSn + 2*nsurf + 1, ccEndSn + 2*nsurf + nsurf, 1)/)
 
integer, dimension(nsurfc_soildens = (/(cc, cc=ccEndSn + 3*nsurf + 1, ccEndSn + 3*nsurf + nsurf, 1)/)
 
integer, dimension(nsurfc_soilinfrate = (/(cc, cc=ccEndSn + 4*nsurf + 1, ccEndSn + 4*nsurf + nsurf, 1)/)
 
integer, dimension(nsurfc_obssmdepth = (/(cc, cc=ccEndSn + 5*nsurf + 1, ccEndSn + 5*nsurf + nsurf, 1)/)
 
integer, dimension(nsurfc_obssmmax = (/(cc, cc=ccEndSn + 6*nsurf + 1, ccEndSn + 6*nsurf + nsurf, 1)/)
 
integer, dimension(nsurfc_obssnrfrac = (/(cc, cc=ccEndSn + 7*nsurf + 1, ccEndSn + 7*nsurf + nsurf, 1)/)
 
integer, parameter ccendso = (ccEndSn + 7*nsurf + nsurf)
 
integer c_gsg1 = (ccEndSo + 1)
 
integer c_gsg2 = (ccEndSo + 2)
 
integer c_gsg3 = (ccEndSo + 3)
 
integer c_gsg4 = (ccEndSo + 4)
 
integer c_gsg5 = (ccEndSo + 5)
 
integer c_gsg6 = (ccEndSo + 6)
 
integer c_gsth = (ccEndSo + 7)
 
integer c_gstl = (ccEndSo + 8)
 
integer c_gss1 = (ccEndSo + 9)
 
integer c_gss2 = (ccEndSo + 10)
 
integer c_gskmax = (ccEndSo + 11)
 
integer c_gsmodel = (ccEndSo + 12)
 
integer, parameter ccendgs = (ccEndSo + 12)
 
integer, dimension(nsurfincsnowc_ohmcode_swet = (/(cc, cc=ccEndGs + 0*nsurfIncSnow + 1, ccEndGs + 0*nsurfIncSnow + nsurfIncSnow, 1)/)
 
integer, dimension(nsurfincsnowc_ohmcode_sdry = (/(cc, cc=ccEndGs + 1*nsurfIncSnow + 1, ccEndGs + 1*nsurfIncSnow + nsurfIncSnow, 1)/)
 
integer, dimension(nsurfincsnowc_ohmcode_wwet = (/(cc, cc=ccEndGs + 2*nsurfIncSnow + 1, ccEndGs + 2*nsurfIncSnow + nsurfIncSnow, 1)/)
 
integer, dimension(nsurfincsnowc_ohmcode_wdry = (/(cc, cc=ccEndGs + 3*nsurfIncSnow + 1, ccEndGs + 3*nsurfIncSnow + nsurfIncSnow, 1)/)
 
integer, dimension(nsurfincsnowc_a1_swet = (/(cc, cc=ccEndGs + 4*nsurfIncSnow + 1, ccEndGs + 4*nsurfIncSnow + nsurfIncSnow, 1)/)
 
integer, dimension(nsurfincsnowc_a2_swet = (/(cc, cc=ccEndGs + 5*nsurfIncSnow + 1, ccEndGs + 5*nsurfIncSnow + nsurfIncSnow, 1)/)
 
integer, dimension(nsurfincsnowc_a3_swet = (/(cc, cc=ccEndGs + 6*nsurfIncSnow + 1, ccEndGs + 6*nsurfIncSnow + nsurfIncSnow, 1)/)
 
integer, dimension(nsurfincsnowc_a1_sdry = (/(cc, cc=ccEndGs + 7*nsurfIncSnow + 1, ccEndGs + 7*nsurfIncSnow + nsurfIncSnow, 1)/)
 
integer, dimension(nsurfincsnowc_a2_sdry = (/(cc, cc=ccEndGs + 8*nsurfIncSnow + 1, ccEndGs + 8*nsurfIncSnow + nsurfIncSnow, 1)/)
 
integer, dimension(nsurfincsnowc_a3_sdry = (/(cc, cc=ccEndGs + 9*nsurfIncSnow + 1, ccEndGs + 9*nsurfIncSnow + nsurfIncSnow, 1)/)
 
integer, dimension(nsurfincsnowc_a1_wwet = (/(cc, cc=ccEndGs + 10*nsurfIncSnow + 1, ccEndGs + 10*nsurfIncSnow + nsurfIncSnow, 1)/)
 
integer, dimension(nsurfincsnowc_a2_wwet = (/(cc, cc=ccEndGs + 11*nsurfIncSnow + 1, ccEndGs + 11*nsurfIncSnow + nsurfIncSnow, 1)/)
 
integer, dimension(nsurfincsnowc_a3_wwet = (/(cc, cc=ccEndGs + 12*nsurfIncSnow + 1, ccEndGs + 12*nsurfIncSnow + nsurfIncSnow, 1)/)
 
integer, dimension(nsurfincsnowc_a1_wdry = (/(cc, cc=ccEndGs + 13*nsurfIncSnow + 1, ccEndGs + 13*nsurfIncSnow + nsurfIncSnow, 1)/)
 
integer, dimension(nsurfincsnowc_a2_wdry = (/(cc, cc=ccEndGs + 14*nsurfIncSnow + 1, ccEndGs + 14*nsurfIncSnow + nsurfIncSnow, 1)/)
 
integer, dimension(nsurfincsnowc_a3_wdry = (/(cc, cc=ccEndGs + 15*nsurfIncSnow + 1, ccEndGs + 15*nsurfIncSnow + nsurfIncSnow, 1)/)
 
integer, dimension(nsurfincsnowc_ohmthresh_sw = (/(cc, cc=ccEndGs + 16*nsurfIncSnow + 1, ccEndGs + 16*nsurfIncSnow + nsurfIncSnow, 1)/)
 
integer, dimension(nsurfincsnowc_ohmthresh_wd = (/(cc, cc=ccEndGs + 17*nsurfIncSnow + 1, ccEndGs + 17*nsurfIncSnow + nsurfIncSnow, 1)/)
 
integer, dimension(nsurfincsnowc_estmcode = (/(cc, cc=ccEndGs + 18*nsurfIncSnow + 1, ccEndGs + 18*nsurfIncSnow + nsurfIncSnow, 1)/)
 
integer, parameter ccendo = (ccEndGs + 18*nsurfIncSnow + nsurfIncSnow)
 
integer c_basethdd = (ccEndO + 1)
 
integer c_qf_a1 = (ccEndO + 2)
 
integer c_qf_b1 = (ccEndO + 3)
 
integer c_qf_c1 = (ccEndO + 4)
 
integer c_qf_a2 = (ccEndO + 5)
 
integer c_qf_b2 = (ccEndO + 6)
 
integer c_qf_c2 = (ccEndO + 7)
 
integer c_ahmin_wd = (ccEndO + 8)
 
integer c_ahmin_we = (ccEndO + 9)
 
integer c_ahslopeheating_wd = (ccEndO + 10)
 
integer c_ahslopeheating_we = (ccEndO + 11)
 
integer c_ahslopecooling_wd = (ccEndO + 12)
 
integer c_ahslopecooling_we = (ccEndO + 13)
 
integer c_tcriticheating_we = (ccEndO + 14)
 
integer c_tcriticheating_wd = (ccEndO + 15)
 
integer c_tcriticcooling_we = (ccEndO + 16)
 
integer c_tcriticcooling_wd = (ccEndO + 17)
 
integer c_enprofwd = (ccEndO + 18)
 
integer c_enprofwe = (ccEndO + 19)
 
integer c_co2mwd = (ccEndO + 20)
 
integer c_co2mwe = (ccEndO + 21)
 
integer c_traffprofwd = (ccEndO + 22)
 
integer c_traffprofwe = (ccEndO + 23)
 
integer c_popprofwd = (ccEndO + 24)
 
integer c_popprofwe = (ccEndO + 25)
 
integer c_minqfmetab = (ccEndO + 26)
 
integer c_maxqfmetab = (ccEndO + 27)
 
integer c_minfcmetab = (ccEndO + 28)
 
integer c_maxfcmetab = (ccEndO + 29)
 
integer c_frpddwe = (ccEndO + 30)
 
integer c_frfossilfuel_heat = (ccEndO + 31)
 
integer c_frfossilfuel_nonheat = (ccEndO + 32)
 
integer c_ef_umolco2perj = (ccEndO + 33)
 
integer c_enef_v_jkm = (ccEndO + 34)
 
integer c_fcef_v_kgkmwd = (ccEndO + 35)
 
integer c_fcef_v_kgkmwe = (ccEndO + 36)
 
integer c_co2pointsource = (ccEndO + 37)
 
integer c_trafficunits = (ccEndO + 38)
 
integer, parameter ccenda = (ccEndO + 38)
 
integer c_iestart = (ccEndA + 1)
 
integer c_ieend = (ccEndA + 2)
 
integer c_intwu = (ccEndA + 3)
 
integer c_faut = (ccEndA + 4)
 
integer, dimension(3) c_ie_a = (/(cc, cc=ccEndA + 4 + 0*3 + 1, ccEndA + 4 + 0*3 + 3, 1)/)
 
integer, dimension(3) c_ie_m = (/(cc, cc=ccEndA + 4 + 1*3 + 1, ccEndA + 4 + 1*3 + 3, 1)/)
 
integer, dimension(7) c_daywat = (/(cc, cc=ccEndA + 10 + 0*7 + 1, ccEndA + 10 + 0*7 + 7, 1)/)
 
integer, dimension(7) c_daywatper = (/(cc, cc=ccEndA + 10 + 1*7 + 1, ccEndA + 10 + 1*7 + 7, 1)/)
 
integer, parameter ccendir = (ccEndA + 10 + 1*7 + 7)
 
integer, dimension(24) c_hrprofenusewd = (/(cc, cc=ccEndIr + 0*24 + 1, ccEndIr + 0*24 + 24, 1)/)
 
integer, dimension(24) c_hrprofenusewe = (/(cc, cc=ccEndIr + 1*24 + 1, ccEndIr + 1*24 + 24, 1)/)
 
integer, dimension(24) c_hrprofwumanuwd = (/(cc, cc=ccEndIr + 2*24 + 1, ccEndIr + 2*24 + 24, 1)/)
 
integer, dimension(24) c_hrprofwumanuwe = (/(cc, cc=ccEndIr + 3*24 + 1, ccEndIr + 3*24 + 24, 1)/)
 
integer, dimension(24) c_hrprofwuautowd = (/(cc, cc=ccEndIr + 4*24 + 1, ccEndIr + 4*24 + 24, 1)/)
 
integer, dimension(24) c_hrprofwuautowe = (/(cc, cc=ccEndIr + 5*24 + 1, ccEndIr + 5*24 + 24, 1)/)
 
integer, dimension(24) c_hrprofsnowcwd = (/(cc, cc=ccEndIr + 6*24 + 1, ccEndIr + 6*24 + 24, 1)/)
 
integer, dimension(24) c_hrprofsnowcwe = (/(cc, cc=ccEndIr + 7*24 + 1, ccEndIr + 7*24 + 24, 1)/)
 
integer, dimension(24) c_hrprofhumactivitywd = (/(cc, cc=ccEndIr + 8*24 + 1, ccEndIr + 8*24 + 24, 1)/)
 
integer, dimension(24) c_hrprofhumactivitywe = (/(cc, cc=ccEndIr + 9*24 + 1, ccEndIr + 9*24 + 24, 1)/)
 
integer, dimension(24) c_hrproftraffwd = (/(cc, cc=ccEndIr + 10*24 + 1, ccEndIr + 10*24 + 24, 1)/)
 
integer, dimension(24) c_hrproftraffwe = (/(cc, cc=ccEndIr + 11*24 + 1, ccEndIr + 11*24 + 24, 1)/)
 
integer, dimension(24) c_hrprofpopwd = (/(cc, cc=ccEndIr + 12*24 + 1, ccEndIr + 12*24 + 24, 1)/)
 
integer, dimension(24) c_hrprofpopwe = (/(cc, cc=ccEndIr + 13*24 + 1, ccEndIr + 13*24 + 24, 1)/)
 
integer, parameter ccendpr = (ccEndIr + 13*24 + 24)
 
integer, dimension(nsurfc_wgtopaved = (/(cc, cc=ccEndPr + 0*nsurf + 1, ccEndPr + 0*nsurf + nsurf, 1)/)
 
integer, dimension(nsurfc_wgtobldgs = (/(cc, cc=ccEndPr + 1*nsurf + 1, ccEndPr + 1*nsurf + nsurf, 1)/)
 
integer, dimension(nsurfc_wgtoevetr = (/(cc, cc=ccEndPr + 2*nsurf + 1, ccEndPr + 2*nsurf + nsurf, 1)/)
 
integer, dimension(nsurfc_wgtodectr = (/(cc, cc=ccEndPr + 3*nsurf + 1, ccEndPr + 3*nsurf + nsurf, 1)/)
 
integer, dimension(nsurfc_wgtograss = (/(cc, cc=ccEndPr + 4*nsurf + 1, ccEndPr + 4*nsurf + nsurf, 1)/)
 
integer, dimension(nsurfc_wgtobsoil = (/(cc, cc=ccEndPr + 5*nsurf + 1, ccEndPr + 5*nsurf + nsurf, 1)/)
 
integer, dimension(nsurfc_wgtowater = (/(cc, cc=ccEndPr + 6*nsurf + 1, ccEndPr + 6*nsurf + nsurf, 1)/)
 
integer, dimension(nsurfc_wgtorunoff = (/(cc, cc=ccEndPr + 7*nsurf + 1, ccEndPr + 7*nsurf + nsurf, 1)/)
 
integer, dimension(nsurfc_wgtosoilstore = (/(cc, cc=ccEndPr + 8*nsurf + 1, ccEndPr + 8*nsurf + nsurf, 1)/)
 
integer, parameter cbendwg = (ccEndPr + 8*nsurf + nsurf)
 
integer, dimension(nvegsurfc_alpha_bioco2 = (/(cc, cc=cBEndWG + 0*nvegsurf + 1, cBEndWG + 0*nvegsurf + nvegsurf, 1)/)
 
integer, dimension(nvegsurfc_beta_bioco2 = (/(cc, cc=cBEndWG + 1*nvegsurf + 1, cBEndWG + 1*nvegsurf + nvegsurf, 1)/)
 
integer, dimension(nvegsurfc_theta_bioco2 = (/(cc, cc=cBEndWG + 2*nvegsurf + 1, cBEndWG + 2*nvegsurf + nvegsurf, 1)/)
 
integer, dimension(nvegsurfc_alpha_enh_bioco2 = (/(cc, cc=cBEndWG + 3*nvegsurf + 1, cBEndWG + 3*nvegsurf + nvegsurf, 1)/)
 
integer, dimension(nvegsurfc_beta_enh_bioco2 = (/(cc, cc=cBEndWG + 4*nvegsurf + 1, cBEndWG + 4*nvegsurf + nvegsurf, 1)/)
 
integer, dimension(nvegsurfc_resp_a = (/(cc, cc=cBEndWG + 5*nvegsurf + 1, cBEndWG + 5*nvegsurf + nvegsurf, 1)/)
 
integer, dimension(nvegsurfc_resp_b = (/(cc, cc=cBEndWG + 6*nvegsurf + 1, cBEndWG + 6*nvegsurf + nvegsurf, 1)/)
 
integer, dimension(nvegsurfc_min_res_bioco2 = (/(cc, cc=cBEndWG + 7*nvegsurf + 1, cBEndWG + 7*nvegsurf + nvegsurf, 1)/)
 
integer, parameter ccendb = (cBEndWG + 7*nvegsurf + nvegsurf)
 
integer, dimension(nsurfincsnowc_surf_thick1 = [(cc, cc=ccEndB + 0*nsurfIncSnow + 1, ccEndB + 0*nsurfIncSnow + nsurfIncSnow, 1)]
 
integer, dimension(nsurfincsnowc_surf_k1 = [(cc, cc=ccEndB + 1*nsurfIncSnow + 1, ccEndB + 1*nsurfIncSnow + nsurfIncSnow, 1)]
 
integer, dimension(nsurfincsnowc_surf_rhocp1 = [(cc, cc=ccEndB + 2*nsurfIncSnow + 1, ccEndB + 2*nsurfIncSnow + nsurfIncSnow, 1)]
 
integer, dimension(nsurfincsnowc_surf_thick2 = [(cc, cc=ccEndB + 3*nsurfIncSnow + 1, ccEndB + 3*nsurfIncSnow + nsurfIncSnow, 1)]
 
integer, dimension(nsurfincsnowc_surf_k2 = [(cc, cc=ccEndB + 4*nsurfIncSnow + 1, ccEndB + 4*nsurfIncSnow + nsurfIncSnow, 1)]
 
integer, dimension(nsurfincsnowc_surf_rhocp2 = [(cc, cc=ccEndB + 5*nsurfIncSnow + 1, ccEndB + 5*nsurfIncSnow + nsurfIncSnow, 1)]
 
integer, dimension(nsurfincsnowc_surf_thick3 = [(cc, cc=ccEndB + 6*nsurfIncSnow + 1, ccEndB + 6*nsurfIncSnow + nsurfIncSnow, 1)]
 
integer, dimension(nsurfincsnowc_surf_k3 = [(cc, cc=ccEndB + 7*nsurfIncSnow + 1, ccEndB + 7*nsurfIncSnow + nsurfIncSnow, 1)]
 
integer, dimension(nsurfincsnowc_surf_rhocp3 = [(cc, cc=ccEndB + 8*nsurfIncSnow + 1, ccEndB + 8*nsurfIncSnow + nsurfIncSnow, 1)]
 
integer, dimension(nsurfincsnowc_surf_thick4 = [(cc, cc=ccEndB + 9*nsurfIncSnow + 1, ccEndB + 9*nsurfIncSnow + nsurfIncSnow, 1)]
 
integer, dimension(nsurfincsnowc_surf_k4 = [(cc, cc=ccEndB + 10*nsurfIncSnow + 1, ccEndB + 10*nsurfIncSnow + nsurfIncSnow, 1)]
 
integer, dimension(nsurfincsnowc_surf_rhocp4 = [(cc, cc=ccEndB + 11*nsurfIncSnow + 1, ccEndB + 11*nsurfIncSnow + nsurfIncSnow, 1)]
 
integer, dimension(nsurfincsnowc_surf_thick5 = [(cc, cc=ccEndB + 12*nsurfIncSnow + 1, ccEndB + 12*nsurfIncSnow + nsurfIncSnow, 1)]
 
integer, dimension(nsurfincsnowc_surf_k5 = [(cc, cc=ccEndB + 13*nsurfIncSnow + 1, ccEndB + 13*nsurfIncSnow + nsurfIncSnow, 1)]
 
integer, dimension(nsurfincsnowc_surf_rhocp5 = [(cc, cc=ccEndB + 14*nsurfIncSnow + 1, ccEndB + 14*nsurfIncSnow + nsurfIncSnow, 1)]
 
integer, parameter ccendestmb = (ccEndB + 14*nsurfIncSnow + nsurfIncSnow)
 
integer c_wall_thick1 = (ccEndESTMB + 1)
 
integer c_wall_k1 = (ccEndESTMB + 2)
 
integer c_wall_rhocp1 = (ccEndESTMB + 3)
 
integer c_wall_thick2 = (ccEndESTMB + 4)
 
integer c_wall_k2 = (ccEndESTMB + 5)
 
integer c_wall_rhocp2 = (ccEndESTMB + 6)
 
integer c_wall_thick3 = (ccEndESTMB + 7)
 
integer c_wall_k3 = (ccEndESTMB + 8)
 
integer c_wall_rhocp3 = (ccEndESTMB + 9)
 
integer c_wall_thick4 = (ccEndESTMB + 10)
 
integer c_wall_k4 = (ccEndESTMB + 11)
 
integer c_wall_rhocp4 = (ccEndESTMB + 12)
 
integer c_wall_thick5 = (ccEndESTMB + 13)
 
integer c_wall_k5 = (ccEndESTMB + 14)
 
integer c_wall_rhocp5 = (ccEndESTMB + 15)
 
integer c_internal_thick1 = (ccEndESTMB + 16)
 
integer c_internal_k1 = (ccEndESTMB + 17)
 
integer c_internal_rhocp1 = (ccEndESTMB + 18)
 
integer c_internal_thick2 = (ccEndESTMB + 19)
 
integer c_internal_k2 = (ccEndESTMB + 20)
 
integer c_internal_rhocp2 = (ccEndESTMB + 21)
 
integer c_internal_thick3 = (ccEndESTMB + 22)
 
integer c_internal_k3 = (ccEndESTMB + 23)
 
integer c_internal_rhocp3 = (ccEndESTMB + 24)
 
integer c_internal_thick4 = (ccEndESTMB + 25)
 
integer c_internal_k4 = (ccEndESTMB + 26)
 
integer c_internal_rhocp4 = (ccEndESTMB + 27)
 
integer c_internal_thick5 = (ccEndESTMB + 28)
 
integer c_internal_k5 = (ccEndESTMB + 29)
 
integer c_internal_rhocp5 = (ccEndESTMB + 30)
 
integer c_nroom = (ccEndESTMB + 31)
 
integer c_alb_ibld = (ccEndESTMB + 32)
 
integer c_em_ibld = (ccEndESTMB + 33)
 
integer c_ch_iwall = (ccEndESTMB + 34)
 
integer c_ch_iroof = (ccEndESTMB + 35)
 
integer c_ch_ibld = (ccEndESTMB + 36)
 
integer, parameter ccendestmm = (ccEndESTMB + 36)
 
integer, dimension(3) c_surf_thick1_paved = (/(cc, cc=ccEndESTMM + 0*3 + 1, ccEndESTMM + 0*3 + 3, 1)/)
 
integer, dimension(3) c_surf_k1_paved = (/(cc, cc=ccEndESTMM + 1*3 + 1, ccEndESTMM + 1*3 + 3, 1)/)
 
integer, dimension(3) c_surf_rhocp1_paved = (/(cc, cc=ccEndESTMM + 2*3 + 1, ccEndESTMM + 2*3 + 3, 1)/)
 
integer, dimension(3) c_surf_thick2_paved = (/(cc, cc=ccEndESTMM + 3*3 + 1, ccEndESTMM + 3*3 + 3, 1)/)
 
integer, dimension(3) c_surf_k2_paved = (/(cc, cc=ccEndESTMM + 4*3 + 1, ccEndESTMM + 4*3 + 3, 1)/)
 
integer, dimension(3) c_surf_rhocp2_paved = (/(cc, cc=ccEndESTMM + 5*3 + 1, ccEndESTMM + 5*3 + 3, 1)/)
 
integer, dimension(3) c_surf_thick3_paved = (/(cc, cc=ccEndESTMM + 6*3 + 1, ccEndESTMM + 6*3 + 3, 1)/)
 
integer, dimension(3) c_surf_k3_paved = (/(cc, cc=ccEndESTMM + 7*3 + 1, ccEndESTMM + 7*3 + 3, 1)/)
 
integer, dimension(3) c_surf_rhocp3_paved = (/(cc, cc=ccEndESTMM + 8*3 + 1, ccEndESTMM + 8*3 + 3, 1)/)
 
integer, dimension(3) c_surf_thick4_paved = (/(cc, cc=ccEndESTMM + 9*3 + 1, ccEndESTMM + 9*3 + 3, 1)/)
 
integer, dimension(3) c_surf_k4_paved = (/(cc, cc=ccEndESTMM + 10*3 + 1, ccEndESTMM + 10*3 + 3, 1)/)
 
integer, dimension(3) c_surf_rhocp4_paved = (/(cc, cc=ccEndESTMM + 11*3 + 1, ccEndESTMM + 11*3 + 3, 1)/)
 
integer, dimension(3) c_surf_thick5_paved = (/(cc, cc=ccEndESTMM + 12*3 + 1, ccEndESTMM + 12*3 + 3, 1)/)
 
integer, dimension(3) c_surf_k5_paved = (/(cc, cc=ccEndESTMM + 13*3 + 1, ccEndESTMM + 13*3 + 3, 1)/)
 
integer, dimension(3) c_surf_rhocp5_paved = (/(cc, cc=ccEndESTMM + 14*3 + 1, ccEndESTMM + 14*3 + 3, 1)/)
 
integer, parameter ccendestmmp = (ccEndESTMM + 14*3 + 3)
 
integer, dimension(5) c_surf_thick1_bldgs = (/(cc, cc=ccEndESTMMP + 0*5 + 1, ccEndESTMMP + 0*5 + 5, 1)/)
 
integer, dimension(5) c_surf_k1_bldgs = (/(cc, cc=ccEndESTMMP + 1*5 + 1, ccEndESTMMP + 1*5 + 5, 1)/)
 
integer, dimension(5) c_surf_rhocp1_bldgs = (/(cc, cc=ccEndESTMMP + 2*5 + 1, ccEndESTMMP + 2*5 + 5, 1)/)
 
integer, dimension(5) c_surf_thick2_bldgs = (/(cc, cc=ccEndESTMMP + 3*5 + 1, ccEndESTMMP + 3*5 + 5, 1)/)
 
integer, dimension(5) c_surf_k2_bldgs = (/(cc, cc=ccEndESTMMP + 4*5 + 1, ccEndESTMMP + 4*5 + 5, 1)/)
 
integer, dimension(5) c_surf_rhocp2_bldgs = (/(cc, cc=ccEndESTMMP + 5*5 + 1, ccEndESTMMP + 5*5 + 5, 1)/)
 
integer, dimension(5) c_surf_thick3_bldgs = (/(cc, cc=ccEndESTMMP + 6*5 + 1, ccEndESTMMP + 6*5 + 5, 1)/)
 
integer, dimension(5) c_surf_k3_bldgs = (/(cc, cc=ccEndESTMMP + 7*5 + 1, ccEndESTMMP + 7*5 + 5, 1)/)
 
integer, dimension(5) c_surf_rhocp3_bldgs = (/(cc, cc=ccEndESTMMP + 8*5 + 1, ccEndESTMMP + 8*5 + 5, 1)/)
 
integer, dimension(5) c_surf_thick4_bldgs = (/(cc, cc=ccEndESTMMP + 9*5 + 1, ccEndESTMMP + 9*5 + 5, 1)/)
 
integer, dimension(5) c_surf_k4_bldgs = (/(cc, cc=ccEndESTMMP + 10*5 + 1, ccEndESTMMP + 10*5 + 5, 1)/)
 
integer, dimension(5) c_surf_rhocp4_bldgs = (/(cc, cc=ccEndESTMMP + 11*5 + 1, ccEndESTMMP + 11*5 + 5, 1)/)
 
integer, dimension(5) c_surf_thick5_bldgs = (/(cc, cc=ccEndESTMMP + 12*5 + 1, ccEndESTMMP + 12*5 + 5, 1)/)
 
integer, dimension(5) c_surf_k5_bldgs = (/(cc, cc=ccEndESTMMP + 13*5 + 1, ccEndESTMMP + 13*5 + 5, 1)/)
 
integer, dimension(5) c_surf_rhocp5_bldgs = (/(cc, cc=ccEndESTMMP + 14*5 + 1, ccEndESTMMP + 14*5 + 5, 1)/)
 
integer, dimension(5) c_wall_thick1_bldgs = (/(cc, cc=ccEndESTMMP + 15*5 + 1, ccEndESTMMP + 15*5 + 5, 1)/)
 
integer, dimension(5) c_wall_k1_bldgs = (/(cc, cc=ccEndESTMMP + 16*5 + 1, ccEndESTMMP + 16*5 + 5, 1)/)
 
integer, dimension(5) c_wall_rhocp1_bldgs = (/(cc, cc=ccEndESTMMP + 17*5 + 1, ccEndESTMMP + 17*5 + 5, 1)/)
 
integer, dimension(5) c_wall_thick2_bldgs = (/(cc, cc=ccEndESTMMP + 18*5 + 1, ccEndESTMMP + 18*5 + 5, 1)/)
 
integer, dimension(5) c_wall_k2_bldgs = (/(cc, cc=ccEndESTMMP + 19*5 + 1, ccEndESTMMP + 19*5 + 5, 1)/)
 
integer, dimension(5) c_wall_rhocp2_bldgs = (/(cc, cc=ccEndESTMMP + 20*5 + 1, ccEndESTMMP + 20*5 + 5, 1)/)
 
integer, dimension(5) c_wall_thick3_bldgs = (/(cc, cc=ccEndESTMMP + 21*5 + 1, ccEndESTMMP + 21*5 + 5, 1)/)
 
integer, dimension(5) c_wall_k3_bldgs = (/(cc, cc=ccEndESTMMP + 22*5 + 1, ccEndESTMMP + 22*5 + 5, 1)/)
 
integer, dimension(5) c_wall_rhocp3_bldgs = (/(cc, cc=ccEndESTMMP + 23*5 + 1, ccEndESTMMP + 23*5 + 5, 1)/)
 
integer, dimension(5) c_wall_thick4_bldgs = (/(cc, cc=ccEndESTMMP + 24*5 + 1, ccEndESTMMP + 24*5 + 5, 1)/)
 
integer, dimension(5) c_wall_k4_bldgs = (/(cc, cc=ccEndESTMMP + 25*5 + 1, ccEndESTMMP + 25*5 + 5, 1)/)
 
integer, dimension(5) c_wall_rhocp4_bldgs = (/(cc, cc=ccEndESTMMP + 26*5 + 1, ccEndESTMMP + 26*5 + 5, 1)/)
 
integer, dimension(5) c_wall_thick5_bldgs = (/(cc, cc=ccEndESTMMP + 27*5 + 1, ccEndESTMMP + 27*5 + 5, 1)/)
 
integer, dimension(5) c_wall_k5_bldgs = (/(cc, cc=ccEndESTMMP + 28*5 + 1, ccEndESTMMP + 28*5 + 5, 1)/)
 
integer, dimension(5) c_wall_rhocp5_bldgs = (/(cc, cc=ccEndESTMMP + 29*5 + 1, ccEndESTMMP + 29*5 + 5, 1)/)
 
integer, dimension(5) c_internal_thick1_bldgs = (/(cc, cc=ccEndESTMMP + 30*5 + 1, ccEndESTMMP + 30*5 + 5, 1)/)
 
integer, dimension(5) c_internal_k1_bldgs = (/(cc, cc=ccEndESTMMP + 31*5 + 1, ccEndESTMMP + 31*5 + 5, 1)/)
 
integer, dimension(5) c_internal_rhocp1_bldgs = (/(cc, cc=ccEndESTMMP + 32*5 + 1, ccEndESTMMP + 32*5 + 5, 1)/)
 
integer, dimension(5) c_internal_thick2_bldgs = (/(cc, cc=ccEndESTMMP + 33*5 + 1, ccEndESTMMP + 33*5 + 5, 1)/)
 
integer, dimension(5) c_internal_k2_bldgs = (/(cc, cc=ccEndESTMMP + 34*5 + 1, ccEndESTMMP + 34*5 + 5, 1)/)
 
integer, dimension(5) c_internal_rhocp2_bldgs = (/(cc, cc=ccEndESTMMP + 35*5 + 1, ccEndESTMMP + 35*5 + 5, 1)/)
 
integer, dimension(5) c_internal_thick3_bldgs = (/(cc, cc=ccEndESTMMP + 36*5 + 1, ccEndESTMMP + 36*5 + 5, 1)/)
 
integer, dimension(5) c_internal_k3_bldgs = (/(cc, cc=ccEndESTMMP + 37*5 + 1, ccEndESTMMP + 37*5 + 5, 1)/)
 
integer, dimension(5) c_internal_rhocp3_bldgs = (/(cc, cc=ccEndESTMMP + 38*5 + 1, ccEndESTMMP + 38*5 + 5, 1)/)
 
integer, dimension(5) c_internal_thick4_bldgs = (/(cc, cc=ccEndESTMMP + 39*5 + 1, ccEndESTMMP + 39*5 + 5, 1)/)
 
integer, dimension(5) c_internal_k4_bldgs = (/(cc, cc=ccEndESTMMP + 40*5 + 1, ccEndESTMMP + 40*5 + 5, 1)/)
 
integer, dimension(5) c_internal_rhocp4_bldgs = (/(cc, cc=ccEndESTMMP + 41*5 + 1, ccEndESTMMP + 41*5 + 5, 1)/)
 
integer, dimension(5) c_internal_thick5_bldgs = (/(cc, cc=ccEndESTMMP + 42*5 + 1, ccEndESTMMP + 42*5 + 5, 1)/)
 
integer, dimension(5) c_internal_k5_bldgs = (/(cc, cc=ccEndESTMMP + 43*5 + 1, ccEndESTMMP + 43*5 + 5, 1)/)
 
integer, dimension(5) c_internal_rhocp5_bldgs = (/(cc, cc=ccEndESTMMP + 44*5 + 1, ccEndESTMMP + 44*5 + 5, 1)/)
 
integer, dimension(5) c_nroom_bldgs = (ccEndESTMMP + 44*5 + 5 + 1)
 
integer, dimension(5) c_alb_ibld_bldgs = (ccEndESTMMP + 44*5 + 5 + 2)
 
integer, dimension(5) c_em_ibld_bldgs = (ccEndESTMMP + 44*5 + 5 + 3)
 
integer, dimension(5) c_ch_iwall_bldgs = (ccEndESTMMP + 44*5 + 5 + 4)
 
integer, dimension(5) c_ch_iroof_bldgs = (ccEndESTMMP + 44*5 + 5 + 5)
 
integer, dimension(5) c_ch_ibld_bldgs = (ccEndESTMMP + 44*5 + 5 + 6)
 
integer, parameter maxncols_c = (ccEndESTMMP + 44*5 + 5 + 6)
 
integer, parameter ccmod = 32
 
integer, dimension(nsurfcmod_state = (/(cc, cc=ccMOD + 0*nsurf + 1, ccMOD + 0*nsurf + nsurf, 1)/)
 
integer, dimension(nsurfcmod_soilstate = (/(cc, cc=ccMOD + 1*nsurf + 1, ccMOD + 1*nsurf + nsurf, 1)/)
 
integer, dimension(nsurfcmod_snowwaterstate = (/(cc, cc=ccMOD + 2*nsurf + 1, ccMOD + 2*nsurf + nsurf, 1)/)
 
integer, dimension(nsurfcmod_snowpack = (/(cc, cc=ccMOD + 3*nsurf + 1, ccMOD + 3*nsurf + nsurf, 1)/)
 
integer, dimension(nsurfcmod_snowfrac = (/(cc, cc=ccMOD + 4*nsurf + 1, ccMOD + 4*nsurf + nsurf, 1)/)
 
integer, dimension(nsurfcmod_snowdens = (/(cc, cc=ccMOD + 5*nsurf + 1, ccMOD + 5*nsurf + nsurf, 1)/)
 
integer, parameter maxncols_cmod = ccMOD + 5*nsurf + nsurf
 
integer, parameter ccmds = 30
 
integer, dimension(nsurfcmds_snowdens = (/(cc, cc=ccMDS + 0*nsurf + 1, ccMDS + 0*nsurf + nsurf, 1)/)
 
integer, parameter maxncols_cmds = ccMDS + 0*nsurf + nsurf
 
integer, parameter cts_iy = 1
 
integer, parameter cts_id = 2
 
integer, parameter cts_it = 3
 
integer, parameter cts_imin = 4
 
integer, parameter cts_tiair = 5
 
integer, parameter cts_tsurf = 6
 
integer, parameter cts_troof = 7
 
integer, parameter cts_troad = 8
 
integer, parameter cts_twall = 9
 
integer, parameter cts_twall_n = 10
 
integer, parameter cts_twall_e = 11
 
integer, parameter cts_twall_s = 12
 
integer, parameter cts_twall_w = 13
 

Variable Documentation

◆ a1

real(kind(1d0)) allocatearray::a1

Definition at line 393 of file suews_ctrl_const.f95.

393  REAL(KIND(1d0)):: a1, a2, a3 !OHM coefficients, a1 [-]; a2 [h]; a3 [W m-2]
real(kind(1d0)) a2
real(kind(1d0)) a1
real(kind(1d0)) a3

◆ a1anohm

real(kind(1d0)), dimension(maxnumberofgrids) allocatearray::a1anohm

Definition at line 454 of file suews_ctrl_const.f95.

454  REAL(KIND(1d0)), DIMENSION(MaxNumberOfGrids) :: a1anohm, a2anohm, a3anohm ! OHM coefficients, a1 [-]; a2 [h]; a3 [W m-2]
real(kind(1d0)), dimension(maxnumberofgrids) a2anohm
real(kind(1d0)), dimension(maxnumberofgrids) a3anohm
real(kind(1d0)), dimension(maxnumberofgrids) a1anohm

◆ a2

real(kind(1d0)) allocatearray::a2

Definition at line 393 of file suews_ctrl_const.f95.

◆ a2anohm

real(kind(1d0)), dimension(maxnumberofgrids) allocatearray::a2anohm

Definition at line 454 of file suews_ctrl_const.f95.

◆ a3

real(kind(1d0)) allocatearray::a3

Definition at line 393 of file suews_ctrl_const.f95.

◆ a3anohm

real(kind(1d0)), dimension(maxnumberofgrids) allocatearray::a3anohm

Definition at line 454 of file suews_ctrl_const.f95.

◆ addwater

real(kind(1d0)), dimension(nsurf) allocatearray::addwater

Definition at line 203 of file suews_ctrl_const.f95.

203  REAL(KIND(1d0)), DIMENSION(nsurf):: addwater !Water from other surfaces (WGWaterDist in SUEWS_ReDistributeWater.f95) [mm]
real(kind(1d0)), dimension(nsurf) addwater

◆ addwaterrunoff

real(kind(1d0)), dimension(nsurf) allocatearray::addwaterrunoff

Definition at line 204 of file suews_ctrl_const.f95.

204  REAL(KIND(1d0)), DIMENSION(nsurf):: addwaterrunoff !Fraction of water going to runoff/sub-surface soil (WGWaterDist) [-]
real(kind(1d0)), dimension(nsurf) addwaterrunoff

◆ aggreguse

character(len=3*ncolumnsdataoutsuews) allocatearray::aggreguse

Definition at line 92 of file suews_ctrl_const.f95.

92  CHARACTER(len=3*ncolumnsDataOutSUEWS):: aggreguse
character(len=3 *ncolumnsdataoutsuews) aggreguse

◆ ahprof_24hr

real(kind(1d0)), dimension(0:23, 2) allocatearray::ahprof_24hr

Definition at line 151 of file suews_ctrl_const.f95.

Referenced by suews_calculations().

151  REAL(KIND(1d0)), DIMENSION(0:23, 2):: ahprof_24hr !Anthropogenic heat profiles for (1)weekdays / (2)weekends
real(kind(1d0)), dimension(0:23, 2) ahprof_24hr

◆ alb

real(kind(1d0)), dimension(nsurf) allocatearray::alb

Definition at line 359 of file suews_ctrl_const.f95.

Referenced by estm_module::estm_translate(), suews_calculations(), and suews_translate().

359  REAL(KIND(1d0)), DIMENSION(nsurf):: alb !Albedo of each surface type [-]
real(kind(1d0)), dimension(nsurf) alb

◆ albdectr_id

real(kind(1d0)) allocatearray::albdectr_id

Definition at line 306 of file suews_ctrl_const.f95.

Referenced by nextinitial(), suews_calculations(), and suews_translateback().

306  REAL(KIND(1d0)) :: albdectr_id
real(kind(1d0)) albdectr_id

◆ albdectr_id_grids

real(kind(1d0)), dimension(maxnumberofgrids) allocatearray::albdectr_id_grids

Definition at line 300 of file suews_ctrl_const.f95.

Referenced by suews_translateback().

300  REAL(KIND(1d0)), DIMENSION(MaxNumberOfGrids):: albdectr_id_grids
real(kind(1d0)), dimension(maxnumberofgrids) albdectr_id_grids

◆ albevetr_id

real(kind(1d0)) allocatearray::albevetr_id

Definition at line 307 of file suews_ctrl_const.f95.

Referenced by nextinitial(), suews_calculations(), and suews_translateback().

307  REAL(KIND(1d0)) :: albevetr_id
real(kind(1d0)) albevetr_id

◆ albevetr_id_grids

real(kind(1d0)), dimension(maxnumberofgrids) allocatearray::albevetr_id_grids

Definition at line 301 of file suews_ctrl_const.f95.

Referenced by suews_translateback().

301  REAL(KIND(1d0)), DIMENSION(MaxNumberOfGrids):: albevetr_id_grids
real(kind(1d0)), dimension(maxnumberofgrids) albevetr_id_grids

◆ albgrass_id

real(kind(1d0)) allocatearray::albgrass_id

Definition at line 308 of file suews_ctrl_const.f95.

Referenced by nextinitial(), suews_calculations(), and suews_translateback().

308  REAL(KIND(1d0)) :: albgrass_id
real(kind(1d0)) albgrass_id

◆ albgrass_id_grids

real(kind(1d0)), dimension(maxnumberofgrids) allocatearray::albgrass_id_grids

Definition at line 302 of file suews_ctrl_const.f95.

Referenced by suews_translateback().

302  REAL(KIND(1d0)), DIMENSION(MaxNumberOfGrids):: albgrass_id_grids
real(kind(1d0)), dimension(maxnumberofgrids) albgrass_id_grids

◆ albmax_dectr

real(kind(1d0)) allocatearray::albmax_dectr

Definition at line 265 of file suews_ctrl_const.f95.

Referenced by suews_calculations(), and suews_translate().

◆ albmax_evetr

real(kind(1d0)) allocatearray::albmax_evetr

Definition at line 265 of file suews_ctrl_const.f95.

Referenced by suews_calculations(), and suews_translate().

◆ albmax_grass

real(kind(1d0)) allocatearray::albmax_grass

Definition at line 265 of file suews_ctrl_const.f95.

Referenced by suews_calculations(), and suews_translate().

◆ albmin_dectr

real(kind(1d0)) allocatearray::albmin_dectr

Definition at line 265 of file suews_ctrl_const.f95.

Referenced by suews_calculations(), and suews_translate().

265  REAL(KIND(1d0)):: albmin_dectr, & !Min albedo for deciduous trees [-]
266  albmax_dectr, & !Max albedo for deciduous trees [-]
267  capmin_dec, & !Min storage capacity for deciduous trees [mm] (from input information)
268  capmax_dec, & !Max storage capacity for deciduous trees [mm] (from input information)
269  pormin_dec, & !Min porosity for deciduous trees
270  pormax_dec, & !Max porosity for deciduous trees
271  albmin_evetr, & !Min albedo for evergreen trees [-]
272  albmax_evetr, & !Max albedo for evergreen trees [-]
273  albmin_grass, & !Min albedo for grass [-]
274  albmax_grass !Max albedo for grass [-]
real(kind(1d0)) albmin_grass
real(kind(1d0)) albmin_evetr
real(kind(1d0)) albmax_evetr
real(kind(1d0)) albmax_grass
real(kind(1d0)) capmax_dec
real(kind(1d0)) pormax_dec
real(kind(1d0)) albmin_dectr
real(kind(1d0)) pormin_dec
real(kind(1d0)) capmin_dec
real(kind(1d0)) albmax_dectr

◆ albmin_evetr

real(kind(1d0)) allocatearray::albmin_evetr

Definition at line 265 of file suews_ctrl_const.f95.

Referenced by suews_calculations(), and suews_translate().

◆ albmin_grass

real(kind(1d0)) allocatearray::albmin_grass

Definition at line 265 of file suews_ctrl_const.f95.

Referenced by suews_calculations(), and suews_translate().

◆ alpha_bioco2

real(kind(1d0)), dimension(nvegsurf) allocatearray::alpha_bioco2

Definition at line 342 of file suews_ctrl_const.f95.

Referenced by suews_calculations(), and suews_translate().

◆ alpha_enh_bioco2

real(kind(1d0)), dimension(nvegsurf) allocatearray::alpha_enh_bioco2

Definition at line 342 of file suews_ctrl_const.f95.

Referenced by suews_calculations(), and suews_translate().

◆ anthropogenic_coeff

real(kind(1d0)), dimension(:, :), allocatable allocatearray::anthropogenic_coeff

Definition at line 105 of file suews_ctrl_const.f95.

Referenced by codematchanthropogenic(), initializesurfacecharacteristics(), and overallruncontrol().

105  REAL(KIND(1d0)), DIMENSION(:, :), ALLOCATABLE::anthropogenic_coeff !Coefficients for AnthropogenicEmissions
real(kind(1d0)), dimension(:, :), allocatable anthropogenic_coeff

◆ baset

real(kind(1d0)), dimension(nvegsurf) allocatearray::baset

Definition at line 330 of file suews_ctrl_const.f95.

Referenced by suews_calculations(), and suews_translate().

330  REAL(KIND(1d0)), DIMENSION(nvegsurf):: baset !Base temperature for growing degree days [degC]
real(kind(1d0)), dimension(nvegsurf) baset

◆ basete

real(kind(1d0)), dimension(nvegsurf) allocatearray::basete

Definition at line 331 of file suews_ctrl_const.f95.

Referenced by suews_calculations(), and suews_translate().

331  REAL(KIND(1d0)), DIMENSION(nvegsurf):: basete !Base temperature for senescence degree days [degC]
real(kind(1d0)), dimension(nvegsurf) basete

◆ beta_bioco2

real(kind(1d0)), dimension(nvegsurf) allocatearray::beta_bioco2

Definition at line 342 of file suews_ctrl_const.f95.

Referenced by suews_calculations(), and suews_translate().

◆ beta_enh_bioco2

real(kind(1d0)), dimension(nvegsurf) allocatearray::beta_enh_bioco2

Definition at line 342 of file suews_ctrl_const.f95.

Referenced by suews_calculations(), and suews_translate().

◆ biogen_coeff

real(kind(1d0)), dimension(:, :), allocatable allocatearray::biogen_coeff

Definition at line 109 of file suews_ctrl_const.f95.

Referenced by codematchbiogen(), initializesurfacecharacteristics(), and overallruncontrol().

109  REAL(KIND(1d0)), DIMENSION(:, :), ALLOCATABLE::biogen_coeff !Coefficients for BiogenCO2
real(kind(1d0)), dimension(:, :), allocatable biogen_coeff

◆ biogenco2code

real(kind(1d0)), dimension(nvegsurf) allocatearray::biogenco2code

Definition at line 342 of file suews_ctrl_const.f95.

342  REAL(KIND(1d0)), DIMENSION(nvegsurf):: biogenco2code, & !Biogenic CO2 Code for SUEWS_BiogenCO2.txt
343  alpha_bioco2, &
344  beta_bioco2, &
345  theta_bioco2, &
347  beta_enh_bioco2, &
348  resp_a, &
349  resp_b, &
real(kind(1d0)), dimension(nvegsurf) theta_bioco2
real(kind(1d0)), dimension(nvegsurf) biogenco2code
real(kind(1d0)), dimension(nvegsurf) alpha_enh_bioco2
real(kind(1d0)), dimension(nvegsurf) alpha_bioco2
real(kind(1d0)), dimension(nvegsurf) resp_a
real(kind(1d0)), dimension(nvegsurf) resp_b
real(kind(1d0)), dimension(nvegsurf) min_res_bioco2
real(kind(1d0)), dimension(nvegsurf) beta_enh_bioco2
real(kind(1d0)), dimension(nvegsurf) beta_bioco2

◆ bldgsurf

integer, parameter allocatearray::bldgsurf = 2

◆ boanohmend

real(kind(1d0)), dimension(maxnumberofgrids) allocatearray::boanohmend

Definition at line 457 of file suews_ctrl_const.f95.

457  REAL(KIND(1d0)), DIMENSION(MaxNumberOfGrids) :: boanohmend ! final Bo for interation [-]
real(kind(1d0)), dimension(maxnumberofgrids) boanohmend

◆ boanohmstart

real(kind(1d0)), dimension(maxnumberofgrids) allocatearray::boanohmstart

Definition at line 456 of file suews_ctrl_const.f95.

456  REAL(KIND(1d0)), DIMENSION(MaxNumberOfGrids) :: boanohmstart ! initial Bo for interation [-]
real(kind(1d0)), dimension(maxnumberofgrids) boanohmstart

◆ bsoilsurf

integer, parameter allocatearray::bsoilsurf = 6

◆ bulkalbedo

real(kind(1d0)) allocatearray::bulkalbedo

Definition at line 362 of file suews_ctrl_const.f95.

362  REAL(KIND(1d0)):: bulkalbedo !Bulk albedo for whole surface (areally-weighted)
real(kind(1d0)) bulkalbedo

◆ c_a1_sdry

integer, dimension(nsurfincsnow) allocatearray::c_a1_sdry = (/(cc, cc=ccEndGs + 7*nsurfIncSnow + 1, ccEndGs + 7*nsurfIncSnow + nsurfIncSnow, 1)/)

Definition at line 590 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

590  INTEGER, DIMENSION(nsurfIncSnow):: c_a1_sdry = (/(cc, cc=ccendgs + 7*nsurfincsnow + 1, &
591  ccendgs + 7*nsurfincsnow + nsurfincsnow, 1)/) !OHM a1 (summer dry)
integer, parameter nsurfincsnow
integer, parameter ccendgs
integer, dimension(nsurfincsnow) c_a1_sdry

◆ c_a1_swet

integer, dimension(nsurfincsnow) allocatearray::c_a1_swet = (/(cc, cc=ccEndGs + 4*nsurfIncSnow + 1, ccEndGs + 4*nsurfIncSnow + nsurfIncSnow, 1)/)

Definition at line 584 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

584  INTEGER, DIMENSION(nsurfIncSnow):: c_a1_swet = (/(cc, cc=ccendgs + 4*nsurfincsnow + 1, &
585  ccendgs + 4*nsurfincsnow + nsurfincsnow, 1)/) !OHM a1 (summer wet)
integer, parameter nsurfincsnow
integer, parameter ccendgs
integer, dimension(nsurfincsnow) c_a1_swet

◆ c_a1_wdry

integer, dimension(nsurfincsnow) allocatearray::c_a1_wdry = (/(cc, cc=ccEndGs + 13*nsurfIncSnow + 1, ccEndGs + 13*nsurfIncSnow + nsurfIncSnow, 1)/)

Definition at line 602 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

602  INTEGER, DIMENSION(nsurfIncSnow):: c_a1_wdry = (/(cc, cc=ccendgs + 13*nsurfincsnow + 1, &
603  ccendgs + 13*nsurfincsnow + nsurfincsnow, 1)/) !OHM a1 (winter dry)
integer, parameter nsurfincsnow
integer, parameter ccendgs
integer, dimension(nsurfincsnow) c_a1_wdry

◆ c_a1_wwet

integer, dimension(nsurfincsnow) allocatearray::c_a1_wwet = (/(cc, cc=ccEndGs + 10*nsurfIncSnow + 1, ccEndGs + 10*nsurfIncSnow + nsurfIncSnow, 1)/)

Definition at line 596 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

596  INTEGER, DIMENSION(nsurfIncSnow):: c_a1_wwet = (/(cc, cc=ccendgs + 10*nsurfincsnow + 1, &
597  ccendgs + 10*nsurfincsnow + nsurfincsnow, 1)/) !OHM a1 (winter wet)
integer, parameter nsurfincsnow
integer, parameter ccendgs
integer, dimension(nsurfincsnow) c_a1_wwet

◆ c_a2_sdry

integer, dimension(nsurfincsnow) allocatearray::c_a2_sdry = (/(cc, cc=ccEndGs + 8*nsurfIncSnow + 1, ccEndGs + 8*nsurfIncSnow + nsurfIncSnow, 1)/)

Definition at line 592 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

592  INTEGER, DIMENSION(nsurfIncSnow):: c_a2_sdry = (/(cc, cc=ccendgs + 8*nsurfincsnow + 1, &
593  ccendgs + 8*nsurfincsnow + nsurfincsnow, 1)/) !OHM a2 (summer dry)
integer, dimension(nsurfincsnow) c_a2_sdry
integer, parameter nsurfincsnow
integer, parameter ccendgs

◆ c_a2_swet

integer, dimension(nsurfincsnow) allocatearray::c_a2_swet = (/(cc, cc=ccEndGs + 5*nsurfIncSnow + 1, ccEndGs + 5*nsurfIncSnow + nsurfIncSnow, 1)/)

Definition at line 586 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

586  INTEGER, DIMENSION(nsurfIncSnow):: c_a2_swet = (/(cc, cc=ccendgs + 5*nsurfincsnow + 1, &
587  ccendgs + 5*nsurfincsnow + nsurfincsnow, 1)/) !OHM a2 (summer wet)
integer, parameter nsurfincsnow
integer, dimension(nsurfincsnow) c_a2_swet
integer, parameter ccendgs

◆ c_a2_wdry

integer, dimension(nsurfincsnow) allocatearray::c_a2_wdry = (/(cc, cc=ccEndGs + 14*nsurfIncSnow + 1, ccEndGs + 14*nsurfIncSnow + nsurfIncSnow, 1)/)

Definition at line 604 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

604  INTEGER, DIMENSION(nsurfIncSnow):: c_a2_wdry = (/(cc, cc=ccendgs + 14*nsurfincsnow + 1, &
605  ccendgs + 14*nsurfincsnow + nsurfincsnow, 1)/) !OHM a2 (winter dry)
integer, parameter nsurfincsnow
integer, parameter ccendgs
integer, dimension(nsurfincsnow) c_a2_wdry

◆ c_a2_wwet

integer, dimension(nsurfincsnow) allocatearray::c_a2_wwet = (/(cc, cc=ccEndGs + 11*nsurfIncSnow + 1, ccEndGs + 11*nsurfIncSnow + nsurfIncSnow, 1)/)

Definition at line 598 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

598  INTEGER, DIMENSION(nsurfIncSnow):: c_a2_wwet = (/(cc, cc=ccendgs + 11*nsurfincsnow + 1, &
599  ccendgs + 11*nsurfincsnow + nsurfincsnow, 1)/) !OHM a2 (winter wet)
integer, parameter nsurfincsnow
integer, parameter ccendgs
integer, dimension(nsurfincsnow) c_a2_wwet

◆ c_a3_sdry

integer, dimension(nsurfincsnow) allocatearray::c_a3_sdry = (/(cc, cc=ccEndGs + 9*nsurfIncSnow + 1, ccEndGs + 9*nsurfIncSnow + nsurfIncSnow, 1)/)

Definition at line 594 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

594  INTEGER, DIMENSION(nsurfIncSnow):: c_a3_sdry = (/(cc, cc=ccendgs + 9*nsurfincsnow + 1, &
595  ccendgs + 9*nsurfincsnow + nsurfincsnow, 1)/) !OHM a3 (summer dry)
integer, parameter nsurfincsnow
integer, parameter ccendgs
integer, dimension(nsurfincsnow) c_a3_sdry

◆ c_a3_swet

integer, dimension(nsurfincsnow) allocatearray::c_a3_swet = (/(cc, cc=ccEndGs + 6*nsurfIncSnow + 1, ccEndGs + 6*nsurfIncSnow + nsurfIncSnow, 1)/)

Definition at line 588 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

588  INTEGER, DIMENSION(nsurfIncSnow):: c_a3_swet = (/(cc, cc=ccendgs + 6*nsurfincsnow + 1, &
589  ccendgs + 6*nsurfincsnow + nsurfincsnow, 1)/) !OHM a3 (summer wet)
integer, dimension(nsurfincsnow) c_a3_swet
integer, parameter nsurfincsnow
integer, parameter ccendgs

◆ c_a3_wdry

integer, dimension(nsurfincsnow) allocatearray::c_a3_wdry = (/(cc, cc=ccEndGs + 15*nsurfIncSnow + 1, ccEndGs + 15*nsurfIncSnow + nsurfIncSnow, 1)/)

Definition at line 606 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

606  INTEGER, DIMENSION(nsurfIncSnow):: c_a3_wdry = (/(cc, cc=ccendgs + 15*nsurfincsnow + 1, &
607  ccendgs + 15*nsurfincsnow + nsurfincsnow, 1)/) !OHM a3 (winter dry)
integer, dimension(nsurfincsnow) c_a3_wdry
integer, parameter nsurfincsnow
integer, parameter ccendgs

◆ c_a3_wwet

integer, dimension(nsurfincsnow) allocatearray::c_a3_wwet = (/(cc, cc=ccEndGs + 12*nsurfIncSnow + 1, ccEndGs + 12*nsurfIncSnow + nsurfIncSnow, 1)/)

Definition at line 600 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

600  INTEGER, DIMENSION(nsurfIncSnow):: c_a3_wwet = (/(cc, cc=ccendgs + 12*nsurfincsnow + 1, &
601  ccendgs + 12*nsurfincsnow + nsurfincsnow, 1)/) !OHM a3 (winter wet)
integer, parameter nsurfincsnow
integer, parameter ccendgs
integer, dimension(nsurfincsnow) c_a3_wwet

◆ c_ahmin_wd

integer allocatearray::c_ahmin_wd = (ccEndO + 8)

Definition at line 629 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

629  INTEGER :: c_ahmin_wd = (ccendo + 8)
integer, parameter ccendo

◆ c_ahmin_we

integer allocatearray::c_ahmin_we = (ccEndO + 9)

Definition at line 630 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

630  INTEGER :: c_ahmin_we = (ccendo + 9)
integer, parameter ccendo

◆ c_ahslopecooling_wd

integer allocatearray::c_ahslopecooling_wd = (ccEndO + 12)

Definition at line 633 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

633  INTEGER :: c_ahslopecooling_wd = (ccendo + 12)
integer, parameter ccendo
integer c_ahslopecooling_wd

◆ c_ahslopecooling_we

integer allocatearray::c_ahslopecooling_we = (ccEndO + 13)

Definition at line 634 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

634  INTEGER :: c_ahslopecooling_we = (ccendo + 13)
integer, parameter ccendo
integer c_ahslopecooling_we

◆ c_ahslopeheating_wd

integer allocatearray::c_ahslopeheating_wd = (ccEndO + 10)

Definition at line 631 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

631  INTEGER :: c_ahslopeheating_wd = (ccendo + 10)
integer, parameter ccendo
integer c_ahslopeheating_wd

◆ c_ahslopeheating_we

integer allocatearray::c_ahslopeheating_we = (ccEndO + 11)

Definition at line 632 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

632  INTEGER :: c_ahslopeheating_we = (ccendo + 11)
integer, parameter ccendo
integer c_ahslopeheating_we

◆ c_alb_ibld

integer allocatearray::c_alb_ibld = (ccEndESTMB + 32)

Definition at line 775 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

775  INTEGER:: c_alb_ibld = (ccendestmb + 32)
integer, parameter ccendestmb

◆ c_alb_ibld_bldgs

integer, dimension(5) allocatearray::c_alb_ibld_bldgs = (ccEndESTMMP + 44*5 + 5 + 2)

Definition at line 847 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

847  INTEGER, DIMENSION(5):: c_alb_ibld_bldgs = (ccendestmmp + 44*5 + 5 + 2)
integer, parameter ccendestmmp
integer, dimension(5) c_alb_ibld_bldgs

◆ c_albmax

integer, dimension(nsurf) allocatearray::c_albmax = (/(cc, cc=ccEndSI + 1*nsurf + 1, ccEndSI + 1*nsurf + nsurf, 1)/)

Definition at line 477 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics(), initialstate(), and suews_translate().

477  INTEGER, DIMENSION(nsurf):: c_albmax = (/(cc, cc=ccendsi + 1*nsurf + 1, ccendsi + 1*nsurf + nsurf, 1)/) !Max. albedo
integer, parameter ccendsi
integer, parameter nsurf
integer, dimension(nsurf) c_albmax

◆ c_albmin

integer, dimension(nsurf) allocatearray::c_albmin = (/(cc, cc=ccEndSI + 0*nsurf + 1, ccEndSI + 0*nsurf + nsurf, 1)/)

Definition at line 476 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics(), initialstate(), and suews_translate().

476  INTEGER, DIMENSION(nsurf):: c_albmin = (/(cc, cc=ccendsi + 0*nsurf + 1, ccendsi + 0*nsurf + nsurf, 1)/) !Min. albedo
integer, parameter ccendsi
integer, dimension(nsurf) c_albmin
integer, parameter nsurf

◆ c_alpha_bioco2

integer, dimension(nvegsurf) allocatearray::c_alpha_bioco2 = (/(cc, cc=cBEndWG + 0*nvegsurf + 1, cBEndWG + 0*nvegsurf + nvegsurf, 1)/)

Definition at line 711 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics(), and suews_translate().

711  INTEGER, DIMENSION(nvegsurf):: c_alpha_bioco2 = (/(cc, cc=cbendwg + 0*nvegsurf + 1, cbendwg + 0*nvegsurf + nvegsurf, 1)/)
integer, dimension(nvegsurf) c_alpha_bioco2
integer, parameter cbendwg
integer, parameter nvegsurf

◆ c_alpha_enh_bioco2

integer, dimension(nvegsurf) allocatearray::c_alpha_enh_bioco2 = (/(cc, cc=cBEndWG + 3*nvegsurf + 1, cBEndWG + 3*nvegsurf + nvegsurf, 1)/)

Definition at line 714 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics(), and suews_translate().

714  INTEGER, DIMENSION(nvegsurf):: c_alpha_enh_bioco2 = (/(cc, cc=cbendwg + 3*nvegsurf + 1, cbendwg + 3*nvegsurf + nvegsurf, 1)/)
integer, parameter cbendwg
integer, parameter nvegsurf
integer, dimension(nvegsurf) c_alpha_enh_bioco2

◆ c_baset

integer, dimension(nvegsurf) allocatearray::c_baset = (/(cc, cc=ccEndI + 0*nvegsurf + 1, ccEndI + 0*nvegsurf + nvegsurf, 1)/)

Definition at line 501 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics(), and suews_translate().

501  INTEGER, DIMENSION(NVegSurf):: c_baset = (/(cc, cc=ccendi + 0*nvegsurf + 1, ccendi + 0*nvegsurf + nvegsurf, 1)/) !Base temp. for leaf-on
integer, parameter ccendi
integer, parameter nvegsurf
integer, dimension(nvegsurf) c_baset

◆ c_basete

integer, dimension(nvegsurf) allocatearray::c_basete = (/(cc, cc=ccEndI + 1*nvegsurf + 1, ccEndI + 1*nvegsurf + nvegsurf, 1)/)

Definition at line 502 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics(), and suews_translate().

502  INTEGER, DIMENSION(NVegSurf):: c_basete = (/(cc, cc=ccendi + 1*nvegsurf + 1, ccendi + 1*nvegsurf + nvegsurf, 1)/) !Base temp. for leaf-off
integer, parameter ccendi
integer, parameter nvegsurf
integer, dimension(nvegsurf) c_basete

◆ c_basethdd

integer allocatearray::c_basethdd = (ccEndO + 1)

Definition at line 622 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics(), and initialstate().

622  INTEGER :: c_basethdd = (ccendo + 1)
integer, parameter ccendo

◆ c_beta_bioco2

integer, dimension(nvegsurf) allocatearray::c_beta_bioco2 = (/(cc, cc=cBEndWG + 1*nvegsurf + 1, cBEndWG + 1*nvegsurf + nvegsurf, 1)/)

Definition at line 712 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics(), and suews_translate().

712  INTEGER, DIMENSION(nvegsurf):: c_beta_bioco2 = (/(cc, cc=cbendwg + 1*nvegsurf + 1, cbendwg + 1*nvegsurf + nvegsurf, 1)/)
integer, parameter cbendwg
integer, parameter nvegsurf
integer, dimension(nvegsurf) c_beta_bioco2

◆ c_beta_enh_bioco2

integer, dimension(nvegsurf) allocatearray::c_beta_enh_bioco2 = (/(cc, cc=cBEndWG + 4*nvegsurf + 1, cBEndWG + 4*nvegsurf + nvegsurf, 1)/)

Definition at line 715 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics(), and suews_translate().

715  INTEGER, DIMENSION(nvegsurf):: c_beta_enh_bioco2 = (/(cc, cc=cbendwg + 4*nvegsurf + 1, cbendwg + 4*nvegsurf + nvegsurf, 1)/)
integer, dimension(nvegsurf) c_beta_enh_bioco2
integer, parameter cbendwg
integer, parameter nvegsurf

◆ c_biogenco2code

integer, dimension(nvegsurf) allocatearray::c_biogenco2code = (/(cc, cc=ccEndI + 14*nvegsurf + 1, ccEndI + 14*nvegsurf + nvegsurf, 1)/)

Definition at line 515 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

515  INTEGER, DIMENSION(NVegSurf):: c_biogenco2code = (/(cc, cc=ccendi + 14*nvegsurf + 1, ccendi + 14*nvegsurf + nvegsurf, 1)/) !Biogenic CO2 Code
integer, parameter ccendi
integer, parameter nvegsurf
integer, dimension(nvegsurf) c_biogenco2code

◆ c_ch_ibld

integer allocatearray::c_ch_ibld = (ccEndESTMB + 36)

Definition at line 779 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

779  INTEGER:: c_ch_ibld = (ccendestmb + 36)
integer, parameter ccendestmb

◆ c_ch_ibld_bldgs

integer, dimension(5) allocatearray::c_ch_ibld_bldgs = (ccEndESTMMP + 44*5 + 5 + 6)

Definition at line 851 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

851  INTEGER, DIMENSION(5):: c_ch_ibld_bldgs = (ccendestmmp + 44*5 + 5 + 6)
integer, parameter ccendestmmp
integer, dimension(5) c_ch_ibld_bldgs

◆ c_ch_iroof

integer allocatearray::c_ch_iroof = (ccEndESTMB + 35)

Definition at line 778 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

778  INTEGER:: c_ch_iroof = (ccendestmb + 35)
integer, parameter ccendestmb

◆ c_ch_iroof_bldgs

integer, dimension(5) allocatearray::c_ch_iroof_bldgs = (ccEndESTMMP + 44*5 + 5 + 5)

Definition at line 850 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

850  INTEGER, DIMENSION(5):: c_ch_iroof_bldgs = (ccendestmmp + 44*5 + 5 + 5)
integer, parameter ccendestmmp
integer, dimension(5) c_ch_iroof_bldgs

◆ c_ch_iwall

integer allocatearray::c_ch_iwall = (ccEndESTMB + 34)

Definition at line 777 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

777  INTEGER:: c_ch_iwall = (ccendestmb + 34)
integer, parameter ccendestmb

◆ c_ch_iwall_bldgs

integer, dimension(5) allocatearray::c_ch_iwall_bldgs = (ccEndESTMMP + 44*5 + 5 + 4)

Definition at line 849 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

849  INTEGER, DIMENSION(5):: c_ch_iwall_bldgs = (ccendestmmp + 44*5 + 5 + 4)
integer, parameter ccendestmmp
integer, dimension(5) c_ch_iwall_bldgs

◆ c_chanohm

integer, dimension(nsurf) allocatearray::c_chanohm = (/(cc, cc=ccEndSI + 15*nsurf + 1, ccEndSI + 15*nsurf + nsurf, 1)/)

Definition at line 495 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

495  INTEGER, DIMENSION(nsurf):: c_chanohm = (/(cc, cc=ccendsi + 15*nsurf + 1, ccendsi + 15*nsurf + nsurf, 1)/) !bulk transfer coef., AnOHM TS
integer, parameter ccendsi
integer, parameter nsurf
integer, dimension(nsurf) c_chanohm

◆ c_co2mwd

integer allocatearray::c_co2mwd = (ccEndO + 20)

Definition at line 641 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

641  INTEGER :: c_co2mwd = (ccendo + 20)
integer, parameter ccendo

◆ c_co2mwe

integer allocatearray::c_co2mwe = (ccEndO + 21)

Definition at line 642 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

642  INTEGER :: c_co2mwe = (ccendo + 21)
integer, parameter ccendo

◆ c_co2pointsource

integer allocatearray::c_co2pointsource = (ccEndO + 37)

Definition at line 658 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

658  INTEGER :: c_co2pointsource = (ccendo + 37)
integer, parameter ccendo

◆ c_cpanohm

integer, dimension(nsurf) allocatearray::c_cpanohm = (/(cc, cc=ccEndSI + 13*nsurf + 1, ccEndSI + 13*nsurf + nsurf, 1)/)

Definition at line 493 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

493  INTEGER, DIMENSION(nsurf):: c_cpanohm = (/(cc, cc=ccendsi + 13*nsurf + 1, ccendsi + 13*nsurf + nsurf, 1)/) !heat capacity, AnOHM TS
integer, parameter ccendsi
integer, parameter nsurf
integer, dimension(nsurf) c_cpanohm

◆ c_daywat

integer, dimension(7) allocatearray::c_daywat = (/(cc, cc=ccEndA + 10 + 0*7 + 1, ccEndA + 10 + 0*7 + 7, 1)/)

Definition at line 671 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

671  INTEGER, DIMENSION(7):: c_daywat = (/(cc, cc=ccenda + 10 + 0*7 + 1, ccenda + 10 + 0*7 + 7, 1)/) ! Irrigation allowed on each day
integer, dimension(7) c_daywat
integer, parameter ccenda

◆ c_daywatper

integer, dimension(7) allocatearray::c_daywatper = (/(cc, cc=ccEndA + 10 + 1*7 + 1, ccEndA + 10 + 1*7 + 7, 1)/)

Definition at line 672 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

672  INTEGER, DIMENSION(7):: c_daywatper = (/(cc, cc=ccenda + 10 + 1*7 + 1, ccenda + 10 + 1*7 + 7, 1)/) ! Fraction properties using irrigation allowed on each day
integer, dimension(7) c_daywatper
integer, parameter ccenda

◆ c_drcoef1

integer, dimension(nsurf) allocatearray::c_drcoef1 = (/(cc, cc=ccEndSI + 8*nsurf + 1, ccEndSI + 8*nsurf + nsurf, 1)/)

Definition at line 484 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics(), and suews_translate().

484  INTEGER, DIMENSION(nsurf):: c_drcoef1 = (/(cc, cc=ccendsi + 8*nsurf + 1, ccendsi + 8*nsurf + nsurf, 1)/) !Drainage coef. 1
integer, parameter ccendsi
integer, parameter nsurf
integer, dimension(nsurf) c_drcoef1

◆ c_drcoef2

integer, dimension(nsurf) allocatearray::c_drcoef2 = (/(cc, cc=ccEndSI + 9*nsurf + 1, ccEndSI + 9*nsurf + nsurf, 1)/)

Definition at line 485 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics(), and suews_translate().

485  INTEGER, DIMENSION(nsurf):: c_drcoef2 = (/(cc, cc=ccendsi + 9*nsurf + 1, ccendsi + 9*nsurf + nsurf, 1)/) !Drainage coef. 2
integer, parameter ccendsi
integer, parameter nsurf
integer, dimension(nsurf) c_drcoef2

◆ c_dreq

integer, dimension(nsurf) allocatearray::c_dreq = (/(cc, cc=ccEndSI + 7*nsurf + 1, ccEndSI + 7*nsurf + nsurf, 1)/)

Definition at line 483 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics(), and suews_translate().

483  INTEGER, DIMENSION(nsurf):: c_dreq = (/(cc, cc=ccendsi + 7*nsurf + 1, ccendsi + 7*nsurf + nsurf, 1)/) !Drainage equation
integer, dimension(nsurf) c_dreq
integer, parameter ccendsi
integer, parameter nsurf

◆ c_ef_umolco2perj

integer allocatearray::c_ef_umolco2perj = (ccEndO + 33)

Definition at line 654 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

654  INTEGER :: c_ef_umolco2perj = (ccendo + 33)
integer, parameter ccendo

◆ c_em_ibld

integer allocatearray::c_em_ibld = (ccEndESTMB + 33)

Definition at line 776 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

776  INTEGER:: c_em_ibld = (ccendestmb + 33)
integer, parameter ccendestmb

◆ c_em_ibld_bldgs

integer, dimension(5) allocatearray::c_em_ibld_bldgs = (ccEndESTMMP + 44*5 + 5 + 3)

Definition at line 848 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

848  INTEGER, DIMENSION(5):: c_em_ibld_bldgs = (ccendestmmp + 44*5 + 5 + 3)
integer, parameter ccendestmmp
integer, dimension(5) c_em_ibld_bldgs

◆ c_emis

integer, dimension(nsurf) allocatearray::c_emis = (/(cc, cc=ccEndSI + 2*nsurf + 1, ccEndSI + 2*nsurf + nsurf, 1)/)

Definition at line 478 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics(), and suews_translate().

478  INTEGER, DIMENSION(nsurf):: c_emis = (/(cc, cc=ccendsi + 2*nsurf + 1, ccendsi + 2*nsurf + nsurf, 1)/) !Emissivity
integer, parameter ccendsi
integer, parameter nsurf
integer, dimension(nsurf) c_emis

◆ c_enef_v_jkm

integer allocatearray::c_enef_v_jkm = (ccEndO + 34)

Definition at line 655 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

655  INTEGER :: c_enef_v_jkm = (ccendo + 34)
integer, parameter ccendo

◆ c_enprofwd

integer allocatearray::c_enprofwd = (ccEndO + 18)

Definition at line 639 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

639  INTEGER :: c_enprofwd = (ccendo + 18)
integer, parameter ccendo

◆ c_enprofwe

integer allocatearray::c_enprofwe = (ccEndO + 19)

Definition at line 640 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

640  INTEGER :: c_enprofwe = (ccendo + 19)
integer, parameter ccendo

◆ c_estmcode

integer, dimension(nsurfincsnow) allocatearray::c_estmcode = (/(cc, cc=ccEndGs + 18*nsurfIncSnow + 1, ccEndGs + 18*nsurfIncSnow + nsurfIncSnow, 1)/)

Definition at line 615 of file suews_ctrl_const.f95.

Referenced by codematchestm(), and initializesurfacecharacteristics().

615  INTEGER, DIMENSION(nsurfIncSnow):: c_estmcode = (/(cc, cc=ccendgs + 18*nsurfincsnow + 1, &
616  ccendgs + 18*nsurfincsnow + nsurfincsnow, 1)/) !ESTM code
integer, parameter nsurfincsnow
integer, parameter ccendgs
integer, dimension(nsurfincsnow) c_estmcode

◆ c_faut

integer allocatearray::c_faut = (ccEndA + 4)

Definition at line 668 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

668  INTEGER :: c_faut = (ccenda + 4)
integer, parameter ccenda

◆ c_fcef_v_kgkmwd

integer allocatearray::c_fcef_v_kgkmwd = (ccEndO + 35)

Definition at line 656 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

656  INTEGER :: c_fcef_v_kgkmwd = (ccendo + 35)
integer, parameter ccendo

◆ c_fcef_v_kgkmwe

integer allocatearray::c_fcef_v_kgkmwe = (ccEndO + 36)

Definition at line 657 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

657  INTEGER :: c_fcef_v_kgkmwe = (ccendo + 36)
integer, parameter ccendo

◆ c_frfossilfuel_heat

integer allocatearray::c_frfossilfuel_heat = (ccEndO + 31)

Definition at line 652 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

652  INTEGER :: c_frfossilfuel_heat = (ccendo + 31)
integer, parameter ccendo
integer c_frfossilfuel_heat

◆ c_frfossilfuel_nonheat

integer allocatearray::c_frfossilfuel_nonheat = (ccEndO + 32)

Definition at line 653 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

653  INTEGER :: c_frfossilfuel_nonheat = (ccendo + 32)
integer, parameter ccendo
integer c_frfossilfuel_nonheat

◆ c_frpddwe

integer allocatearray::c_frpddwe = (ccEndO + 30)

Definition at line 651 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics(), and suews_translate().

651  INTEGER :: c_frpddwe = (ccendo + 30)
integer, parameter ccendo

◆ c_gddfull

integer, dimension(nvegsurf) allocatearray::c_gddfull = (/(cc, cc=ccEndI + 2*nvegsurf + 1, ccEndI + 2*nvegsurf + nvegsurf, 1)/)

Definition at line 503 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics(), initialstate(), and suews_translate().

503  INTEGER, DIMENSION(NVegSurf):: c_gddfull = (/(cc, cc=ccendi + 2*nvegsurf + 1, ccendi + 2*nvegsurf + nvegsurf, 1)/) !GDD for full LAI
integer, parameter ccendi
integer, parameter nvegsurf
integer, dimension(nvegsurf) c_gddfull

◆ c_gsg1

integer allocatearray::c_gsg1 = (ccEndSo + 1)

Definition at line 559 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics(), and suews_translate().

559  INTEGER:: c_gsg1 = (ccendso + 1)
integer, parameter ccendso

◆ c_gsg2

integer allocatearray::c_gsg2 = (ccEndSo + 2)

Definition at line 560 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics(), and suews_translate().

560  INTEGER:: c_gsg2 = (ccendso + 2)
integer, parameter ccendso

◆ c_gsg3

integer allocatearray::c_gsg3 = (ccEndSo + 3)

Definition at line 561 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics(), and suews_translate().

561  INTEGER:: c_gsg3 = (ccendso + 3)
integer, parameter ccendso

◆ c_gsg4

integer allocatearray::c_gsg4 = (ccEndSo + 4)

Definition at line 562 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics(), and suews_translate().

562  INTEGER:: c_gsg4 = (ccendso + 4)
integer, parameter ccendso

◆ c_gsg5

integer allocatearray::c_gsg5 = (ccEndSo + 5)

Definition at line 563 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics(), and suews_translate().

563  INTEGER:: c_gsg5 = (ccendso + 5)
integer, parameter ccendso

◆ c_gsg6

integer allocatearray::c_gsg6 = (ccEndSo + 6)

Definition at line 564 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics(), and suews_translate().

564  INTEGER:: c_gsg6 = (ccendso + 6)
integer, parameter ccendso

◆ c_gskmax

integer allocatearray::c_gskmax = (ccEndSo + 11)

Definition at line 569 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics(), and suews_translate().

569  INTEGER:: c_gskmax = (ccendso + 11)
integer, parameter ccendso

◆ c_gsmax

integer, dimension(nvegsurf) allocatearray::c_gsmax = (/(cc, cc=ccEndI + 8*nvegsurf + 1, ccEndI + 8*nvegsurf + nvegsurf, 1)/)

Definition at line 509 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics(), and suews_translate().

509  INTEGER, DIMENSION(NVegSurf):: c_gsmax = (/(cc, cc=ccendi + 8*nvegsurf + 1, ccendi + 8*nvegsurf + nvegsurf, 1)/) !Max. conductance
integer, parameter ccendi
integer, parameter nvegsurf
integer, dimension(nvegsurf) c_gsmax

◆ c_gsmodel

integer allocatearray::c_gsmodel = (ccEndSo + 12)

Definition at line 570 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics(), and suews_translate().

570  INTEGER:: c_gsmodel = (ccendso + 12)
integer, parameter ccendso

◆ c_gss1

integer allocatearray::c_gss1 = (ccEndSo + 9)

Definition at line 567 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics(), and suews_translate().

567  INTEGER:: c_gss1 = (ccendso + 9)
integer, parameter ccendso

◆ c_gss2

integer allocatearray::c_gss2 = (ccEndSo + 10)

Definition at line 568 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics(), and suews_translate().

568  INTEGER:: c_gss2 = (ccendso + 10)
integer, parameter ccendso

◆ c_gsth

integer allocatearray::c_gsth = (ccEndSo + 7)

Definition at line 565 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics(), and suews_translate().

565  INTEGER:: c_gsth = (ccendso + 7)
integer, parameter ccendso

◆ c_gstl

integer allocatearray::c_gstl = (ccEndSo + 8)

Definition at line 566 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics(), and suews_translate().

566  INTEGER:: c_gstl = (ccendso + 8)
integer, parameter ccendso

◆ c_hrprofenusewd

integer, dimension(24) allocatearray::c_hrprofenusewd = (/(cc, cc=ccEndIr + 0*24 + 1, ccEndIr + 0*24 + 24, 1)/)

Definition at line 678 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

678  INTEGER, DIMENSION(24):: c_hrprofenusewd = (/(cc, cc=ccendir + 0*24 + 1, ccendir + 0*24 + 24, 1)/) ! Energy use, weekdays
integer, parameter ccendir
integer, dimension(24) c_hrprofenusewd

◆ c_hrprofenusewe

integer, dimension(24) allocatearray::c_hrprofenusewe = (/(cc, cc=ccEndIr + 1*24 + 1, ccEndIr + 1*24 + 24, 1)/)

Definition at line 679 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

679  INTEGER, DIMENSION(24):: c_hrprofenusewe = (/(cc, cc=ccendir + 1*24 + 1, ccendir + 1*24 + 24, 1)/) ! Energy use, weekends
integer, parameter ccendir
integer, dimension(24) c_hrprofenusewe

◆ c_hrprofhumactivitywd

integer, dimension(24) allocatearray::c_hrprofhumactivitywd = (/(cc, cc=ccEndIr + 8*24 + 1, ccEndIr + 8*24 + 24, 1)/)

Definition at line 686 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

686  INTEGER, DIMENSION(24):: c_hrprofhumactivitywd = (/(cc, cc=ccendir + 8*24 + 1, ccendir + 8*24 + 24, 1)/) ! Human activity, weekdays
integer, parameter ccendir
integer, dimension(24) c_hrprofhumactivitywd

◆ c_hrprofhumactivitywe

integer, dimension(24) allocatearray::c_hrprofhumactivitywe = (/(cc, cc=ccEndIr + 9*24 + 1, ccEndIr + 9*24 + 24, 1)/)

Definition at line 687 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

687  INTEGER, DIMENSION(24):: c_hrprofhumactivitywe = (/(cc, cc=ccendir + 9*24 + 1, ccendir + 9*24 + 24, 1)/) ! Human activity, weekends
integer, parameter ccendir
integer, dimension(24) c_hrprofhumactivitywe

◆ c_hrprofpopwd

integer, dimension(24) allocatearray::c_hrprofpopwd = (/(cc, cc=ccEndIr + 12*24 + 1, ccEndIr + 12*24 + 24, 1)/)

Definition at line 690 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

690  INTEGER, DIMENSION(24):: c_hrprofpopwd = (/(cc, cc=ccendir + 12*24 + 1, ccendir + 12*24 + 24, 1)/) ! Population, weekdays
integer, parameter ccendir
integer, dimension(24) c_hrprofpopwd

◆ c_hrprofpopwe

integer, dimension(24) allocatearray::c_hrprofpopwe = (/(cc, cc=ccEndIr + 13*24 + 1, ccEndIr + 13*24 + 24, 1)/)

Definition at line 691 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

691  INTEGER, DIMENSION(24):: c_hrprofpopwe = (/(cc, cc=ccendir + 13*24 + 1, ccendir + 13*24 + 24, 1)/) ! Population, weekends
integer, parameter ccendir
integer, dimension(24) c_hrprofpopwe

◆ c_hrprofsnowcwd

integer, dimension(24) allocatearray::c_hrprofsnowcwd = (/(cc, cc=ccEndIr + 6*24 + 1, ccEndIr + 6*24 + 24, 1)/)

Definition at line 684 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

684  INTEGER, DIMENSION(24):: c_hrprofsnowcwd = (/(cc, cc=ccendir + 6*24 + 1, ccendir + 6*24 + 24, 1)/) ! Snow clearing, weekdays
integer, parameter ccendir
integer, dimension(24) c_hrprofsnowcwd

◆ c_hrprofsnowcwe

integer, dimension(24) allocatearray::c_hrprofsnowcwe = (/(cc, cc=ccEndIr + 7*24 + 1, ccEndIr + 7*24 + 24, 1)/)

Definition at line 685 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

685  INTEGER, DIMENSION(24):: c_hrprofsnowcwe = (/(cc, cc=ccendir + 7*24 + 1, ccendir + 7*24 + 24, 1)/) ! Snow clearing, weekends
integer, parameter ccendir
integer, dimension(24) c_hrprofsnowcwe

◆ c_hrproftraffwd

integer, dimension(24) allocatearray::c_hrproftraffwd = (/(cc, cc=ccEndIr + 10*24 + 1, ccEndIr + 10*24 + 24, 1)/)

Definition at line 688 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

688  INTEGER, DIMENSION(24):: c_hrproftraffwd = (/(cc, cc=ccendir + 10*24 + 1, ccendir + 10*24 + 24, 1)/) ! Traffic, weekdays
integer, parameter ccendir
integer, dimension(24) c_hrproftraffwd

◆ c_hrproftraffwe

integer, dimension(24) allocatearray::c_hrproftraffwe = (/(cc, cc=ccEndIr + 11*24 + 1, ccEndIr + 11*24 + 24, 1)/)

Definition at line 689 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

689  INTEGER, DIMENSION(24):: c_hrproftraffwe = (/(cc, cc=ccendir + 11*24 + 1, ccendir + 11*24 + 24, 1)/) ! Traffic, weekends
integer, parameter ccendir
integer, dimension(24) c_hrproftraffwe

◆ c_hrprofwuautowd

integer, dimension(24) allocatearray::c_hrprofwuautowd = (/(cc, cc=ccEndIr + 4*24 + 1, ccEndIr + 4*24 + 24, 1)/)

Definition at line 682 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

682  INTEGER, DIMENSION(24):: c_hrprofwuautowd = (/(cc, cc=ccendir + 4*24 + 1, ccendir + 4*24 + 24, 1)/) ! Water use, automatic, weekdays
integer, parameter ccendir
integer, dimension(24) c_hrprofwuautowd

◆ c_hrprofwuautowe

integer, dimension(24) allocatearray::c_hrprofwuautowe = (/(cc, cc=ccEndIr + 5*24 + 1, ccEndIr + 5*24 + 24, 1)/)

Definition at line 683 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

683  INTEGER, DIMENSION(24):: c_hrprofwuautowe = (/(cc, cc=ccendir + 5*24 + 1, ccendir + 5*24 + 24, 1)/) ! Water use, automatic, weekends
integer, parameter ccendir
integer, dimension(24) c_hrprofwuautowe

◆ c_hrprofwumanuwd

integer, dimension(24) allocatearray::c_hrprofwumanuwd = (/(cc, cc=ccEndIr + 2*24 + 1, ccEndIr + 2*24 + 24, 1)/)

Definition at line 680 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

680  INTEGER, DIMENSION(24):: c_hrprofwumanuwd = (/(cc, cc=ccendir + 2*24 + 1, ccendir + 2*24 + 24, 1)/) ! Water use, manual, weekdays
integer, parameter ccendir
integer, dimension(24) c_hrprofwumanuwd

◆ c_hrprofwumanuwe

integer, dimension(24) allocatearray::c_hrprofwumanuwe = (/(cc, cc=ccEndIr + 3*24 + 1, ccEndIr + 3*24 + 24, 1)/)

Definition at line 681 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

681  INTEGER, DIMENSION(24):: c_hrprofwumanuwe = (/(cc, cc=ccendir + 3*24 + 1, ccendir + 3*24 + 24, 1)/) ! Water use, manual, weekends
integer, parameter ccendir
integer, dimension(24) c_hrprofwumanuwe

◆ c_ie_a

integer, dimension(3) allocatearray::c_ie_a = (/(cc, cc=ccEndA + 4 + 0*3 + 1, ccEndA + 4 + 0*3 + 3, 1)/)

Definition at line 669 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

669  INTEGER, DIMENSION(3):: c_ie_a = (/(cc, cc=ccenda + 4 + 0*3 + 1, ccenda + 4 + 0*3 + 3, 1)/) ! Automatic irrigation coeffs
integer, dimension(3) c_ie_a
integer, parameter ccenda

◆ c_ie_m

integer, dimension(3) allocatearray::c_ie_m = (/(cc, cc=ccEndA + 4 + 1*3 + 1, ccEndA + 4 + 1*3 + 3, 1)/)

Definition at line 670 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

670  INTEGER, DIMENSION(3):: c_ie_m = (/(cc, cc=ccenda + 4 + 1*3 + 1, ccenda + 4 + 1*3 + 3, 1)/) ! Manual irrigation coeffs
integer, dimension(3) c_ie_m
integer, parameter ccenda

◆ c_ieend

integer allocatearray::c_ieend = (ccEndA + 2)

Definition at line 666 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

666  INTEGER :: c_ieend = (ccenda + 2)
integer, parameter ccenda

◆ c_iestart

integer allocatearray::c_iestart = (ccEndA + 1)

Definition at line 665 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

665  INTEGER :: c_iestart = (ccenda + 1)
integer, parameter ccenda

◆ c_internal_k1

integer allocatearray::c_internal_k1 = (ccEndESTMB + 17)

Definition at line 760 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

760  INTEGER:: c_internal_k1 = (ccendestmb + 17)
integer, parameter ccendestmb

◆ c_internal_k1_bldgs

integer, dimension(5) allocatearray::c_internal_k1_bldgs = (/(cc, cc=ccEndESTMMP + 31*5 + 1, ccEndESTMMP + 31*5 + 5, 1)/)

Definition at line 832 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

832  INTEGER, DIMENSION(5):: c_internal_k1_bldgs = (/(cc, cc=ccendestmmp + 31*5 + 1, ccendestmmp + 31*5 + 5, 1)/)
integer, parameter ccendestmmp
integer, dimension(5) c_internal_k1_bldgs

◆ c_internal_k2

integer allocatearray::c_internal_k2 = (ccEndESTMB + 20)

Definition at line 763 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

763  INTEGER:: c_internal_k2 = (ccendestmb + 20)
integer, parameter ccendestmb

◆ c_internal_k2_bldgs

integer, dimension(5) allocatearray::c_internal_k2_bldgs = (/(cc, cc=ccEndESTMMP + 34*5 + 1, ccEndESTMMP + 34*5 + 5, 1)/)

Definition at line 835 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

835  INTEGER, DIMENSION(5):: c_internal_k2_bldgs = (/(cc, cc=ccendestmmp + 34*5 + 1, ccendestmmp + 34*5 + 5, 1)/)
integer, parameter ccendestmmp
integer, dimension(5) c_internal_k2_bldgs

◆ c_internal_k3

integer allocatearray::c_internal_k3 = (ccEndESTMB + 23)

Definition at line 766 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

766  INTEGER:: c_internal_k3 = (ccendestmb + 23)
integer, parameter ccendestmb

◆ c_internal_k3_bldgs

integer, dimension(5) allocatearray::c_internal_k3_bldgs = (/(cc, cc=ccEndESTMMP + 37*5 + 1, ccEndESTMMP + 37*5 + 5, 1)/)

Definition at line 838 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

838  INTEGER, DIMENSION(5):: c_internal_k3_bldgs = (/(cc, cc=ccendestmmp + 37*5 + 1, ccendestmmp + 37*5 + 5, 1)/)
integer, parameter ccendestmmp
integer, dimension(5) c_internal_k3_bldgs

◆ c_internal_k4

integer allocatearray::c_internal_k4 = (ccEndESTMB + 26)

Definition at line 769 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

769  INTEGER:: c_internal_k4 = (ccendestmb + 26)
integer, parameter ccendestmb

◆ c_internal_k4_bldgs

integer, dimension(5) allocatearray::c_internal_k4_bldgs = (/(cc, cc=ccEndESTMMP + 40*5 + 1, ccEndESTMMP + 40*5 + 5, 1)/)

Definition at line 841 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

841  INTEGER, DIMENSION(5):: c_internal_k4_bldgs = (/(cc, cc=ccendestmmp + 40*5 + 1, ccendestmmp + 40*5 + 5, 1)/)
integer, parameter ccendestmmp
integer, dimension(5) c_internal_k4_bldgs

◆ c_internal_k5

integer allocatearray::c_internal_k5 = (ccEndESTMB + 29)

Definition at line 772 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

772  INTEGER:: c_internal_k5 = (ccendestmb + 29)
integer, parameter ccendestmb

◆ c_internal_k5_bldgs

integer, dimension(5) allocatearray::c_internal_k5_bldgs = (/(cc, cc=ccEndESTMMP + 43*5 + 1, ccEndESTMMP + 43*5 + 5, 1)/)

Definition at line 844 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

844  INTEGER, DIMENSION(5):: c_internal_k5_bldgs = (/(cc, cc=ccendestmmp + 43*5 + 1, ccendestmmp + 43*5 + 5, 1)/)
integer, parameter ccendestmmp
integer, dimension(5) c_internal_k5_bldgs

◆ c_internal_rhocp1

integer allocatearray::c_internal_rhocp1 = (ccEndESTMB + 18)

Definition at line 761 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

761  INTEGER:: c_internal_rhocp1 = (ccendestmb + 18)
integer, parameter ccendestmb

◆ c_internal_rhocp1_bldgs

integer, dimension(5) allocatearray::c_internal_rhocp1_bldgs = (/(cc, cc=ccEndESTMMP + 32*5 + 1, ccEndESTMMP + 32*5 + 5, 1)/)

Definition at line 833 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

833  INTEGER, DIMENSION(5):: c_internal_rhocp1_bldgs = (/(cc, cc=ccendestmmp + 32*5 + 1, ccendestmmp + 32*5 + 5, 1)/)
integer, parameter ccendestmmp
integer, dimension(5) c_internal_rhocp1_bldgs

◆ c_internal_rhocp2

integer allocatearray::c_internal_rhocp2 = (ccEndESTMB + 21)

Definition at line 764 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

764  INTEGER:: c_internal_rhocp2 = (ccendestmb + 21)
integer, parameter ccendestmb

◆ c_internal_rhocp2_bldgs

integer, dimension(5) allocatearray::c_internal_rhocp2_bldgs = (/(cc, cc=ccEndESTMMP + 35*5 + 1, ccEndESTMMP + 35*5 + 5, 1)/)

Definition at line 836 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

836  INTEGER, DIMENSION(5):: c_internal_rhocp2_bldgs = (/(cc, cc=ccendestmmp + 35*5 + 1, ccendestmmp + 35*5 + 5, 1)/)
integer, dimension(5) c_internal_rhocp2_bldgs
integer, parameter ccendestmmp

◆ c_internal_rhocp3

integer allocatearray::c_internal_rhocp3 = (ccEndESTMB + 24)

Definition at line 767 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

767  INTEGER:: c_internal_rhocp3 = (ccendestmb + 24)
integer, parameter ccendestmb

◆ c_internal_rhocp3_bldgs

integer, dimension(5) allocatearray::c_internal_rhocp3_bldgs = (/(cc, cc=ccEndESTMMP + 38*5 + 1, ccEndESTMMP + 38*5 + 5, 1)/)

Definition at line 839 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

839  INTEGER, DIMENSION(5):: c_internal_rhocp3_bldgs = (/(cc, cc=ccendestmmp + 38*5 + 1, ccendestmmp + 38*5 + 5, 1)/)
integer, parameter ccendestmmp
integer, dimension(5) c_internal_rhocp3_bldgs

◆ c_internal_rhocp4

integer allocatearray::c_internal_rhocp4 = (ccEndESTMB + 27)

Definition at line 770 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

770  INTEGER:: c_internal_rhocp4 = (ccendestmb + 27)
integer, parameter ccendestmb

◆ c_internal_rhocp4_bldgs

integer, dimension(5) allocatearray::c_internal_rhocp4_bldgs = (/(cc, cc=ccEndESTMMP + 41*5 + 1, ccEndESTMMP + 41*5 + 5, 1)/)

Definition at line 842 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

842  INTEGER, DIMENSION(5):: c_internal_rhocp4_bldgs = (/(cc, cc=ccendestmmp + 41*5 + 1, ccendestmmp + 41*5 + 5, 1)/)
integer, parameter ccendestmmp
integer, dimension(5) c_internal_rhocp4_bldgs

◆ c_internal_rhocp5

integer allocatearray::c_internal_rhocp5 = (ccEndESTMB + 30)

Definition at line 773 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

773  INTEGER:: c_internal_rhocp5 = (ccendestmb + 30)
integer, parameter ccendestmb

◆ c_internal_rhocp5_bldgs

integer, dimension(5) allocatearray::c_internal_rhocp5_bldgs = (/(cc, cc=ccEndESTMMP + 44*5 + 1, ccEndESTMMP + 44*5 + 5, 1)/)

Definition at line 845 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

845  INTEGER, DIMENSION(5):: c_internal_rhocp5_bldgs = (/(cc, cc=ccendestmmp + 44*5 + 1, ccendestmmp + 44*5 + 5, 1)/)
integer, parameter ccendestmmp
integer, dimension(5) c_internal_rhocp5_bldgs

◆ c_internal_thick1

integer allocatearray::c_internal_thick1 = (ccEndESTMB + 16)

Definition at line 759 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

759  INTEGER:: c_internal_thick1 = (ccendestmb + 16)
integer, parameter ccendestmb

◆ c_internal_thick1_bldgs

integer, dimension(5) allocatearray::c_internal_thick1_bldgs = (/(cc, cc=ccEndESTMMP + 30*5 + 1, ccEndESTMMP + 30*5 + 5, 1)/)

Definition at line 831 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

831  INTEGER, DIMENSION(5):: c_internal_thick1_bldgs = (/(cc, cc=ccendestmmp + 30*5 + 1, ccendestmmp + 30*5 + 5, 1)/)
integer, parameter ccendestmmp
integer, dimension(5) c_internal_thick1_bldgs

◆ c_internal_thick2

integer allocatearray::c_internal_thick2 = (ccEndESTMB + 19)

Definition at line 762 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

762  INTEGER:: c_internal_thick2 = (ccendestmb + 19)
integer, parameter ccendestmb

◆ c_internal_thick2_bldgs

integer, dimension(5) allocatearray::c_internal_thick2_bldgs = (/(cc, cc=ccEndESTMMP + 33*5 + 1, ccEndESTMMP + 33*5 + 5, 1)/)

Definition at line 834 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

834  INTEGER, DIMENSION(5):: c_internal_thick2_bldgs = (/(cc, cc=ccendestmmp + 33*5 + 1, ccendestmmp + 33*5 + 5, 1)/)
integer, parameter ccendestmmp
integer, dimension(5) c_internal_thick2_bldgs

◆ c_internal_thick3

integer allocatearray::c_internal_thick3 = (ccEndESTMB + 22)

Definition at line 765 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

765  INTEGER:: c_internal_thick3 = (ccendestmb + 22)
integer, parameter ccendestmb

◆ c_internal_thick3_bldgs

integer, dimension(5) allocatearray::c_internal_thick3_bldgs = (/(cc, cc=ccEndESTMMP + 36*5 + 1, ccEndESTMMP + 36*5 + 5, 1)/)

Definition at line 837 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

837  INTEGER, DIMENSION(5):: c_internal_thick3_bldgs = (/(cc, cc=ccendestmmp + 36*5 + 1, ccendestmmp + 36*5 + 5, 1)/)
integer, parameter ccendestmmp
integer, dimension(5) c_internal_thick3_bldgs

◆ c_internal_thick4

integer allocatearray::c_internal_thick4 = (ccEndESTMB + 25)

Definition at line 768 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

768  INTEGER:: c_internal_thick4 = (ccendestmb + 25)
integer, parameter ccendestmb

◆ c_internal_thick4_bldgs

integer, dimension(5) allocatearray::c_internal_thick4_bldgs = (/(cc, cc=ccEndESTMMP + 39*5 + 1, ccEndESTMMP + 39*5 + 5, 1)/)

Definition at line 840 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

840  INTEGER, DIMENSION(5):: c_internal_thick4_bldgs = (/(cc, cc=ccendestmmp + 39*5 + 1, ccendestmmp + 39*5 + 5, 1)/)
integer, parameter ccendestmmp
integer, dimension(5) c_internal_thick4_bldgs

◆ c_internal_thick5

integer allocatearray::c_internal_thick5 = (ccEndESTMB + 28)

Definition at line 771 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

771  INTEGER:: c_internal_thick5 = (ccendestmb + 28)
integer, parameter ccendestmb

◆ c_internal_thick5_bldgs

integer, dimension(5) allocatearray::c_internal_thick5_bldgs = (/(cc, cc=ccEndESTMMP + 42*5 + 1, ccEndESTMMP + 42*5 + 5, 1)/)

Definition at line 843 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

843  INTEGER, DIMENSION(5):: c_internal_thick5_bldgs = (/(cc, cc=ccendestmmp + 42*5 + 1, ccendestmmp + 42*5 + 5, 1)/)
integer, parameter ccendestmmp
integer, dimension(5) c_internal_thick5_bldgs

◆ c_intwu

integer allocatearray::c_intwu = (ccEndA + 3)

Definition at line 667 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

667  INTEGER :: c_intwu = (ccenda + 3)
integer, parameter ccenda

◆ c_kkanohm

integer, dimension(nsurf) allocatearray::c_kkanohm = (/(cc, cc=ccEndSI + 14*nsurf + 1, ccEndSI + 14*nsurf + nsurf, 1)/)

Definition at line 494 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

494  INTEGER, DIMENSION(nsurf):: c_kkanohm = (/(cc, cc=ccendsi + 14*nsurf + 1, ccendsi + 14*nsurf + nsurf, 1)/) !heat conductivity, AnOHM TS
integer, parameter ccendsi
integer, parameter nsurf
integer, dimension(nsurf) c_kkanohm

◆ c_ksat

integer, dimension(nsurf) allocatearray::c_ksat = (/(cc, cc=ccEndSn + 2*nsurf + 1, ccEndSn + 2*nsurf + nsurf, 1)/)

Definition at line 548 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics(), and suews_translate().

548  INTEGER, DIMENSION(nsurf):: c_ksat = (/(cc, cc=ccendsn + 2*nsurf + 1, ccendsn + 2*nsurf + nsurf, 1)/) ! Saturated hydraulic conductivity
integer, parameter nsurf
integer, dimension(nsurf) c_ksat
integer, parameter ccendsn

◆ c_laieq

integer, dimension(nvegsurf) allocatearray::c_laieq = (/(cc, cc=ccEndI + 9*nvegsurf + 1, ccEndI + 9*nvegsurf + nvegsurf, 1)/)

Definition at line 510 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics(), and suews_translate().

510  INTEGER, DIMENSION(NVegSurf):: c_laieq = (/(cc, cc=ccendi + 9*nvegsurf + 1, ccendi + 9*nvegsurf + nvegsurf, 1)/) !LAI equation
integer, dimension(nvegsurf) c_laieq
integer, parameter ccendi
integer, parameter nvegsurf

◆ c_laimax

integer, dimension(nvegsurf) allocatearray::c_laimax = (/(cc, cc=ccEndI + 5*nvegsurf + 1, ccEndI + 5*nvegsurf + nvegsurf, 1)/)

Definition at line 506 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics(), initialstate(), and suews_translate().

506  INTEGER, DIMENSION(NVegSurf):: c_laimax = (/(cc, cc=ccendi + 5*nvegsurf + 1, ccendi + 5*nvegsurf + nvegsurf, 1)/) !Max. LAI
integer, dimension(nvegsurf) c_laimax
integer, parameter ccendi
integer, parameter nvegsurf

◆ c_laimin

integer, dimension(nvegsurf) allocatearray::c_laimin = (/(cc, cc=ccEndI + 4*nvegsurf + 1, ccEndI + 4*nvegsurf + nvegsurf, 1)/)

Definition at line 505 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics(), initialstate(), and suews_translate().

505  INTEGER, DIMENSION(NVegSurf):: c_laimin = (/(cc, cc=ccendi + 4*nvegsurf + 1, ccendi + 4*nvegsurf + nvegsurf, 1)/) !Min. LAI
integer, dimension(nvegsurf) c_laimin
integer, parameter ccendi
integer, parameter nvegsurf

◆ c_leafgp1

integer, dimension(nvegsurf) allocatearray::c_leafgp1 = (/(cc, cc=ccEndI + 10*nvegsurf + 1, ccEndI + 10*nvegsurf + nvegsurf, 1)/)

Definition at line 511 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics(), and suews_translate().

511  INTEGER, DIMENSION(NVegSurf):: c_leafgp1 = (/(cc, cc=ccendi + 10*nvegsurf + 1, ccendi + 10*nvegsurf + nvegsurf, 1)/) !Leaf growth power 1
integer, dimension(nvegsurf) c_leafgp1
integer, parameter ccendi
integer, parameter nvegsurf

◆ c_leafgp2

integer, dimension(nvegsurf) allocatearray::c_leafgp2 = (/(cc, cc=ccEndI + 11*nvegsurf + 1, ccEndI + 11*nvegsurf + nvegsurf, 1)/)

Definition at line 512 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics(), and suews_translate().

512  INTEGER, DIMENSION(NVegSurf):: c_leafgp2 = (/(cc, cc=ccendi + 11*nvegsurf + 1, ccendi + 11*nvegsurf + nvegsurf, 1)/) !Leaf growth power 2
integer, dimension(nvegsurf) c_leafgp2
integer, parameter ccendi
integer, parameter nvegsurf

◆ c_leafop1

integer, dimension(nvegsurf) allocatearray::c_leafop1 = (/(cc, cc=ccEndI + 12*nvegsurf + 1, ccEndI + 12*nvegsurf + nvegsurf, 1)/)

Definition at line 513 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics(), and suews_translate().

513  INTEGER, DIMENSION(NVegSurf):: c_leafop1 = (/(cc, cc=ccendi + 12*nvegsurf + 1, ccendi + 12*nvegsurf + nvegsurf, 1)/) !Leaf-off power 1
integer, parameter ccendi
integer, parameter nvegsurf
integer, dimension(nvegsurf) c_leafop1

◆ c_leafop2

integer, dimension(nvegsurf) allocatearray::c_leafop2 = (/(cc, cc=ccEndI + 13*nvegsurf + 1, ccEndI + 13*nvegsurf + nvegsurf, 1)/)

Definition at line 514 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics(), and suews_translate().

514  INTEGER, DIMENSION(NVegSurf):: c_leafop2 = (/(cc, cc=ccendi + 13*nvegsurf + 1, ccendi + 13*nvegsurf + nvegsurf, 1)/) !Leaf-off power 2
integer, dimension(nvegsurf) c_leafop2
integer, parameter ccendi
integer, parameter nvegsurf

◆ c_maxfcmetab

integer allocatearray::c_maxfcmetab = (ccEndO + 29)

Definition at line 650 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

650  INTEGER :: c_maxfcmetab = (ccendo + 29)
integer, parameter ccendo

◆ c_maxqfmetab

integer allocatearray::c_maxqfmetab = (ccEndO + 27)

Definition at line 648 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

648  INTEGER :: c_maxqfmetab = (ccendo + 27)
integer, parameter ccendo

◆ c_min_res_bioco2

integer, dimension(nvegsurf) allocatearray::c_min_res_bioco2 = (/(cc, cc=cBEndWG + 7*nvegsurf + 1, cBEndWG + 7*nvegsurf + nvegsurf, 1)/)

Definition at line 718 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics(), and suews_translate().

718  INTEGER, DIMENSION(nvegsurf):: c_min_res_bioco2 = (/(cc, cc=cbendwg + 7*nvegsurf + 1, cbendwg + 7*nvegsurf + nvegsurf, 1)/)
integer, parameter cbendwg
integer, dimension(nvegsurf) c_min_res_bioco2
integer, parameter nvegsurf

◆ c_minfcmetab

integer allocatearray::c_minfcmetab = (ccEndO + 28)

Definition at line 649 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

649  INTEGER :: c_minfcmetab = (ccendo + 28)
integer, parameter ccendo

◆ c_minqfmetab

integer allocatearray::c_minqfmetab = (ccEndO + 26)

Definition at line 647 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

647  INTEGER :: c_minqfmetab = (ccendo + 26)
integer, parameter ccendo

◆ c_nroom

integer allocatearray::c_nroom = (ccEndESTMB + 31)

Definition at line 774 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

774  INTEGER:: c_nroom = (ccendestmb + 31)
integer, parameter ccendestmb

◆ c_nroom_bldgs

integer, dimension(5) allocatearray::c_nroom_bldgs = (ccEndESTMMP + 44*5 + 5 + 1)

Definition at line 846 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

846  INTEGER, DIMENSION(5):: c_nroom_bldgs = (ccendestmmp + 44*5 + 5 + 1)
integer, parameter ccendestmmp
integer, dimension(5) c_nroom_bldgs

◆ c_obssmdepth

integer, dimension(nsurf) allocatearray::c_obssmdepth = (/(cc, cc=ccEndSn + 5*nsurf + 1, ccEndSn + 5*nsurf + nsurf, 1)/)

Definition at line 551 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics(), and suews_translate().

551  INTEGER, DIMENSION(nsurf):: c_obssmdepth = (/(cc, cc=ccendsn + 5*nsurf + 1, ccendsn + 5*nsurf + nsurf, 1)/) ! Depth of SM obs
integer, dimension(nsurf) c_obssmdepth
integer, parameter nsurf
integer, parameter ccendsn

◆ c_obssmmax

integer, dimension(nsurf) allocatearray::c_obssmmax = (/(cc, cc=ccEndSn + 6*nsurf + 1, ccEndSn + 6*nsurf + nsurf, 1)/)

Definition at line 552 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics(), and suews_translate().

552  INTEGER, DIMENSION(nsurf):: c_obssmmax = (/(cc, cc=ccendsn + 6*nsurf + 1, ccendsn + 6*nsurf + nsurf, 1)/) ! Obs maximum SM [kg kg-1 OR m3 m-3]
integer, parameter nsurf
integer, dimension(nsurf) c_obssmmax
integer, parameter ccendsn

◆ c_obssnrfrac

integer, dimension(nsurf) allocatearray::c_obssnrfrac = (/(cc, cc=ccEndSn + 7*nsurf + 1, ccEndSn + 7*nsurf + nsurf, 1)/)

Definition at line 553 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics(), and suews_translate().

553  INTEGER, DIMENSION(nsurf):: c_obssnrfrac = (/(cc, cc=ccendsn + 7*nsurf + 1, ccendsn + 7*nsurf + nsurf, 1)/) ! Obs fraction of soil without rocks
integer, parameter nsurf
integer, dimension(nsurf) c_obssnrfrac
integer, parameter ccendsn

◆ c_ohmcode_sdry

integer, dimension(nsurfincsnow) allocatearray::c_ohmcode_sdry = (/(cc, cc=ccEndGs + 1*nsurfIncSnow + 1, ccEndGs + 1*nsurfIncSnow + nsurfIncSnow, 1)/)

Definition at line 578 of file suews_ctrl_const.f95.

Referenced by codematchohm(), and initializesurfacecharacteristics().

578  INTEGER, DIMENSION(nsurfIncSnow):: c_ohmcode_sdry = (/(cc, cc=ccendgs + 1*nsurfincsnow + 1, &
579  ccendgs + 1*nsurfincsnow + nsurfincsnow, 1)/) !OHM code (summer dry)
integer, parameter nsurfincsnow
integer, parameter ccendgs
integer, dimension(nsurfincsnow) c_ohmcode_sdry

◆ c_ohmcode_swet

integer, dimension(nsurfincsnow) allocatearray::c_ohmcode_swet = (/(cc, cc=ccEndGs + 0*nsurfIncSnow + 1, ccEndGs + 0*nsurfIncSnow + nsurfIncSnow, 1)/)

Definition at line 576 of file suews_ctrl_const.f95.

Referenced by codematchohm(), and initializesurfacecharacteristics().

576  INTEGER, DIMENSION(nsurfIncSnow):: c_ohmcode_swet = (/(cc, cc=ccendgs + 0*nsurfincsnow + 1, &
577  ccendgs + 0*nsurfincsnow + nsurfincsnow, 1)/) !OHM code (summer wet)
integer, dimension(nsurfincsnow) c_ohmcode_swet
integer, parameter nsurfincsnow
integer, parameter ccendgs

◆ c_ohmcode_wdry

integer, dimension(nsurfincsnow) allocatearray::c_ohmcode_wdry = (/(cc, cc=ccEndGs + 3*nsurfIncSnow + 1, ccEndGs + 3*nsurfIncSnow + nsurfIncSnow, 1)/)

Definition at line 582 of file suews_ctrl_const.f95.

Referenced by codematchohm(), and initializesurfacecharacteristics().

582  INTEGER, DIMENSION(nsurfIncSnow):: c_ohmcode_wdry = (/(cc, cc=ccendgs + 3*nsurfincsnow + 1, &
583  ccendgs + 3*nsurfincsnow + nsurfincsnow, 1)/) !OHM code (winter dry)
integer, parameter nsurfincsnow
integer, parameter ccendgs
integer, dimension(nsurfincsnow) c_ohmcode_wdry

◆ c_ohmcode_wwet

integer, dimension(nsurfincsnow) allocatearray::c_ohmcode_wwet = (/(cc, cc=ccEndGs + 2*nsurfIncSnow + 1, ccEndGs + 2*nsurfIncSnow + nsurfIncSnow, 1)/)

Definition at line 580 of file suews_ctrl_const.f95.

Referenced by codematchohm(), and initializesurfacecharacteristics().

580  INTEGER, DIMENSION(nsurfIncSnow):: c_ohmcode_wwet = (/(cc, cc=ccendgs + 2*nsurfincsnow + 1, &
581  ccendgs + 2*nsurfincsnow + nsurfincsnow, 1)/) !OHM code (winter wet)
integer, parameter nsurfincsnow
integer, dimension(nsurfincsnow) c_ohmcode_wwet
integer, parameter ccendgs

◆ c_ohmthresh_sw

integer, dimension(nsurfincsnow) allocatearray::c_ohmthresh_sw = (/(cc, cc=ccEndGs + 16*nsurfIncSnow + 1, ccEndGs + 16*nsurfIncSnow + nsurfIncSnow, 1)/)

Definition at line 609 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

609  INTEGER, DIMENSION(nsurfIncSnow):: c_ohmthresh_sw = (/(cc, cc=ccendgs + 16*nsurfincsnow + 1, &
610  ccendgs + 16*nsurfincsnow + nsurfincsnow, 1)/) !OHM Threshold (summer/winter)
integer, parameter nsurfincsnow
integer, parameter ccendgs
integer, dimension(nsurfincsnow) c_ohmthresh_sw

◆ c_ohmthresh_wd

integer, dimension(nsurfincsnow) allocatearray::c_ohmthresh_wd = (/(cc, cc=ccEndGs + 17*nsurfIncSnow + 1, ccEndGs + 17*nsurfIncSnow + nsurfIncSnow, 1)/)

Definition at line 611 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

611  INTEGER, DIMENSION(nsurfIncSnow):: c_ohmthresh_wd = (/(cc, cc=ccendgs + 17*nsurfincsnow + 1, &
612  ccendgs + 17*nsurfincsnow + nsurfincsnow, 1)/) !OHM Threshold (wet/dry)
integer, parameter nsurfincsnow
integer, parameter ccendgs
integer, dimension(nsurfincsnow) c_ohmthresh_wd

◆ c_popprofwd

integer allocatearray::c_popprofwd = (ccEndO + 24)

Definition at line 645 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

645  INTEGER :: c_popprofwd = (ccendo + 24)
integer, parameter ccendo

◆ c_popprofwe

integer allocatearray::c_popprofwe = (ccEndO + 25)

Definition at line 646 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

646  INTEGER :: c_popprofwe = (ccendo + 25)
integer, parameter ccendo

◆ c_porositymax

integer, dimension(nvegsurf) allocatearray::c_porositymax = (/(cc, cc=ccEndI + 7*nvegsurf + 1, ccEndI + 7*nvegsurf + nvegsurf, 1)/)

Definition at line 508 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics(), initialstate(), and suews_translate().

508  INTEGER, DIMENSION(NVegSurf):: c_porositymax = (/(cc, cc=ccendi + 7*nvegsurf + 1, ccendi + 7*nvegsurf + nvegsurf, 1)/) !Max. Porosity
integer, dimension(nvegsurf) c_porositymax
integer, parameter ccendi
integer, parameter nvegsurf

◆ c_porositymin

integer, dimension(nvegsurf) allocatearray::c_porositymin = (/(cc, cc=ccEndI + 6*nvegsurf + 1, ccEndI + 6*nvegsurf + nvegsurf, 1)/)

Definition at line 507 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics(), initialstate(), and suews_translate().

507  INTEGER, DIMENSION(NVegSurf):: c_porositymin = (/(cc, cc=ccendi + 6*nvegsurf + 1, ccendi + 6*nvegsurf + nvegsurf, 1)/) !Min. Porosity
integer, dimension(nvegsurf) c_porositymin
integer, parameter ccendi
integer, parameter nvegsurf

◆ c_qf_a1

integer allocatearray::c_qf_a1 = (ccEndO + 2)

Definition at line 623 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

623  INTEGER :: c_qf_a1 = (ccendo + 2)
integer, parameter ccendo

◆ c_qf_a2

integer allocatearray::c_qf_a2 = (ccEndO + 5)

Definition at line 626 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

626  INTEGER :: c_qf_a2 = (ccendo + 5)
integer, parameter ccendo

◆ c_qf_b1

integer allocatearray::c_qf_b1 = (ccEndO + 3)

Definition at line 624 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

624  INTEGER :: c_qf_b1 = (ccendo + 3)
integer, parameter ccendo

◆ c_qf_b2

integer allocatearray::c_qf_b2 = (ccEndO + 6)

Definition at line 627 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

627  INTEGER :: c_qf_b2 = (ccendo + 6)
integer, parameter ccendo

◆ c_qf_c1

integer allocatearray::c_qf_c1 = (ccEndO + 4)

Definition at line 625 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

625  INTEGER :: c_qf_c1 = (ccendo + 4)
integer, parameter ccendo

◆ c_qf_c2

integer allocatearray::c_qf_c2 = (ccEndO + 7)

Definition at line 628 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

628  INTEGER :: c_qf_c2 = (ccendo + 7)
integer, parameter ccendo

◆ c_resp_a

integer, dimension(nvegsurf) allocatearray::c_resp_a = (/(cc, cc=cBEndWG + 5*nvegsurf + 1, cBEndWG + 5*nvegsurf + nvegsurf, 1)/)

Definition at line 716 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics(), and suews_translate().

716  INTEGER, DIMENSION(nvegsurf):: c_resp_a = (/(cc, cc=cbendwg + 5*nvegsurf + 1, cbendwg + 5*nvegsurf + nvegsurf, 1)/)
integer, parameter cbendwg
integer, parameter nvegsurf
integer, dimension(nvegsurf) c_resp_a

◆ c_resp_b

integer, dimension(nvegsurf) allocatearray::c_resp_b = (/(cc, cc=cBEndWG + 6*nvegsurf + 1, cBEndWG + 6*nvegsurf + nvegsurf, 1)/)

Definition at line 717 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics(), and suews_translate().

717  INTEGER, DIMENSION(nvegsurf):: c_resp_b = (/(cc, cc=cbendwg + 6*nvegsurf + 1, cbendwg + 6*nvegsurf + nvegsurf, 1)/)
integer, dimension(nvegsurf) c_resp_b
integer, parameter cbendwg
integer, parameter nvegsurf

◆ c_sddfull

integer, dimension(nvegsurf) allocatearray::c_sddfull = (/(cc, cc=ccEndI + 3*nvegsurf + 1, ccEndI + 3*nvegsurf + nvegsurf, 1)/)

Definition at line 504 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics(), initialstate(), and suews_translate().

504  INTEGER, DIMENSION(NVegSurf):: c_sddfull = (/(cc, cc=ccendi + 3*nvegsurf + 1, ccendi + 3*nvegsurf + nvegsurf, 1)/) !SDD for start of leaf-fall
integer, dimension(nvegsurf) c_sddfull
integer, parameter ccendi
integer, parameter nvegsurf

◆ c_snowalbmax

integer allocatearray::c_snowalbmax = (ccEndW + 4)

Definition at line 529 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics(), and suews_translate().

529  INTEGER:: c_snowalbmax = (ccendw + 4)
integer, parameter ccendw

◆ c_snowalbmin

integer allocatearray::c_snowalbmin = (ccEndW + 3)

Definition at line 528 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics(), and suews_translate().

528  INTEGER:: c_snowalbmin = (ccendw + 3)
integer, parameter ccendw

◆ c_snowcrwmax

integer allocatearray::c_snowcrwmax = (ccEndW + 14)

Definition at line 539 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics(), and suews_translate().

539  INTEGER:: c_snowcrwmax = (ccendw + 14)
integer, parameter ccendw

◆ c_snowcrwmin

integer allocatearray::c_snowcrwmin = (ccEndW + 13)

Definition at line 538 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics(), and suews_translate().

538  INTEGER:: c_snowcrwmin = (ccendw + 13)
integer, parameter ccendw

◆ c_snowemis

integer allocatearray::c_snowemis = (ccEndW + 6)

Definition at line 531 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics(), and suews_translate().

531  INTEGER:: c_snowemis = (ccendw + 6)
integer, parameter ccendw

◆ c_snowlimpat

integer, dimension(nsurf) allocatearray::c_snowlimpat = (/(cc, cc=ccEndSI + 11*nsurf + 1, ccEndSI + 11*nsurf + nsurf, 1)/)

Definition at line 489 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics(), and suews_translate().

489  INTEGER, DIMENSION(nsurf):: c_snowlimpat = (/(cc, cc=ccendsi + 11*nsurf + 1, ccendsi + 11*nsurf + nsurf, 1)/) !Snow limit for patchiness
integer, dimension(nsurf) c_snowlimpat
integer, parameter ccendsi
integer, parameter nsurf

◆ c_snowlimrem

integer, dimension(nsurf) allocatearray::c_snowlimrem = (/(cc, cc=ccEndSI + 12*nsurf + 1, ccEndSI + 12*nsurf + nsurf, 1)/)

Definition at line 491 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics(), and suews_translate().

491  INTEGER, DIMENSION(nsurf):: c_snowlimrem = (/(cc, cc=ccendsi + 12*nsurf + 1, ccendsi + 12*nsurf + nsurf, 1)/) !Snow limit for removal
integer, dimension(nsurf) c_snowlimrem
integer, parameter ccendsi
integer, parameter nsurf

◆ c_snowplimalb

integer allocatearray::c_snowplimalb = (ccEndW + 9)

Definition at line 534 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics(), and suews_translate().

534  INTEGER:: c_snowplimalb = (ccendw + 9)
integer, parameter ccendw

◆ c_snowplimsnow

integer allocatearray::c_snowplimsnow = (ccEndW + 15)

Definition at line 540 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics(), and suews_translate().

540  INTEGER:: c_snowplimsnow = (ccendw + 15)
integer, parameter ccendw

◆ c_snowrmfactor

integer allocatearray::c_snowrmfactor = (ccEndW + 1)

Definition at line 526 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics(), and suews_translate().

526  INTEGER:: c_snowrmfactor = (ccendw + 1)
integer, parameter ccendw

◆ c_snowsdmax

integer allocatearray::c_snowsdmax = (ccEndW + 11)

Definition at line 536 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics(), and suews_translate().

536  INTEGER:: c_snowsdmax = (ccendw + 11)
integer, parameter ccendw

◆ c_snowsdmin

integer allocatearray::c_snowsdmin = (ccEndW + 10)

Definition at line 535 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics(), and suews_translate().

535  INTEGER:: c_snowsdmin = (ccendw + 10)
integer, parameter ccendw

◆ c_snowtau_a

integer allocatearray::c_snowtau_a = (ccEndW + 7)

Definition at line 532 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics(), and suews_translate().

532  INTEGER:: c_snowtau_a = (ccendw + 7)
integer, parameter ccendw

◆ c_snowtau_f

integer allocatearray::c_snowtau_f = (ccEndW + 8)

Definition at line 533 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics(), and suews_translate().

533  INTEGER:: c_snowtau_f = (ccendw + 8)
integer, parameter ccendw

◆ c_snowtau_r

integer allocatearray::c_snowtau_r = (ccEndW + 12)

Definition at line 537 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics(), and suews_translate().

537  INTEGER:: c_snowtau_r = (ccendw + 12)
integer, parameter ccendw

◆ c_snowtmfactor

integer allocatearray::c_snowtmfactor = (ccEndW + 2)

Definition at line 527 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics(), and suews_translate().

527  INTEGER:: c_snowtmfactor = (ccendw + 2)
integer, parameter ccendw

◆ c_soildens

integer, dimension(nsurf) allocatearray::c_soildens = (/(cc, cc=ccEndSn + 3*nsurf + 1, ccEndSn + 3*nsurf + nsurf, 1)/)

Definition at line 549 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics(), and suews_translate().

549  INTEGER, DIMENSION(nsurf):: c_soildens = (/(cc, cc=ccendsn + 3*nsurf + 1, ccendsn + 3*nsurf + nsurf, 1)/) ! Soil Density
integer, parameter nsurf
integer, dimension(nsurf) c_soildens
integer, parameter ccendsn

◆ c_soildepth

integer, dimension(nsurf) allocatearray::c_soildepth = (/(cc, cc=ccEndSn + 0*nsurf + 1, ccEndSn + 0*nsurf + nsurf, 1)/)

Definition at line 546 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics(), and suews_translate().

546  INTEGER, DIMENSION(nsurf):: c_soildepth = (/(cc, cc=ccendsn + 0*nsurf + 1, ccendsn + 0*nsurf + nsurf, 1)/) ! Volumetric SM capacity
integer, dimension(nsurf) c_soildepth
integer, parameter nsurf
integer, parameter ccendsn

◆ c_soilinfrate

integer, dimension(nsurf) allocatearray::c_soilinfrate = (/(cc, cc=ccEndSn + 4*nsurf + 1, ccEndSn + 4*nsurf + nsurf, 1)/)

Definition at line 550 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

550  INTEGER, DIMENSION(nsurf):: c_soilinfrate = (/(cc, cc=ccendsn + 4*nsurf + 1, ccendsn + 4*nsurf + nsurf, 1)/) ! Soil infiltration rate
integer, dimension(nsurf) c_soilinfrate
integer, parameter nsurf
integer, parameter ccendsn

◆ c_soilstcap

integer, dimension(nsurf) allocatearray::c_soilstcap = (/(cc, cc=ccEndSn + 1*nsurf + 1, ccEndSn + 1*nsurf + nsurf, 1)/)

Definition at line 547 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics(), and suews_translate().

547  INTEGER, DIMENSION(nsurf):: c_soilstcap = (/(cc, cc=ccendsn + 1*nsurf + 1, ccendsn + 1*nsurf + nsurf, 1)/) ! Volumetric SM capacity
integer, parameter nsurf
integer, dimension(nsurf) c_soilstcap
integer, parameter ccendsn

◆ c_soiltcode

integer, dimension(nsurf) allocatearray::c_soiltcode = (/(cc, cc=ccEndSI + 10*nsurf + 1, ccEndSI + 10*nsurf + nsurf, 1)/)

Definition at line 486 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

486  INTEGER, DIMENSION(nsurf):: c_soiltcode = (/(cc, cc=ccendsi + 10*nsurf + 1, ccendsi + 10*nsurf + nsurf, 1)/) !Soil type code
integer, dimension(nsurf) c_soiltcode
integer, parameter ccendsi
integer, parameter nsurf

◆ c_statelimit

integer, dimension(nsurf) allocatearray::c_statelimit = (/(cc, cc=ccEndSI + 6*nsurf + 1, ccEndSI + 6*nsurf + nsurf, 1)/)

Definition at line 482 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics(), and suews_translate().

482  INTEGER, DIMENSION(nsurf):: c_statelimit = (/(cc, cc=ccendsi + 6*nsurf + 1, ccendsi + 6*nsurf + nsurf, 1)/) !Limit for surface state [mm]
integer, parameter ccendsi
integer, parameter nsurf
integer, dimension(nsurf) c_statelimit

◆ c_stormax

integer, dimension(nsurf) allocatearray::c_stormax = (/(cc, cc=ccEndSI + 4*nsurf + 1, ccEndSI + 4*nsurf + nsurf, 1)/)

Definition at line 480 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics(), initialstate(), and suews_translate().

480  INTEGER, DIMENSION(nsurf):: c_stormax = (/(cc, cc=ccendsi + 4*nsurf + 1, ccendsi + 4*nsurf + nsurf, 1)/) !Max. storage capacity (canopy)
integer, parameter ccendsi
integer, parameter nsurf
integer, dimension(nsurf) c_stormax

◆ c_stormin

integer, dimension(nsurf) allocatearray::c_stormin = (/(cc, cc=ccEndSI + 3*nsurf + 1, ccEndSI + 3*nsurf + nsurf, 1)/)

Definition at line 479 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics(), initialstate(), and suews_translate().

479  INTEGER, DIMENSION(nsurf):: c_stormin = (/(cc, cc=ccendsi + 3*nsurf + 1, ccendsi + 3*nsurf + nsurf, 1)/) !Min. storage capacity (canopy)
integer, parameter ccendsi
integer, parameter nsurf
integer, dimension(nsurf) c_stormin

◆ c_surf_k1

integer, dimension(nsurfincsnow) allocatearray::c_surf_k1 = [(cc, cc=ccEndB + 1*nsurfIncSnow + 1, ccEndB + 1*nsurfIncSnow + nsurfIncSnow, 1)]

Definition at line 725 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

◆ c_surf_k1_bldgs

integer, dimension(5) allocatearray::c_surf_k1_bldgs = (/(cc, cc=ccEndESTMMP + 1*5 + 1, ccEndESTMMP + 1*5 + 5, 1)/)

Definition at line 802 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

802  INTEGER, DIMENSION(5):: c_surf_k1_bldgs = (/(cc, cc=ccendestmmp + 1*5 + 1, ccendestmmp + 1*5 + 5, 1)/)
integer, parameter ccendestmmp
integer, dimension(5) c_surf_k1_bldgs

◆ c_surf_k1_paved

integer, dimension(3) allocatearray::c_surf_k1_paved = (/(cc, cc=ccEndESTMM + 1*3 + 1, ccEndESTMM + 1*3 + 3, 1)/)

Definition at line 784 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

784  INTEGER, DIMENSION(3):: c_surf_k1_paved = (/(cc, cc=ccendestmm + 1*3 + 1, ccendestmm + 1*3 + 3, 1)/)
integer, dimension(3) c_surf_k1_paved
integer, parameter ccendestmm

◆ c_surf_k2

integer, dimension(nsurfincsnow) allocatearray::c_surf_k2 = [(cc, cc=ccEndB + 4*nsurfIncSnow + 1, ccEndB + 4*nsurfIncSnow + nsurfIncSnow, 1)]

Definition at line 725 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

◆ c_surf_k2_bldgs

integer, dimension(5) allocatearray::c_surf_k2_bldgs = (/(cc, cc=ccEndESTMMP + 4*5 + 1, ccEndESTMMP + 4*5 + 5, 1)/)

Definition at line 805 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

805  INTEGER, DIMENSION(5):: c_surf_k2_bldgs = (/(cc, cc=ccendestmmp + 4*5 + 1, ccendestmmp + 4*5 + 5, 1)/)
integer, parameter ccendestmmp
integer, dimension(5) c_surf_k2_bldgs

◆ c_surf_k2_paved

integer, dimension(3) allocatearray::c_surf_k2_paved = (/(cc, cc=ccEndESTMM + 4*3 + 1, ccEndESTMM + 4*3 + 3, 1)/)

Definition at line 787 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

787  INTEGER, DIMENSION(3):: c_surf_k2_paved = (/(cc, cc=ccendestmm + 4*3 + 1, ccendestmm + 4*3 + 3, 1)/)
integer, dimension(3) c_surf_k2_paved
integer, parameter ccendestmm

◆ c_surf_k3

integer, dimension(nsurfincsnow) allocatearray::c_surf_k3 = [(cc, cc=ccEndB + 7*nsurfIncSnow + 1, ccEndB + 7*nsurfIncSnow + nsurfIncSnow, 1)]

Definition at line 725 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

◆ c_surf_k3_bldgs

integer, dimension(5) allocatearray::c_surf_k3_bldgs = (/(cc, cc=ccEndESTMMP + 7*5 + 1, ccEndESTMMP + 7*5 + 5, 1)/)

Definition at line 808 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

808  INTEGER, DIMENSION(5):: c_surf_k3_bldgs = (/(cc, cc=ccendestmmp + 7*5 + 1, ccendestmmp + 7*5 + 5, 1)/)
integer, parameter ccendestmmp
integer, dimension(5) c_surf_k3_bldgs

◆ c_surf_k3_paved

integer, dimension(3) allocatearray::c_surf_k3_paved = (/(cc, cc=ccEndESTMM + 7*3 + 1, ccEndESTMM + 7*3 + 3, 1)/)

Definition at line 790 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

790  INTEGER, DIMENSION(3):: c_surf_k3_paved = (/(cc, cc=ccendestmm + 7*3 + 1, ccendestmm + 7*3 + 3, 1)/)
integer, dimension(3) c_surf_k3_paved
integer, parameter ccendestmm

◆ c_surf_k4

integer, dimension(nsurfincsnow) allocatearray::c_surf_k4 = [(cc, cc=ccEndB + 10*nsurfIncSnow + 1, ccEndB + 10*nsurfIncSnow + nsurfIncSnow, 1)]

Definition at line 725 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

◆ c_surf_k4_bldgs

integer, dimension(5) allocatearray::c_surf_k4_bldgs = (/(cc, cc=ccEndESTMMP + 10*5 + 1, ccEndESTMMP + 10*5 + 5, 1)/)

Definition at line 811 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

811  INTEGER, DIMENSION(5):: c_surf_k4_bldgs = (/(cc, cc=ccendestmmp + 10*5 + 1, ccendestmmp + 10*5 + 5, 1)/)
integer, dimension(5) c_surf_k4_bldgs
integer, parameter ccendestmmp

◆ c_surf_k4_paved

integer, dimension(3) allocatearray::c_surf_k4_paved = (/(cc, cc=ccEndESTMM + 10*3 + 1, ccEndESTMM + 10*3 + 3, 1)/)

Definition at line 793 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

793  INTEGER, DIMENSION(3):: c_surf_k4_paved = (/(cc, cc=ccendestmm + 10*3 + 1, ccendestmm + 10*3 + 3, 1)/)
integer, parameter ccendestmm
integer, dimension(3) c_surf_k4_paved

◆ c_surf_k5

integer, dimension(nsurfincsnow) allocatearray::c_surf_k5 = [(cc, cc=ccEndB + 13*nsurfIncSnow + 1, ccEndB + 13*nsurfIncSnow + nsurfIncSnow, 1)]

Definition at line 725 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

◆ c_surf_k5_bldgs

integer, dimension(5) allocatearray::c_surf_k5_bldgs = (/(cc, cc=ccEndESTMMP + 13*5 + 1, ccEndESTMMP + 13*5 + 5, 1)/)

Definition at line 814 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

814  INTEGER, DIMENSION(5):: c_surf_k5_bldgs = (/(cc, cc=ccendestmmp + 13*5 + 1, ccendestmmp + 13*5 + 5, 1)/)
integer, parameter ccendestmmp
integer, dimension(5) c_surf_k5_bldgs

◆ c_surf_k5_paved

integer, dimension(3) allocatearray::c_surf_k5_paved = (/(cc, cc=ccEndESTMM + 13*3 + 1, ccEndESTMM + 13*3 + 3, 1)/)

Definition at line 796 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

796  INTEGER, DIMENSION(3):: c_surf_k5_paved = (/(cc, cc=ccendestmm + 13*3 + 1, ccendestmm + 13*3 + 3, 1)/)
integer, dimension(3) c_surf_k5_paved
integer, parameter ccendestmm

◆ c_surf_rhocp1

integer, dimension(nsurfincsnow) allocatearray::c_surf_rhocp1 = [(cc, cc=ccEndB + 2*nsurfIncSnow + 1, ccEndB + 2*nsurfIncSnow + nsurfIncSnow, 1)]

Definition at line 725 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

◆ c_surf_rhocp1_bldgs

integer, dimension(5) allocatearray::c_surf_rhocp1_bldgs = (/(cc, cc=ccEndESTMMP + 2*5 + 1, ccEndESTMMP + 2*5 + 5, 1)/)

Definition at line 803 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

803  INTEGER, DIMENSION(5):: c_surf_rhocp1_bldgs = (/(cc, cc=ccendestmmp + 2*5 + 1, ccendestmmp + 2*5 + 5, 1)/)
integer, parameter ccendestmmp
integer, dimension(5) c_surf_rhocp1_bldgs

◆ c_surf_rhocp1_paved

integer, dimension(3) allocatearray::c_surf_rhocp1_paved = (/(cc, cc=ccEndESTMM + 2*3 + 1, ccEndESTMM + 2*3 + 3, 1)/)

Definition at line 785 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

785  INTEGER, DIMENSION(3):: c_surf_rhocp1_paved = (/(cc, cc=ccendestmm + 2*3 + 1, ccendestmm + 2*3 + 3, 1)/)
integer, dimension(3) c_surf_rhocp1_paved
integer, parameter ccendestmm

◆ c_surf_rhocp2

integer, dimension(nsurfincsnow) allocatearray::c_surf_rhocp2 = [(cc, cc=ccEndB + 5*nsurfIncSnow + 1, ccEndB + 5*nsurfIncSnow + nsurfIncSnow, 1)]

Definition at line 725 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

◆ c_surf_rhocp2_bldgs

integer, dimension(5) allocatearray::c_surf_rhocp2_bldgs = (/(cc, cc=ccEndESTMMP + 5*5 + 1, ccEndESTMMP + 5*5 + 5, 1)/)

Definition at line 806 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

806  INTEGER, DIMENSION(5):: c_surf_rhocp2_bldgs = (/(cc, cc=ccendestmmp + 5*5 + 1, ccendestmmp + 5*5 + 5, 1)/)
integer, parameter ccendestmmp
integer, dimension(5) c_surf_rhocp2_bldgs

◆ c_surf_rhocp2_paved

integer, dimension(3) allocatearray::c_surf_rhocp2_paved = (/(cc, cc=ccEndESTMM + 5*3 + 1, ccEndESTMM + 5*3 + 3, 1)/)

Definition at line 788 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

788  INTEGER, DIMENSION(3):: c_surf_rhocp2_paved = (/(cc, cc=ccendestmm + 5*3 + 1, ccendestmm + 5*3 + 3, 1)/)
integer, dimension(3) c_surf_rhocp2_paved
integer, parameter ccendestmm

◆ c_surf_rhocp3

integer, dimension(nsurfincsnow) allocatearray::c_surf_rhocp3 = [(cc, cc=ccEndB + 8*nsurfIncSnow + 1, ccEndB + 8*nsurfIncSnow + nsurfIncSnow, 1)]

Definition at line 725 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

◆ c_surf_rhocp3_bldgs

integer, dimension(5) allocatearray::c_surf_rhocp3_bldgs = (/(cc, cc=ccEndESTMMP + 8*5 + 1, ccEndESTMMP + 8*5 + 5, 1)/)

Definition at line 809 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

809  INTEGER, DIMENSION(5):: c_surf_rhocp3_bldgs = (/(cc, cc=ccendestmmp + 8*5 + 1, ccendestmmp + 8*5 + 5, 1)/)
integer, parameter ccendestmmp
integer, dimension(5) c_surf_rhocp3_bldgs

◆ c_surf_rhocp3_paved

integer, dimension(3) allocatearray::c_surf_rhocp3_paved = (/(cc, cc=ccEndESTMM + 8*3 + 1, ccEndESTMM + 8*3 + 3, 1)/)

Definition at line 791 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

791  INTEGER, DIMENSION(3):: c_surf_rhocp3_paved = (/(cc, cc=ccendestmm + 8*3 + 1, ccendestmm + 8*3 + 3, 1)/)
integer, parameter ccendestmm
integer, dimension(3) c_surf_rhocp3_paved

◆ c_surf_rhocp4

integer, dimension(nsurfincsnow) allocatearray::c_surf_rhocp4 = [(cc, cc=ccEndB + 11*nsurfIncSnow + 1, ccEndB + 11*nsurfIncSnow + nsurfIncSnow, 1)]

Definition at line 725 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

◆ c_surf_rhocp4_bldgs

integer, dimension(5) allocatearray::c_surf_rhocp4_bldgs = (/(cc, cc=ccEndESTMMP + 11*5 + 1, ccEndESTMMP + 11*5 + 5, 1)/)

Definition at line 812 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

812  INTEGER, DIMENSION(5):: c_surf_rhocp4_bldgs = (/(cc, cc=ccendestmmp + 11*5 + 1, ccendestmmp + 11*5 + 5, 1)/)
integer, parameter ccendestmmp
integer, dimension(5) c_surf_rhocp4_bldgs

◆ c_surf_rhocp4_paved

integer, dimension(3) allocatearray::c_surf_rhocp4_paved = (/(cc, cc=ccEndESTMM + 11*3 + 1, ccEndESTMM + 11*3 + 3, 1)/)

Definition at line 794 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

794  INTEGER, DIMENSION(3):: c_surf_rhocp4_paved = (/(cc, cc=ccendestmm + 11*3 + 1, ccendestmm + 11*3 + 3, 1)/)
integer, dimension(3) c_surf_rhocp4_paved
integer, parameter ccendestmm

◆ c_surf_rhocp5

integer, dimension(nsurfincsnow) allocatearray::c_surf_rhocp5 = [(cc, cc=ccEndB + 14*nsurfIncSnow + 1, ccEndB + 14*nsurfIncSnow + nsurfIncSnow, 1)]

Definition at line 725 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

◆ c_surf_rhocp5_bldgs

integer, dimension(5) allocatearray::c_surf_rhocp5_bldgs = (/(cc, cc=ccEndESTMMP + 14*5 + 1, ccEndESTMMP + 14*5 + 5, 1)/)

Definition at line 815 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

815  INTEGER, DIMENSION(5):: c_surf_rhocp5_bldgs = (/(cc, cc=ccendestmmp + 14*5 + 1, ccendestmmp + 14*5 + 5, 1)/)
integer, parameter ccendestmmp
integer, dimension(5) c_surf_rhocp5_bldgs

◆ c_surf_rhocp5_paved

integer, dimension(3) allocatearray::c_surf_rhocp5_paved = (/(cc, cc=ccEndESTMM + 14*3 + 1, ccEndESTMM + 14*3 + 3, 1)/)

Definition at line 797 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

797  INTEGER, DIMENSION(3):: c_surf_rhocp5_paved = (/(cc, cc=ccendestmm + 14*3 + 1, ccendestmm + 14*3 + 3, 1)/)
integer, dimension(3) c_surf_rhocp5_paved
integer, parameter ccendestmm

◆ c_surf_thick1

integer, dimension(nsurfincsnow) allocatearray::c_surf_thick1 = [(cc, cc=ccEndB + 0*nsurfIncSnow + 1, ccEndB + 0*nsurfIncSnow + nsurfIncSnow, 1)]

Definition at line 725 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

725  INTEGER, DIMENSION(nsurfIncSnow) :: &
727  c_surf_k1 = [(cc, cc=ccendb + 1*nsurfincsnow + 1, ccendb + 1*nsurfincsnow + nsurfincsnow, 1)], &
730  c_surf_k2 = [(cc, cc=ccendb + 4*nsurfincsnow + 1, ccendb + 4*nsurfincsnow + nsurfincsnow, 1)], &
733  c_surf_k3 = [(cc, cc=ccendb + 7*nsurfincsnow + 1, ccendb + 7*nsurfincsnow + nsurfincsnow, 1)], &
736  c_surf_k4 = [(cc, cc=ccendb + 10*nsurfincsnow + 1, ccendb + 10*nsurfincsnow + nsurfincsnow, 1)], &
737  c_surf_rhocp4 = [(cc, cc=ccendb + 11*nsurfincsnow + 1, ccendb + 11*nsurfincsnow + nsurfincsnow, 1)], &
738  c_surf_thick5 = [(cc, cc=ccendb + 12*nsurfincsnow + 1, ccendb + 12*nsurfincsnow + nsurfincsnow, 1)], &
739  c_surf_k5 = [(cc, cc=ccendb + 13*nsurfincsnow + 1, ccendb + 13*nsurfincsnow + nsurfincsnow, 1)], &
integer, dimension(nsurfincsnow) c_surf_thick2
integer, dimension(nsurfincsnow) c_surf_k2
integer, dimension(nsurfincsnow) c_surf_rhocp5
integer, dimension(nsurfincsnow) c_surf_thick3
integer, parameter nsurfincsnow
integer, dimension(nsurfincsnow) c_surf_thick4
integer, dimension(nsurfincsnow) c_surf_rhocp2
integer, parameter ccendb
integer, dimension(nsurfincsnow) c_surf_rhocp1
integer, dimension(nsurfincsnow) c_surf_k4
integer, dimension(nsurfincsnow) c_surf_rhocp3
integer, dimension(nsurfincsnow) c_surf_thick5
integer, dimension(nsurfincsnow) c_surf_k5
integer, dimension(nsurfincsnow) c_surf_k1
integer, dimension(nsurfincsnow) c_surf_thick1
integer, dimension(nsurfincsnow) c_surf_k3
integer, dimension(nsurfincsnow) c_surf_rhocp4

◆ c_surf_thick1_bldgs

integer, dimension(5) allocatearray::c_surf_thick1_bldgs = (/(cc, cc=ccEndESTMMP + 0*5 + 1, ccEndESTMMP + 0*5 + 5, 1)/)

Definition at line 801 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

801  INTEGER, DIMENSION(5):: c_surf_thick1_bldgs = (/(cc, cc=ccendestmmp + 0*5 + 1, ccendestmmp + 0*5 + 5, 1)/)
integer, parameter ccendestmmp
integer, dimension(5) c_surf_thick1_bldgs

◆ c_surf_thick1_paved

integer, dimension(3) allocatearray::c_surf_thick1_paved = (/(cc, cc=ccEndESTMM + 0*3 + 1, ccEndESTMM + 0*3 + 3, 1)/)

Definition at line 783 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

783  INTEGER, DIMENSION(3):: c_surf_thick1_paved = (/(cc, cc=ccendestmm + 0*3 + 1, ccendestmm + 0*3 + 3, 1)/)
integer, dimension(3) c_surf_thick1_paved
integer, parameter ccendestmm

◆ c_surf_thick2

integer, dimension(nsurfincsnow) allocatearray::c_surf_thick2 = [(cc, cc=ccEndB + 3*nsurfIncSnow + 1, ccEndB + 3*nsurfIncSnow + nsurfIncSnow, 1)]

Definition at line 725 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

◆ c_surf_thick2_bldgs

integer, dimension(5) allocatearray::c_surf_thick2_bldgs = (/(cc, cc=ccEndESTMMP + 3*5 + 1, ccEndESTMMP + 3*5 + 5, 1)/)

Definition at line 804 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

804  INTEGER, DIMENSION(5):: c_surf_thick2_bldgs = (/(cc, cc=ccendestmmp + 3*5 + 1, ccendestmmp + 3*5 + 5, 1)/)
integer, parameter ccendestmmp
integer, dimension(5) c_surf_thick2_bldgs

◆ c_surf_thick2_paved

integer, dimension(3) allocatearray::c_surf_thick2_paved = (/(cc, cc=ccEndESTMM + 3*3 + 1, ccEndESTMM + 3*3 + 3, 1)/)

Definition at line 786 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

786  INTEGER, DIMENSION(3):: c_surf_thick2_paved = (/(cc, cc=ccendestmm + 3*3 + 1, ccendestmm + 3*3 + 3, 1)/)
integer, dimension(3) c_surf_thick2_paved
integer, parameter ccendestmm

◆ c_surf_thick3

integer, dimension(nsurfincsnow) allocatearray::c_surf_thick3 = [(cc, cc=ccEndB + 6*nsurfIncSnow + 1, ccEndB + 6*nsurfIncSnow + nsurfIncSnow, 1)]

Definition at line 725 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

◆ c_surf_thick3_bldgs

integer, dimension(5) allocatearray::c_surf_thick3_bldgs = (/(cc, cc=ccEndESTMMP + 6*5 + 1, ccEndESTMMP + 6*5 + 5, 1)/)

Definition at line 807 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

807  INTEGER, DIMENSION(5):: c_surf_thick3_bldgs = (/(cc, cc=ccendestmmp + 6*5 + 1, ccendestmmp + 6*5 + 5, 1)/)
integer, parameter ccendestmmp
integer, dimension(5) c_surf_thick3_bldgs

◆ c_surf_thick3_paved

integer, dimension(3) allocatearray::c_surf_thick3_paved = (/(cc, cc=ccEndESTMM + 6*3 + 1, ccEndESTMM + 6*3 + 3, 1)/)

Definition at line 789 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

789  INTEGER, DIMENSION(3):: c_surf_thick3_paved = (/(cc, cc=ccendestmm + 6*3 + 1, ccendestmm + 6*3 + 3, 1)/)
integer, dimension(3) c_surf_thick3_paved
integer, parameter ccendestmm

◆ c_surf_thick4

integer, dimension(nsurfincsnow) allocatearray::c_surf_thick4 = [(cc, cc=ccEndB + 9*nsurfIncSnow + 1, ccEndB + 9*nsurfIncSnow + nsurfIncSnow, 1)]

Definition at line 725 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

◆ c_surf_thick4_bldgs

integer, dimension(5) allocatearray::c_surf_thick4_bldgs = (/(cc, cc=ccEndESTMMP + 9*5 + 1, ccEndESTMMP + 9*5 + 5, 1)/)

Definition at line 810 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

810  INTEGER, DIMENSION(5):: c_surf_thick4_bldgs = (/(cc, cc=ccendestmmp + 9*5 + 1, ccendestmmp + 9*5 + 5, 1)/)
integer, parameter ccendestmmp
integer, dimension(5) c_surf_thick4_bldgs

◆ c_surf_thick4_paved

integer, dimension(3) allocatearray::c_surf_thick4_paved = (/(cc, cc=ccEndESTMM + 9*3 + 1, ccEndESTMM + 9*3 + 3, 1)/)

Definition at line 792 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

792  INTEGER, DIMENSION(3):: c_surf_thick4_paved = (/(cc, cc=ccendestmm + 9*3 + 1, ccendestmm + 9*3 + 3, 1)/)
integer, dimension(3) c_surf_thick4_paved
integer, parameter ccendestmm

◆ c_surf_thick5

integer, dimension(nsurfincsnow) allocatearray::c_surf_thick5 = [(cc, cc=ccEndB + 12*nsurfIncSnow + 1, ccEndB + 12*nsurfIncSnow + nsurfIncSnow, 1)]

Definition at line 725 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

◆ c_surf_thick5_bldgs

integer, dimension(5) allocatearray::c_surf_thick5_bldgs = (/(cc, cc=ccEndESTMMP + 12*5 + 1, ccEndESTMMP + 12*5 + 5, 1)/)

Definition at line 813 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

813  INTEGER, DIMENSION(5):: c_surf_thick5_bldgs = (/(cc, cc=ccendestmmp + 12*5 + 1, ccendestmmp + 12*5 + 5, 1)/)
integer, parameter ccendestmmp
integer, dimension(5) c_surf_thick5_bldgs

◆ c_surf_thick5_paved

integer, dimension(3) allocatearray::c_surf_thick5_paved = (/(cc, cc=ccEndESTMM + 12*3 + 1, ccEndESTMM + 12*3 + 3, 1)/)

Definition at line 795 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

795  INTEGER, DIMENSION(3):: c_surf_thick5_paved = (/(cc, cc=ccendestmm + 12*3 + 1, ccendestmm + 12*3 + 3, 1)/)
integer, parameter ccendestmm
integer, dimension(3) c_surf_thick5_paved

◆ c_tcriticcooling_wd

integer allocatearray::c_tcriticcooling_wd = (ccEndO + 17)

Definition at line 638 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

638  INTEGER :: c_tcriticcooling_wd = (ccendo + 17)
integer, parameter ccendo
integer c_tcriticcooling_wd

◆ c_tcriticcooling_we

integer allocatearray::c_tcriticcooling_we = (ccEndO + 16)

Definition at line 637 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

637  INTEGER :: c_tcriticcooling_we = (ccendo + 16)
integer, parameter ccendo
integer c_tcriticcooling_we

◆ c_tcriticheating_wd

integer allocatearray::c_tcriticheating_wd = (ccEndO + 15)

Definition at line 636 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

636  INTEGER :: c_tcriticheating_wd = (ccendo + 15)
integer, parameter ccendo
integer c_tcriticheating_wd

◆ c_tcriticheating_we

integer allocatearray::c_tcriticheating_we = (ccEndO + 14)

Definition at line 635 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

635  INTEGER :: c_tcriticheating_we = (ccendo + 14)
integer, parameter ccendo
integer c_tcriticheating_we

◆ c_theta_bioco2

integer, dimension(nvegsurf) allocatearray::c_theta_bioco2 = (/(cc, cc=cBEndWG + 2*nvegsurf + 1, cBEndWG + 2*nvegsurf + nvegsurf, 1)/)

Definition at line 713 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics(), and suews_translate().

713  INTEGER, DIMENSION(nvegsurf):: c_theta_bioco2 = (/(cc, cc=cbendwg + 2*nvegsurf + 1, cbendwg + 2*nvegsurf + nvegsurf, 1)/)
integer, dimension(nvegsurf) c_theta_bioco2
integer, parameter cbendwg
integer, parameter nvegsurf

◆ c_trafficunits

integer allocatearray::c_trafficunits = (ccEndO + 38)

Definition at line 659 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

659  INTEGER :: c_trafficunits = (ccendo + 38)
integer, parameter ccendo

◆ c_traffprofwd

integer allocatearray::c_traffprofwd = (ccEndO + 22)

Definition at line 643 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

643  INTEGER :: c_traffprofwd = (ccendo + 22)
integer, parameter ccendo

◆ c_traffprofwe

integer allocatearray::c_traffprofwe = (ccEndO + 23)

Definition at line 644 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

644  INTEGER :: c_traffprofwe = (ccendo + 23)
integer, parameter ccendo

◆ c_wall_k1

integer allocatearray::c_wall_k1 = (ccEndESTMB + 2)

Definition at line 745 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

745  INTEGER:: c_wall_k1 = (ccendestmb + 2)
integer, parameter ccendestmb

◆ c_wall_k1_bldgs

integer, dimension(5) allocatearray::c_wall_k1_bldgs = (/(cc, cc=ccEndESTMMP + 16*5 + 1, ccEndESTMMP + 16*5 + 5, 1)/)

Definition at line 817 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

817  INTEGER, DIMENSION(5):: c_wall_k1_bldgs = (/(cc, cc=ccendestmmp + 16*5 + 1, ccendestmmp + 16*5 + 5, 1)/)
integer, parameter ccendestmmp
integer, dimension(5) c_wall_k1_bldgs

◆ c_wall_k2

integer allocatearray::c_wall_k2 = (ccEndESTMB + 5)

Definition at line 748 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

748  INTEGER:: c_wall_k2 = (ccendestmb + 5)
integer, parameter ccendestmb

◆ c_wall_k2_bldgs

integer, dimension(5) allocatearray::c_wall_k2_bldgs = (/(cc, cc=ccEndESTMMP + 19*5 + 1, ccEndESTMMP + 19*5 + 5, 1)/)

Definition at line 820 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

820  INTEGER, DIMENSION(5):: c_wall_k2_bldgs = (/(cc, cc=ccendestmmp + 19*5 + 1, ccendestmmp + 19*5 + 5, 1)/)
integer, parameter ccendestmmp
integer, dimension(5) c_wall_k2_bldgs

◆ c_wall_k3

integer allocatearray::c_wall_k3 = (ccEndESTMB + 8)

Definition at line 751 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

751  INTEGER:: c_wall_k3 = (ccendestmb + 8)
integer, parameter ccendestmb

◆ c_wall_k3_bldgs

integer, dimension(5) allocatearray::c_wall_k3_bldgs = (/(cc, cc=ccEndESTMMP + 22*5 + 1, ccEndESTMMP + 22*5 + 5, 1)/)

Definition at line 823 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

823  INTEGER, DIMENSION(5):: c_wall_k3_bldgs = (/(cc, cc=ccendestmmp + 22*5 + 1, ccendestmmp + 22*5 + 5, 1)/)
integer, parameter ccendestmmp
integer, dimension(5) c_wall_k3_bldgs

◆ c_wall_k4

integer allocatearray::c_wall_k4 = (ccEndESTMB + 11)

Definition at line 754 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

754  INTEGER:: c_wall_k4 = (ccendestmb + 11)
integer, parameter ccendestmb

◆ c_wall_k4_bldgs

integer, dimension(5) allocatearray::c_wall_k4_bldgs = (/(cc, cc=ccEndESTMMP + 25*5 + 1, ccEndESTMMP + 25*5 + 5, 1)/)

Definition at line 826 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

826  INTEGER, DIMENSION(5):: c_wall_k4_bldgs = (/(cc, cc=ccendestmmp + 25*5 + 1, ccendestmmp + 25*5 + 5, 1)/)
integer, parameter ccendestmmp
integer, dimension(5) c_wall_k4_bldgs

◆ c_wall_k5

integer allocatearray::c_wall_k5 = (ccEndESTMB + 14)

Definition at line 757 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

757  INTEGER:: c_wall_k5 = (ccendestmb + 14)
integer, parameter ccendestmb

◆ c_wall_k5_bldgs

integer, dimension(5) allocatearray::c_wall_k5_bldgs = (/(cc, cc=ccEndESTMMP + 28*5 + 1, ccEndESTMMP + 28*5 + 5, 1)/)

Definition at line 829 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

829  INTEGER, DIMENSION(5):: c_wall_k5_bldgs = (/(cc, cc=ccendestmmp + 28*5 + 1, ccendestmmp + 28*5 + 5, 1)/)
integer, dimension(5) c_wall_k5_bldgs
integer, parameter ccendestmmp

◆ c_wall_rhocp1

integer allocatearray::c_wall_rhocp1 = (ccEndESTMB + 3)

Definition at line 746 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

746  INTEGER:: c_wall_rhocp1 = (ccendestmb + 3)
integer, parameter ccendestmb

◆ c_wall_rhocp1_bldgs

integer, dimension(5) allocatearray::c_wall_rhocp1_bldgs = (/(cc, cc=ccEndESTMMP + 17*5 + 1, ccEndESTMMP + 17*5 + 5, 1)/)

Definition at line 818 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

818  INTEGER, DIMENSION(5):: c_wall_rhocp1_bldgs = (/(cc, cc=ccendestmmp + 17*5 + 1, ccendestmmp + 17*5 + 5, 1)/)
integer, parameter ccendestmmp
integer, dimension(5) c_wall_rhocp1_bldgs

◆ c_wall_rhocp2

integer allocatearray::c_wall_rhocp2 = (ccEndESTMB + 6)

Definition at line 749 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

749  INTEGER:: c_wall_rhocp2 = (ccendestmb + 6)
integer, parameter ccendestmb

◆ c_wall_rhocp2_bldgs

integer, dimension(5) allocatearray::c_wall_rhocp2_bldgs = (/(cc, cc=ccEndESTMMP + 20*5 + 1, ccEndESTMMP + 20*5 + 5, 1)/)

Definition at line 821 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

821  INTEGER, DIMENSION(5):: c_wall_rhocp2_bldgs = (/(cc, cc=ccendestmmp + 20*5 + 1, ccendestmmp + 20*5 + 5, 1)/)
integer, parameter ccendestmmp
integer, dimension(5) c_wall_rhocp2_bldgs

◆ c_wall_rhocp3

integer allocatearray::c_wall_rhocp3 = (ccEndESTMB + 9)

Definition at line 752 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

752  INTEGER:: c_wall_rhocp3 = (ccendestmb + 9)
integer, parameter ccendestmb

◆ c_wall_rhocp3_bldgs

integer, dimension(5) allocatearray::c_wall_rhocp3_bldgs = (/(cc, cc=ccEndESTMMP + 23*5 + 1, ccEndESTMMP + 23*5 + 5, 1)/)

Definition at line 824 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

824  INTEGER, DIMENSION(5):: c_wall_rhocp3_bldgs = (/(cc, cc=ccendestmmp + 23*5 + 1, ccendestmmp + 23*5 + 5, 1)/)
integer, parameter ccendestmmp
integer, dimension(5) c_wall_rhocp3_bldgs

◆ c_wall_rhocp4

integer allocatearray::c_wall_rhocp4 = (ccEndESTMB + 12)

Definition at line 755 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

755  INTEGER:: c_wall_rhocp4 = (ccendestmb + 12)
integer, parameter ccendestmb

◆ c_wall_rhocp4_bldgs

integer, dimension(5) allocatearray::c_wall_rhocp4_bldgs = (/(cc, cc=ccEndESTMMP + 26*5 + 1, ccEndESTMMP + 26*5 + 5, 1)/)

Definition at line 827 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

827  INTEGER, DIMENSION(5):: c_wall_rhocp4_bldgs = (/(cc, cc=ccendestmmp + 26*5 + 1, ccendestmmp + 26*5 + 5, 1)/)
integer, parameter ccendestmmp
integer, dimension(5) c_wall_rhocp4_bldgs

◆ c_wall_rhocp5

integer allocatearray::c_wall_rhocp5 = (ccEndESTMB + 15)

Definition at line 758 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

758  INTEGER:: c_wall_rhocp5 = (ccendestmb + 15)
integer, parameter ccendestmb

◆ c_wall_rhocp5_bldgs

integer, dimension(5) allocatearray::c_wall_rhocp5_bldgs = (/(cc, cc=ccEndESTMMP + 29*5 + 1, ccEndESTMMP + 29*5 + 5, 1)/)

Definition at line 830 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

830  INTEGER, DIMENSION(5):: c_wall_rhocp5_bldgs = (/(cc, cc=ccendestmmp + 29*5 + 1, ccendestmmp + 29*5 + 5, 1)/)
integer, parameter ccendestmmp
integer, dimension(5) c_wall_rhocp5_bldgs

◆ c_wall_thick1

integer allocatearray::c_wall_thick1 = (ccEndESTMB + 1)

Definition at line 744 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

744  INTEGER:: c_wall_thick1 = (ccendestmb + 1)
integer, parameter ccendestmb

◆ c_wall_thick1_bldgs

integer, dimension(5) allocatearray::c_wall_thick1_bldgs = (/(cc, cc=ccEndESTMMP + 15*5 + 1, ccEndESTMMP + 15*5 + 5, 1)/)

Definition at line 816 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

816  INTEGER, DIMENSION(5):: c_wall_thick1_bldgs = (/(cc, cc=ccendestmmp + 15*5 + 1, ccendestmmp + 15*5 + 5, 1)/)
integer, parameter ccendestmmp
integer, dimension(5) c_wall_thick1_bldgs

◆ c_wall_thick2

integer allocatearray::c_wall_thick2 = (ccEndESTMB + 4)

Definition at line 747 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

747  INTEGER:: c_wall_thick2 = (ccendestmb + 4)
integer, parameter ccendestmb

◆ c_wall_thick2_bldgs

integer, dimension(5) allocatearray::c_wall_thick2_bldgs = (/(cc, cc=ccEndESTMMP + 18*5 + 1, ccEndESTMMP + 18*5 + 5, 1)/)

Definition at line 819 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

819  INTEGER, DIMENSION(5):: c_wall_thick2_bldgs = (/(cc, cc=ccendestmmp + 18*5 + 1, ccendestmmp + 18*5 + 5, 1)/)
integer, parameter ccendestmmp
integer, dimension(5) c_wall_thick2_bldgs

◆ c_wall_thick3

integer allocatearray::c_wall_thick3 = (ccEndESTMB + 7)

Definition at line 750 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

750  INTEGER:: c_wall_thick3 = (ccendestmb + 7)
integer, parameter ccendestmb

◆ c_wall_thick3_bldgs

integer, dimension(5) allocatearray::c_wall_thick3_bldgs = (/(cc, cc=ccEndESTMMP + 21*5 + 1, ccEndESTMMP + 21*5 + 5, 1)/)

Definition at line 822 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

822  INTEGER, DIMENSION(5):: c_wall_thick3_bldgs = (/(cc, cc=ccendestmmp + 21*5 + 1, ccendestmmp + 21*5 + 5, 1)/)
integer, parameter ccendestmmp
integer, dimension(5) c_wall_thick3_bldgs

◆ c_wall_thick4

integer allocatearray::c_wall_thick4 = (ccEndESTMB + 10)

Definition at line 753 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

753  INTEGER:: c_wall_thick4 = (ccendestmb + 10)
integer, parameter ccendestmb

◆ c_wall_thick4_bldgs

integer, dimension(5) allocatearray::c_wall_thick4_bldgs = (/(cc, cc=ccEndESTMMP + 24*5 + 1, ccEndESTMMP + 24*5 + 5, 1)/)

Definition at line 825 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

825  INTEGER, DIMENSION(5):: c_wall_thick4_bldgs = (/(cc, cc=ccendestmmp + 24*5 + 1, ccendestmmp + 24*5 + 5, 1)/)
integer, parameter ccendestmmp
integer, dimension(5) c_wall_thick4_bldgs

◆ c_wall_thick5

integer allocatearray::c_wall_thick5 = (ccEndESTMB + 13)

Definition at line 756 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

756  INTEGER:: c_wall_thick5 = (ccendestmb + 13)
integer, parameter ccendestmb

◆ c_wall_thick5_bldgs

integer, dimension(5) allocatearray::c_wall_thick5_bldgs = (/(cc, cc=ccEndESTMMP + 27*5 + 1, ccEndESTMMP + 27*5 + 5, 1)/)

Definition at line 828 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

828  INTEGER, DIMENSION(5):: c_wall_thick5_bldgs = (/(cc, cc=ccendestmmp + 27*5 + 1, ccendestmmp + 27*5 + 5, 1)/)
integer, parameter ccendestmmp
integer, dimension(5) c_wall_thick5_bldgs

◆ c_waterdepth

integer allocatearray::c_waterdepth = (ccEndP + 1)

Definition at line 520 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics(), initialstate(), and suews_translate().

520  INTEGER:: c_waterdepth = (ccendp + 1)
integer, parameter ccendp

◆ c_wetthresh

integer, dimension(nsurf) allocatearray::c_wetthresh = (/(cc, cc=ccEndSI + 5*nsurf + 1, ccEndSI + 5*nsurf + nsurf, 1)/)

Definition at line 481 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics(), and suews_translate().

481  INTEGER, DIMENSION(nsurf):: c_wetthresh = (/(cc, cc=ccendsi + 5*nsurf + 1, ccendsi + 5*nsurf + nsurf, 1)/) !Threshold for wet evaporation [mm]
integer, dimension(nsurf) c_wetthresh
integer, parameter ccendsi
integer, parameter nsurf

◆ c_wgtobldgs

integer, dimension(nsurf) allocatearray::c_wgtobldgs = (/(cc, cc=ccEndPr + 1*nsurf + 1, ccEndPr + 1*nsurf + nsurf, 1)/)

Definition at line 698 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

698  INTEGER, DIMENSION(nsurf):: c_wgtobldgs = (/(cc, cc=ccendpr + 1*nsurf + 1, ccendpr + 1*nsurf + nsurf, 1)/) !Water dist to Bldgs
integer, parameter nsurf
integer, parameter ccendpr
integer, dimension(nsurf) c_wgtobldgs

◆ c_wgtobsoil

integer, dimension(nsurf) allocatearray::c_wgtobsoil = (/(cc, cc=ccEndPr + 5*nsurf + 1, ccEndPr + 5*nsurf + nsurf, 1)/)

Definition at line 702 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

702  INTEGER, DIMENSION(nsurf):: c_wgtobsoil = (/(cc, cc=ccendpr + 5*nsurf + 1, ccendpr + 5*nsurf + nsurf, 1)/) !Water dist to BSoil
integer, parameter nsurf
integer, parameter ccendpr
integer, dimension(nsurf) c_wgtobsoil

◆ c_wgtodectr

integer, dimension(nsurf) allocatearray::c_wgtodectr = (/(cc, cc=ccEndPr + 3*nsurf + 1, ccEndPr + 3*nsurf + nsurf, 1)/)

Definition at line 700 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

700  INTEGER, DIMENSION(nsurf):: c_wgtodectr = (/(cc, cc=ccendpr + 3*nsurf + 1, ccendpr + 3*nsurf + nsurf, 1)/) !Water dist to DecTr
integer, parameter nsurf
integer, parameter ccendpr
integer, dimension(nsurf) c_wgtodectr

◆ c_wgtoevetr

integer, dimension(nsurf) allocatearray::c_wgtoevetr = (/(cc, cc=ccEndPr + 2*nsurf + 1, ccEndPr + 2*nsurf + nsurf, 1)/)

Definition at line 699 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

699  INTEGER, DIMENSION(nsurf):: c_wgtoevetr = (/(cc, cc=ccendpr + 2*nsurf + 1, ccendpr + 2*nsurf + nsurf, 1)/) !Water dist to EveTr
integer, parameter nsurf
integer, parameter ccendpr
integer, dimension(nsurf) c_wgtoevetr

◆ c_wgtograss

integer, dimension(nsurf) allocatearray::c_wgtograss = (/(cc, cc=ccEndPr + 4*nsurf + 1, ccEndPr + 4*nsurf + nsurf, 1)/)

Definition at line 701 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

701  INTEGER, DIMENSION(nsurf):: c_wgtograss = (/(cc, cc=ccendpr + 4*nsurf + 1, ccendpr + 4*nsurf + nsurf, 1)/) !Water dist to Grass
integer, parameter nsurf
integer, parameter ccendpr
integer, dimension(nsurf) c_wgtograss

◆ c_wgtopaved

integer, dimension(nsurf) allocatearray::c_wgtopaved = (/(cc, cc=ccEndPr + 0*nsurf + 1, ccEndPr + 0*nsurf + nsurf, 1)/)

Definition at line 697 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

697  INTEGER, DIMENSION(nsurf):: c_wgtopaved = (/(cc, cc=ccendpr + 0*nsurf + 1, ccendpr + 0*nsurf + nsurf, 1)/) !Water dist to Paved
integer, parameter nsurf
integer, parameter ccendpr
integer, dimension(nsurf) c_wgtopaved

◆ c_wgtorunoff

integer, dimension(nsurf) allocatearray::c_wgtorunoff = (/(cc, cc=ccEndPr + 7*nsurf + 1, ccEndPr + 7*nsurf + nsurf, 1)/)

Definition at line 704 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

704  INTEGER, DIMENSION(nsurf):: c_wgtorunoff = (/(cc, cc=ccendpr + 7*nsurf + 1, ccendpr + 7*nsurf + nsurf, 1)/) !Water dist to runoff
integer, parameter nsurf
integer, parameter ccendpr
integer, dimension(nsurf) c_wgtorunoff

◆ c_wgtosoilstore

integer, dimension(nsurf) allocatearray::c_wgtosoilstore = (/(cc, cc=ccEndPr + 8*nsurf + 1, ccEndPr + 8*nsurf + nsurf, 1)/)

Definition at line 705 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

705  INTEGER, DIMENSION(nsurf):: c_wgtosoilstore = (/(cc, cc=ccendpr + 8*nsurf + 1, ccendpr + 8*nsurf + nsurf, 1)/) !Water dist to sub-surface soil
integer, dimension(nsurf) c_wgtosoilstore
integer, parameter nsurf
integer, parameter ccendpr

◆ c_wgtowater

integer, dimension(nsurf) allocatearray::c_wgtowater = (/(cc, cc=ccEndPr + 6*nsurf + 1, ccEndPr + 6*nsurf + nsurf, 1)/)

Definition at line 703 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics().

703  INTEGER, DIMENSION(nsurf):: c_wgtowater = (/(cc, cc=ccendpr + 6*nsurf + 1, ccendpr + 6*nsurf + nsurf, 1)/) !Water dist to Water
integer, dimension(nsurf) c_wgtowater
integer, parameter nsurf
integer, parameter ccendpr

◆ capmax_dec

real(kind(1d0)) allocatearray::capmax_dec

Definition at line 265 of file suews_ctrl_const.f95.

Referenced by suews_calculations(), and suews_translate().

◆ capmin_dec

real(kind(1d0)) allocatearray::capmin_dec

Definition at line 265 of file suews_ctrl_const.f95.

Referenced by suews_calculations(), and suews_translate().

◆ cbendwg

integer, parameter allocatearray::cbendwg = (ccEndPr + 8*nsurf + nsurf)

Definition at line 708 of file suews_ctrl_const.f95.

708  INTEGER, PARAMETER:: cbendwg = (ccendpr + 8*nsurf + nsurf)
integer, parameter cbendwg
integer, parameter nsurf
integer, parameter ccendpr

◆ cc

integer allocatearray::cc

Definition at line 472 of file suews_ctrl_const.f95.

472  INTEGER:: cc !Column counter

◆ ccenda

integer, parameter allocatearray::ccenda = (ccEndO + 38)

Definition at line 662 of file suews_ctrl_const.f95.

662  INTEGER, PARAMETER:: ccenda = (ccendo + 38)
integer, parameter ccendo
integer, parameter ccenda

◆ ccendb

integer, parameter allocatearray::ccendb = (cBEndWG + 7*nvegsurf + nvegsurf)

Definition at line 721 of file suews_ctrl_const.f95.

721  INTEGER, PARAMETER:: ccendb = (cbendwg + 7*nvegsurf + nvegsurf)
integer, parameter cbendwg
integer, parameter ccendb
integer, parameter nvegsurf

◆ ccendestmb

integer, parameter allocatearray::ccendestmb = (ccEndB + 14*nsurfIncSnow + nsurfIncSnow)

Definition at line 742 of file suews_ctrl_const.f95.

742  INTEGER, PARAMETER:: ccendestmb = (ccendb + 14*nsurfincsnow + nsurfincsnow)
integer, parameter nsurfincsnow
integer, parameter ccendb
integer, parameter ccendestmb

◆ ccendestmm

integer, parameter allocatearray::ccendestmm = (ccEndESTMB + 36)

Definition at line 781 of file suews_ctrl_const.f95.

781  INTEGER, PARAMETER:: ccendestmm = (ccendestmb + 36)
integer, parameter ccendestmb
integer, parameter ccendestmm

◆ ccendestmmp

integer, parameter allocatearray::ccendestmmp = (ccEndESTMM + 14*3 + 3)

Definition at line 799 of file suews_ctrl_const.f95.

799  INTEGER, PARAMETER:: ccendestmmp = (ccendestmm + 14*3 + 3)
integer, parameter ccendestmmp
integer, parameter ccendestmm

◆ ccendgs

integer, parameter allocatearray::ccendgs = (ccEndSo + 12)

Definition at line 573 of file suews_ctrl_const.f95.

573  INTEGER, PARAMETER:: ccendgs = (ccendso + 12)
integer, parameter ccendgs
integer, parameter ccendso

◆ ccendi

integer, parameter allocatearray::ccendi = (ccEndSI + 15*nsurf + nsurf)

Definition at line 498 of file suews_ctrl_const.f95.

498  INTEGER, PARAMETER:: ccendi = (ccendsi + 15*nsurf + nsurf) !add columns for AnOHM, AnOHM TS
integer, parameter ccendsi
integer, parameter nsurf
integer, parameter ccendi

◆ ccendir

integer, parameter allocatearray::ccendir = (ccEndA + 10 + 1*7 + 7)

Definition at line 675 of file suews_ctrl_const.f95.

675  INTEGER, PARAMETER:: ccendir = (ccenda + 10 + 1*7 + 7)
integer, parameter ccendir
integer, parameter ccenda

◆ ccendo

integer, parameter allocatearray::ccendo = (ccEndGs + 18*nsurfIncSnow + nsurfIncSnow)

Definition at line 619 of file suews_ctrl_const.f95.

619  INTEGER, PARAMETER:: ccendo = (ccendgs + 18*nsurfincsnow + nsurfincsnow)
integer, parameter ccendo
integer, parameter nsurfincsnow
integer, parameter ccendgs

◆ ccendp

integer, parameter allocatearray::ccendp = (ccEndI + 14*nvegsurf + nvegsurf)

Definition at line 517 of file suews_ctrl_const.f95.

517  INTEGER, PARAMETER:: ccendp = (ccendi + 14*nvegsurf + nvegsurf)
integer, parameter ccendp
integer, parameter ccendi
integer, parameter nvegsurf

◆ ccendpr

integer, parameter allocatearray::ccendpr = (ccEndIr + 13*24 + 24)

Definition at line 694 of file suews_ctrl_const.f95.

694  INTEGER, PARAMETER:: ccendpr = (ccendir + 13*24 + 24)
integer, parameter ccendir
integer, parameter ccendpr

◆ ccendsi

integer, parameter allocatearray::ccendsi = ncolumnsSiteSelect

Definition at line 473 of file suews_ctrl_const.f95.

473  INTEGER, PARAMETER:: ccendsi = ncolumnssiteselect
integer, parameter ncolumnssiteselect
integer, parameter ccendsi

◆ ccendsn

integer, parameter allocatearray::ccendsn = (ccEndW + 15)

Definition at line 543 of file suews_ctrl_const.f95.

543  INTEGER, PARAMETER:: ccendsn = (ccendw + 15)
integer, parameter ccendw
integer, parameter ccendsn

◆ ccendso

integer, parameter allocatearray::ccendso = (ccEndSn + 7*nsurf + nsurf)

Definition at line 556 of file suews_ctrl_const.f95.

556  INTEGER, PARAMETER:: ccendso = (ccendsn + 7*nsurf + nsurf)
integer, parameter nsurf
integer, parameter ccendso
integer, parameter ccendsn

◆ ccendw

integer, parameter allocatearray::ccendw = (ccEndP + 1)

Definition at line 523 of file suews_ctrl_const.f95.

523  INTEGER, PARAMETER:: ccendw = (ccendp + 1)
integer, parameter ccendp
integer, parameter ccendw

◆ ccmds

integer, parameter allocatearray::ccmds = 30

Definition at line 873 of file suews_ctrl_const.f95.

873  INTEGER, PARAMETER:: ccmds = 30
integer, parameter ccmds

◆ ccmod

integer, parameter allocatearray::ccmod = 32

Definition at line 859 of file suews_ctrl_const.f95.

859  INTEGER, PARAMETER:: ccmod = 32
integer, parameter ccmod

◆ chang

real(kind(1d0)), dimension(nsurf) allocatearray::chang

Definition at line 206 of file suews_ctrl_const.f95.

206  REAL(KIND(1d0)), DIMENSION(nsurf):: chang !Change in state [mm]
real(kind(1d0)), dimension(nsurf) chang

◆ changsnow

real(kind(1d0)), dimension(nsurf) allocatearray::changsnow

Definition at line 409 of file suews_ctrl_const.f95.

409  REAL(KIND(1d0)), DIMENSION(nsurf):: changsnow, & !Change in snowpack in mm
410  maxsnowvol, & !! Maximum snow volume
411  snowwater, & !!Liquid water in the snow pack of ith surface
412  ev_snow, & !!Evaporation from snowpack in mm
413  mw_ind, & !Melt water from individual surface in mm
414  mw_indday, & !!Melt water per day from each surface type in m3
415  runoffsnow, & !!Runoff from snowpack in mm and in m3
416  snowdens, & !Density of snow
417  snowfrac, & !!Surface fraction of snow cover
418  icefrac, &
419  snowinit, &
420  snowdepth, & !Depth of snow in cm
421  snowtosurf, & !Meltwater flowing from snow to surface
422  volswe, &
423  statefraction, & !Fraction of state that can freeze
424  freezmelt, & !Amount of freezing meltwater in mm for the ith surface area
425  qm_freezstate, & !Heat by freezing of surface state
426  freezstate, & !Amount of freezing state in mm for the ith surface area
427  freezstatevol, &
428  qm_melt, & !Heat consumption by snow melt
429  qm_rain, & !Heat by rain falling on snow
430  rainonsnow, & !Liquid precipitation falling on snow ()
431  snowpacklimit, &
432  deltaqi
real(kind(1d0)), dimension(nsurf) maxsnowvol
real(kind(1d0)), dimension(nsurf) mw_ind
real(kind(1d0)), dimension(nsurf) freezstate
real(kind(1d0)), dimension(nsurf) changsnow
real(kind(1d0)), dimension(nsurf) snowdens
real(kind(1d0)), dimension(nsurf) rainonsnow
real(kind(1d0)), dimension(nsurf) icefrac
real(kind(1d0)), dimension(nsurf) snowwater
real(kind(1d0)), dimension(nsurf) statefraction
real(kind(1d0)), dimension(nsurf) qm_freezstate
real(kind(1d0)), dimension(nsurf) ev_snow
real(kind(1d0)), dimension(nsurf) snowpacklimit
real(kind(1d0)), dimension(nsurf) snowinit
real(kind(1d0)), dimension(nsurf) snowdepth
real(kind(1d0)), dimension(nsurf) mw_indday
real(kind(1d0)), dimension(nsurf) snowfrac
real(kind(1d0)), dimension(nsurf) freezstatevol
real(kind(1d0)), dimension(nsurf) deltaqi
real(kind(1d0)), dimension(nsurf) snowtosurf
real(kind(1d0)), dimension(nsurf) qm_melt
real(kind(1d0)), dimension(nsurf) freezmelt
real(kind(1d0)), dimension(nsurf) runoffsnow
real(kind(1d0)), dimension(nsurf) volswe
real(kind(1d0)), dimension(nsurf) qm_rain

◆ chanohm

real(kind(1d0)), dimension(nsurf) allocatearray::chanohm

Definition at line 460 of file suews_ctrl_const.f95.

Referenced by suews_calculations().

460  REAL(KIND(1d0)), DIMENSION(nsurf):: chanohm ! bulk transfer coef. [-]
real(kind(1d0)), dimension(nsurf) chanohm

◆ cmds_snowdens

integer, dimension(nsurf) allocatearray::cmds_snowdens = (/(cc, cc=ccMDS + 0*nsurf + 1, ccMDS + 0*nsurf + nsurf, 1)/)

Definition at line 874 of file suews_ctrl_const.f95.

Referenced by initialstate(), and suews_translateback().

874  INTEGER, DIMENSION(nsurf):: cmds_snowdens = (/(cc, cc=ccmds + 0*nsurf + 1, ccmds + 0*nsurf + nsurf, 1)/) !Snow density
integer, parameter nsurf
integer, parameter ccmds
integer, dimension(nsurf) cmds_snowdens

◆ cmod_snowdens

integer, dimension(nsurf) allocatearray::cmod_snowdens = (/(cc, cc=ccMOD + 5*nsurf + 1, ccMOD + 5*nsurf + nsurf, 1)/)

Definition at line 865 of file suews_ctrl_const.f95.

865  INTEGER, DIMENSION(nsurf):: cmod_snowdens = (/(cc, cc=ccmod + 5*nsurf + 1, ccmod + 5*nsurf + nsurf, 1)/) !Snow density
integer, dimension(nsurf) cmod_snowdens
integer, parameter nsurf
integer, parameter ccmod

◆ cmod_snowfrac

integer, dimension(nsurf) allocatearray::cmod_snowfrac = (/(cc, cc=ccMOD + 4*nsurf + 1, ccMOD + 4*nsurf + nsurf, 1)/)

Definition at line 864 of file suews_ctrl_const.f95.

Referenced by initialstate(), and suews_translateback().

864  INTEGER, DIMENSION(nsurf):: cmod_snowfrac = (/(cc, cc=ccmod + 4*nsurf + 1, ccmod + 4*nsurf + nsurf, 1)/) !Snow fraction
integer, parameter nsurf
integer, parameter ccmod
integer, dimension(nsurf) cmod_snowfrac

◆ cmod_snowpack

integer, dimension(nsurf) allocatearray::cmod_snowpack = (/(cc, cc=ccMOD + 3*nsurf + 1, ccMOD + 3*nsurf + nsurf, 1)/)

Definition at line 863 of file suews_ctrl_const.f95.

Referenced by initialstate(), and suews_translateback().

863  INTEGER, DIMENSION(nsurf):: cmod_snowpack = (/(cc, cc=ccmod + 3*nsurf + 1, ccmod + 3*nsurf + nsurf, 1)/) !SWE
integer, parameter nsurf
integer, parameter ccmod
integer, dimension(nsurf) cmod_snowpack

◆ cmod_snowwaterstate

integer, dimension(nsurf) allocatearray::cmod_snowwaterstate = (/(cc, cc=ccMOD + 2*nsurf + 1, ccMOD + 2*nsurf + nsurf, 1)/)

Definition at line 862 of file suews_ctrl_const.f95.

Referenced by initialstate(), and suews_translateback().

862  INTEGER, DIMENSION(nsurf):: cmod_snowwaterstate = (/(cc, cc=ccmod + 2*nsurf + 1, ccmod + 2*nsurf + nsurf, 1)/) !Liquid (melted) water
integer, parameter nsurf
integer, parameter ccmod
integer, dimension(nsurf) cmod_snowwaterstate

◆ cmod_soilstate

integer, dimension(nsurf) allocatearray::cmod_soilstate = (/(cc, cc=ccMOD + 1*nsurf + 1, ccMOD + 1*nsurf + nsurf, 1)/)

Definition at line 861 of file suews_ctrl_const.f95.

Referenced by initialstate(), and suews_translateback().

861  INTEGER, DIMENSION(nsurf):: cmod_soilstate = (/(cc, cc=ccmod + 1*nsurf + 1, ccmod + 1*nsurf + nsurf, 1)/) !Below ground state (soil store)
integer, parameter nsurf
integer, parameter ccmod
integer, dimension(nsurf) cmod_soilstate

◆ cmod_state

integer, dimension(nsurf) allocatearray::cmod_state = (/(cc, cc=ccMOD + 0*nsurf + 1, ccMOD + 0*nsurf + nsurf, 1)/)

Definition at line 860 of file suews_ctrl_const.f95.

Referenced by initialstate(), and suews_translateback().

860  INTEGER, DIMENSION(nsurf):: cmod_state = (/(cc, cc=ccmod + 0*nsurf + 1, ccmod + 0*nsurf + nsurf, 1)/) !Above ground state
integer, parameter nsurf
integer, parameter ccmod
integer, dimension(nsurf) cmod_state

◆ colnosuse

character(len=4*ncolumnsdataoutsuews) allocatearray::colnosuse

Definition at line 93 of file suews_ctrl_const.f95.

93  CHARACTER(len=4*ncolumnsDataOutSUEWS):: colnosuse
character(len=4 *ncolumnsdataoutsuews) colnosuse

◆ conductance_coeff

real(kind(1d0)), dimension(:, :), allocatable allocatearray::conductance_coeff

Definition at line 102 of file suews_ctrl_const.f95.

Referenced by codematchconductance(), initializesurfacecharacteristics(), and overallruncontrol().

102  REAL(KIND(1d0)), DIMENSION(:, :), ALLOCATABLE::conductance_coeff !Coefficients for conductances
real(kind(1d0)), dimension(:, :), allocatable conductance_coeff

◆ conifsurf

integer, parameter allocatearray::conifsurf = 3

◆ cpanohm

real(kind(1d0)), dimension(nsurf) allocatearray::cpanohm

Definition at line 458 of file suews_ctrl_const.f95.

Referenced by suews_calculations().

458  REAL(KIND(1d0)), DIMENSION(nsurf):: cpanohm ! heat capacity [J m-3 K-1]
real(kind(1d0)), dimension(nsurf) cpanohm

◆ ctp_enusewd

integer allocatearray::ctp_enusewd = 1

Definition at line 165 of file suews_ctrl_const.f95.

165  INTEGER:: ctp_enusewd = 1, &
166  ctp_enusewe = 2, &
167  ctp_wumanuwd = 3, &
168  ctp_wumanuwe = 4, &
169  ctp_wuautowd = 5, &
170  ctp_wuautowe = 6, &
171  ctp_snowcwd = 7, &
172  ctp_snowcwe = 8, &
173  ctp_humactivitywd = 9, &
174  ctp_humactivitywe = 10, &
175  ctp_traffprofwd = 11, &
176  ctp_traffprofwe = 12, &
177  ctp_popprofwd = 13, &
178  ctp_popprofwe = 14

◆ ctp_enusewe

integer allocatearray::ctp_enusewe = 2

Definition at line 165 of file suews_ctrl_const.f95.

◆ ctp_humactivitywd

integer allocatearray::ctp_humactivitywd = 9

Definition at line 165 of file suews_ctrl_const.f95.

◆ ctp_humactivitywe

integer allocatearray::ctp_humactivitywe = 10

Definition at line 165 of file suews_ctrl_const.f95.

◆ ctp_popprofwd

integer allocatearray::ctp_popprofwd = 13

Definition at line 165 of file suews_ctrl_const.f95.

◆ ctp_popprofwe

integer allocatearray::ctp_popprofwe = 14

Definition at line 165 of file suews_ctrl_const.f95.

◆ ctp_snowcwd

integer allocatearray::ctp_snowcwd = 7

Definition at line 165 of file suews_ctrl_const.f95.

◆ ctp_snowcwe

integer allocatearray::ctp_snowcwe = 8

Definition at line 165 of file suews_ctrl_const.f95.

◆ ctp_traffprofwd

integer allocatearray::ctp_traffprofwd = 11

Definition at line 165 of file suews_ctrl_const.f95.

◆ ctp_traffprofwe

integer allocatearray::ctp_traffprofwe = 12

Definition at line 165 of file suews_ctrl_const.f95.

◆ ctp_wuautowd

integer allocatearray::ctp_wuautowd = 5

Definition at line 165 of file suews_ctrl_const.f95.

◆ ctp_wuautowe

integer allocatearray::ctp_wuautowe = 6

Definition at line 165 of file suews_ctrl_const.f95.

◆ ctp_wumanuwd

integer allocatearray::ctp_wumanuwd = 3

Definition at line 165 of file suews_ctrl_const.f95.

◆ ctp_wumanuwe

integer allocatearray::ctp_wumanuwe = 4

Definition at line 165 of file suews_ctrl_const.f95.

◆ cts_id

integer, parameter allocatearray::cts_id = 2

Definition at line 883 of file suews_ctrl_const.f95.

883  INTEGER, PARAMETER:: cts_id = 2
integer, parameter cts_id

◆ cts_imin

integer, parameter allocatearray::cts_imin = 4

Definition at line 885 of file suews_ctrl_const.f95.

885  INTEGER, PARAMETER:: cts_imin = 4
integer, parameter cts_imin

◆ cts_it

integer, parameter allocatearray::cts_it = 3

Definition at line 884 of file suews_ctrl_const.f95.

884  INTEGER, PARAMETER:: cts_it = 3
integer, parameter cts_it

◆ cts_iy

integer, parameter allocatearray::cts_iy = 1

Definition at line 882 of file suews_ctrl_const.f95.

882  INTEGER, PARAMETER:: cts_iy = 1
integer, parameter cts_iy

◆ cts_tiair

integer, parameter allocatearray::cts_tiair = 5

Definition at line 886 of file suews_ctrl_const.f95.

Referenced by estm_module::estm_translate().

886  INTEGER, PARAMETER:: cts_tiair = 5
integer, parameter cts_tiair

◆ cts_troad

integer, parameter allocatearray::cts_troad = 8

Definition at line 889 of file suews_ctrl_const.f95.

Referenced by estm_module::estm_translate().

889  INTEGER, PARAMETER:: cts_troad = 8
integer, parameter cts_troad

◆ cts_troof

integer, parameter allocatearray::cts_troof = 7

Definition at line 888 of file suews_ctrl_const.f95.

Referenced by estm_module::estm_translate().

888  INTEGER, PARAMETER:: cts_troof = 7
integer, parameter cts_troof

◆ cts_tsurf

integer, parameter allocatearray::cts_tsurf = 6

Definition at line 887 of file suews_ctrl_const.f95.

887  INTEGER, PARAMETER:: cts_tsurf = 6
integer, parameter cts_tsurf

◆ cts_twall

integer, parameter allocatearray::cts_twall = 9

Definition at line 890 of file suews_ctrl_const.f95.

Referenced by estm_module::estm_translate().

890  INTEGER, PARAMETER:: cts_twall = 9
integer, parameter cts_twall

◆ cts_twall_e

integer, parameter allocatearray::cts_twall_e = 11

Definition at line 892 of file suews_ctrl_const.f95.

892  INTEGER, PARAMETER:: cts_twall_e = 11
integer, parameter cts_twall_e

◆ cts_twall_n

integer, parameter allocatearray::cts_twall_n = 10

Definition at line 891 of file suews_ctrl_const.f95.

891  INTEGER, PARAMETER:: cts_twall_n = 10
integer, parameter cts_twall_n

◆ cts_twall_s

integer, parameter allocatearray::cts_twall_s = 12

Definition at line 893 of file suews_ctrl_const.f95.

893  INTEGER, PARAMETER:: cts_twall_s = 12
integer, parameter cts_twall_s

◆ cts_twall_w

integer, parameter allocatearray::cts_twall_w = 13

Definition at line 894 of file suews_ctrl_const.f95.

894  INTEGER, PARAMETER:: cts_twall_w = 13
integer, parameter cts_twall_w

◆ dailystatefirstopen

real(kind(1d0)), dimension(:), allocatable allocatearray::dailystatefirstopen

Definition at line 119 of file suews_ctrl_const.f95.

Referenced by suews_program().

119  REAL(KIND(1d0)), DIMENSION(:), ALLOCATABLE:: dailystatefirstopen
real(kind(1d0)), dimension(:), allocatable dailystatefirstopen

◆ dailystateline

real(kind(1d0)), dimension(ncolumnsdataoutdailystate - 5) allocatearray::dailystateline

Definition at line 134 of file suews_ctrl_const.f95.

Referenced by suews_calculations().

134  REAL(KIND(1D0)), DIMENSION(ncolumnsDataOutDailyState - 5)::dailystateline ! output of DailyState results per each timestep
real(kind(1d0)), dimension(ncolumnsdataoutdailystate - 5) dailystateline

◆ dataoutbl

real(kind(1d0)), dimension(:, :, :), allocatable allocatearray::dataoutbl

Definition at line 123 of file suews_ctrl_const.f95.

Referenced by bluews_module::cbl_initial(), suews_calculations(), ctrl_output::suews_output_txt_grp(), and suews_program().

123  REAL(KIND(1d0)), DIMENSION(:, :, :), ALLOCATABLE:: dataoutbl !CBL output matrix
real(kind(1d0)), dimension(:, :, :), allocatable dataoutbl

◆ dataoutdailystate

real(kind(1d0)), dimension(:, :, :), allocatable allocatearray::dataoutdailystate

Definition at line 127 of file suews_ctrl_const.f95.

Referenced by suews_calculations(), ctrl_output::suews_output_txt_grp(), and suews_program().

127  REAL(KIND(1d0)), DIMENSION(:, :, :), ALLOCATABLE:: dataoutdailystate !DailyState output array
real(kind(1d0)), dimension(:, :, :), allocatable dataoutdailystate

◆ dataoutestm

real(kind(1d0)), dimension(:, :, :), allocatable allocatearray::dataoutestm

Definition at line 126 of file suews_ctrl_const.f95.

Referenced by suews_calculations(), ctrl_output::suews_output_txt_grp(), and suews_program().

126  REAL(KIND(1d0)), DIMENSION(:, :, :), ALLOCATABLE:: dataoutestm !ESTM output matrix
real(kind(1d0)), dimension(:, :, :), allocatable dataoutestm

◆ dataoutlineestm

real(kind(1d0)), dimension(27) allocatearray::dataoutlineestm

Definition at line 162 of file suews_ctrl_const.f95.

Referenced by suews_calculations().

162  REAL(KIND(1d0)), DIMENSION(27) :: dataoutlineestm !ESTM output for the current timestep and grid
real(kind(1d0)), dimension(27) dataoutlineestm

◆ dataoutlinersl

real(kind(1d0)), dimension(ncolumnsdataoutrsl - 5) allocatearray::dataoutlinersl

Definition at line 133 of file suews_ctrl_const.f95.

Referenced by suews_calculations().

133  REAL(KIND(1D0)), DIMENSION(ncolumnsDataOutRSL - 5) ::dataoutlinersl ! output of snow results per each timestep
real(kind(1d0)), dimension(ncolumnsdataoutrsl - 5) dataoutlinersl

◆ dataoutlinesnow

real(kind(1d0)), dimension(ncolumnsdataoutsnow - 5) allocatearray::dataoutlinesnow

Definition at line 132 of file suews_ctrl_const.f95.

Referenced by suews_calculations().

132  REAL(KIND(1D0)), DIMENSION(ncolumnsDataOutSnow - 5) ::dataoutlinesnow ! output of snow results per each timestep
real(kind(1d0)), dimension(ncolumnsdataoutsnow - 5) dataoutlinesnow

◆ dataoutlinesuews

real(kind(1d0)), dimension(ncolumnsdataoutsuews - 5) allocatearray::dataoutlinesuews

Definition at line 131 of file suews_ctrl_const.f95.

Referenced by suews_calculations().

131  REAL(KIND(1D0)), DIMENSION(ncolumnsDataOutSUEWS - 5) ::dataoutlinesuews ! output of SUEWS results per each timestep
real(kind(1d0)), dimension(ncolumnsdataoutsuews - 5) dataoutlinesuews

◆ dataoutrsl

real(kind(1d0)), dimension(:, :, :), allocatable allocatearray::dataoutrsl

Definition at line 122 of file suews_ctrl_const.f95.

Referenced by suews_calculations(), ctrl_output::suews_output_txt_grp(), and suews_program().

122  REAL(KIND(1d0)), DIMENSION(:, :, :), ALLOCATABLE:: dataoutrsl !Main data output matrix
real(kind(1d0)), dimension(:, :, :), allocatable dataoutrsl

◆ dataoutsnow

real(kind(1d0)), dimension(:, :, :), allocatable allocatearray::dataoutsnow

Definition at line 125 of file suews_ctrl_const.f95.

Referenced by suews_calculations(), ctrl_output::suews_output_txt_grp(), and suews_program().

125  REAL(KIND(1d0)), DIMENSION(:, :, :), ALLOCATABLE:: dataoutsnow !Main data output matrix
real(kind(1d0)), dimension(:, :, :), allocatable dataoutsnow

◆ dataoutsol

real(kind(1d0)), dimension(:, :, :), allocatable allocatearray::dataoutsol

Definition at line 124 of file suews_ctrl_const.f95.

124  REAL(KIND(1d0)), DIMENSION(:, :, :), ALLOCATABLE:: dataoutsol !SOLWEIG POI output matrix
real(kind(1d0)), dimension(:, :, :), allocatable dataoutsol

◆ dataoutsuews

real(kind(1d0)), dimension(:, :, :), allocatable allocatearray::dataoutsuews

Definition at line 121 of file suews_ctrl_const.f95.

Referenced by suews_calculations(), ctrl_output::suews_output_txt_grp(), and suews_program().

121  REAL(KIND(1d0)), DIMENSION(:, :, :), ALLOCATABLE:: dataoutsuews !Main data output matrix
real(kind(1d0)), dimension(:, :, :), allocatable dataoutsuews

◆ datetimeline

real(kind(1d0)), dimension(5) allocatearray::datetimeline

Definition at line 130 of file suews_ctrl_const.f95.

Referenced by suews_calculations().

130  REAL(KIND(1D0)), DIMENSION(5) ::datetimeline ! output of datetime info per each timestep
real(kind(1d0)), dimension(5) datetimeline

◆ decidcap_id

real(kind(1d0)) allocatearray::decidcap_id

Definition at line 305 of file suews_ctrl_const.f95.

Referenced by nextinitial(), suews_calculations(), and suews_translateback().

305  REAL(KIND(1d0)) :: decidcap_id
real(kind(1d0)) decidcap_id

◆ decidcap_id_grids

real(kind(1d0)), dimension(maxnumberofgrids) allocatearray::decidcap_id_grids

Definition at line 299 of file suews_ctrl_const.f95.

Referenced by suews_translateback().

299  REAL(KIND(1d0)), DIMENSION(MaxNumberOfGrids):: decidcap_id_grids
real(kind(1d0)), dimension(maxnumberofgrids) decidcap_id_grids

◆ decidsurf

integer, parameter allocatearray::decidsurf = 4

◆ deg2rad

real(kind(1d0)), parameter allocatearray::deg2rad = 0.017453292

Definition at line 385 of file suews_ctrl_const.f95.

385  REAL(KIND(1D0)), PARAMETER :: deg2rad = 0.017453292, &
386  rad2deg = 57.29577951, &
387  sigma_sb = 5.67e-8
real(kind(1d0)), parameter deg2rad
real(kind(1d0)), parameter sigma_sb
real(kind(1d0)), parameter rad2deg

◆ deltaqi

real(kind(1d0)), dimension(nsurf) allocatearray::deltaqi

Definition at line 409 of file suews_ctrl_const.f95.

◆ dqndt

real(kind(1d0)) allocatearray::dqndt

Definition at line 402 of file suews_ctrl_const.f95.

Referenced by suews_calculations(), and suews_translateback().

◆ dqndt_grids

real(kind(1d0)), dimension(:), allocatable allocatearray::dqndt_grids

Definition at line 401 of file suews_ctrl_const.f95.

Referenced by suews_program(), and suews_translateback().

401  REAL(KIND(1d0)), DIMENSION(:), ALLOCATABLE::dqndt_grids, dqnsdt_grids
real(kind(1d0)), dimension(:), allocatable dqnsdt_grids
real(kind(1d0)), dimension(:), allocatable dqndt_grids

◆ dqnsdt

real(kind(1d0)) allocatearray::dqnsdt

Definition at line 404 of file suews_ctrl_const.f95.

Referenced by suews_calculations(), and suews_translateback().

◆ dqnsdt_grids

real(kind(1d0)), dimension(:), allocatable allocatearray::dqnsdt_grids

Definition at line 401 of file suews_ctrl_const.f95.

Referenced by suews_program(), and suews_translateback().

◆ drain

real(kind(1d0)), dimension(nsurf) allocatearray::drain

Definition at line 207 of file suews_ctrl_const.f95.

207  REAL(KIND(1d0)), DIMENSION(nsurf):: drain !Drainage of each surface type [mm]
real(kind(1d0)), dimension(nsurf) drain

◆ emis

real(kind(1d0)), dimension(nsurf) allocatearray::emis

Definition at line 360 of file suews_ctrl_const.f95.

Referenced by estm_module::estm_translate(), suews_calculations(), and suews_translate().

360  REAL(KIND(1d0)), DIMENSION(nsurf):: emis !Emissivity of each surface type [-]
real(kind(1d0)), dimension(nsurf) emis

◆ estmcoefficients_coeff

real(kind(1d0)), dimension(:, :), allocatable allocatearray::estmcoefficients_coeff

Definition at line 104 of file suews_ctrl_const.f95.

Referenced by codematchestm(), codematchestm_class(), initializesurfacecharacteristics(), and overallruncontrol().

104  REAL(KIND(1d0)), DIMENSION(:, :), ALLOCATABLE::estmcoefficients_coeff !Coefficients for ESTMCoefficients ! S.O. 04 Feb 2016
real(kind(1d0)), dimension(:, :), allocatable estmcoefficients_coeff

◆ estmforcingdata

real(kind(1d0)), dimension(:, :, :), allocatable allocatearray::estmforcingdata

Definition at line 117 of file suews_ctrl_const.f95.

Referenced by metdisagg::disaggregateestm(), estm_module::estm_translate(), estm_module::suews_getestmdata(), and suews_program().

117  REAL(KIND(1d0)), DIMENSION(:, :, :), ALLOCATABLE:: estmforcingdata !Array for ESTM forcing data
real(kind(1d0)), dimension(:, :, :), allocatable estmforcingdata

◆ estmfordisagg

real(kind(1d0)), dimension(:, :), allocatable allocatearray::estmfordisagg

Definition at line 139 of file suews_ctrl_const.f95.

Referenced by metdisagg::disaggregateestm().

139  REAL(KIND(1d0)), DIMENSION(:, :), ALLOCATABLE:: estmfordisagg !Array for original ESTM forcing data (for disaggregation)
real(kind(1d0)), dimension(:, :), allocatable estmfordisagg

◆ estmfordisaggnext

real(kind(1d0)), dimension(:), allocatable allocatearray::estmfordisaggnext

Definition at line 140 of file suews_ctrl_const.f95.

Referenced by metdisagg::disaggregateestm().

◆ estmfordisaggprev

real(kind(1d0)), dimension(:), allocatable allocatearray::estmfordisaggprev

Definition at line 140 of file suews_ctrl_const.f95.

Referenced by metdisagg::disaggregateestm().

140  REAL(KIND(1d0)), DIMENSION(:), ALLOCATABLE:: estmfordisaggprev, estmfordisaggnext !Stores last and next row of ESTM data
real(kind(1d0)), dimension(:), allocatable estmfordisaggnext
real(kind(1d0)), dimension(:), allocatable estmfordisaggprev

◆ ev_snow

real(kind(1d0)), dimension(nsurf) allocatearray::ev_snow

Definition at line 409 of file suews_ctrl_const.f95.

◆ evap

real(kind(1d0)), dimension(nsurf) allocatearray::evap

Definition at line 208 of file suews_ctrl_const.f95.

208  REAL(KIND(1d0)), DIMENSION(nsurf):: evap !Evaporation from each surface type [mm]
real(kind(1d0)), dimension(nsurf) evap

◆ excesssurf

integer, parameter allocatearray::excesssurf = 8

Definition at line 186 of file suews_ctrl_const.f95.

◆ formatuse

character(len=14*ncolumnsdataoutsuews) allocatearray::formatuse

Definition at line 89 of file suews_ctrl_const.f95.

◆ formatusenosep

character(len=14*ncolumnsdataoutsuews) allocatearray::formatusenosep

Definition at line 89 of file suews_ctrl_const.f95.

◆ freezmelt

real(kind(1d0)), dimension(nsurf) allocatearray::freezmelt

Definition at line 409 of file suews_ctrl_const.f95.

◆ freezstate

real(kind(1d0)), dimension(nsurf) allocatearray::freezstate

Definition at line 409 of file suews_ctrl_const.f95.

◆ freezstatevol

real(kind(1d0)), dimension(nsurf) allocatearray::freezstatevol

Definition at line 409 of file suews_ctrl_const.f95.

◆ gdd_id

real(kind(1d0)), dimension(nvegsurf) allocatearray::gdd_id

Definition at line 251 of file suews_ctrl_const.f95.

Referenced by nextinitial(), suews_calculations(), and suews_translateback().

251  REAL(KIND(1d0)), DIMENSION(nvegsurf) :: gdd_id, gdd_id_prev !Growing Degree Days (see SUEWS_DailyState.f95)
real(kind(1d0)), dimension(nvegsurf) gdd_id_prev
real(kind(1d0)), dimension(nvegsurf) gdd_id

◆ gdd_id_grids

real(kind(1d0)), dimension(nvegsurf, maxnumberofgrids) allocatearray::gdd_id_grids

Definition at line 283 of file suews_ctrl_const.f95.

Referenced by suews_translateback().

283  REAL(KIND(1d0)), DIMENSION(nvegsurf, MaxNumberOfGrids):: gdd_id_grids
real(kind(1d0)), dimension(nvegsurf, maxnumberofgrids) gdd_id_grids

◆ gdd_id_prev

real(kind(1d0)), dimension(nvegsurf) allocatearray::gdd_id_prev

Definition at line 251 of file suews_ctrl_const.f95.

◆ gddfull

real(kind(1d0)), dimension(nvegsurf) allocatearray::gddfull

Definition at line 332 of file suews_ctrl_const.f95.

Referenced by suews_calculations(), and suews_translate().

332  REAL(KIND(1d0)), DIMENSION(nvegsurf):: gddfull !Growing degree days needed for full capacity [degC]
real(kind(1d0)), dimension(nvegsurf) gddfull

◆ grasssurf

integer, parameter allocatearray::grasssurf = 5

◆ grididmatrix

integer, dimension(:), allocatable allocatearray::grididmatrix

Definition at line 112 of file suews_ctrl_const.f95.

Referenced by ctrl_output::filename_gen(), and suews_program().

112  INTEGER, DIMENSION(:), ALLOCATABLE:: grididmatrix !Array containing GridIDs in SiteSelect after sorting
integer, dimension(:), allocatable grididmatrix

◆ grididmatrix0

integer, dimension(:), allocatable allocatearray::grididmatrix0

Definition at line 113 of file suews_ctrl_const.f95.

Referenced by suews_program().

113  INTEGER, DIMENSION(:), ALLOCATABLE:: grididmatrix0 !Array containing GridIDs in SiteSelect in the original order
integer, dimension(:), allocatable grididmatrix0

◆ gridto

real(kind(1d0)), dimension(nconns) allocatearray::gridto

Definition at line 448 of file suews_ctrl_const.f95.

448  REAL(KIND(1d0)), DIMENSION(nconns):: gridto !Grid that water moves to
real(kind(1d0)), dimension(nconns) gridto

◆ gridtofrac

real(kind(1d0)), dimension(nconns) allocatearray::gridtofrac

Definition at line 447 of file suews_ctrl_const.f95.

447  REAL(KIND(1d0)), DIMENSION(nconns):: gridtofrac !Fraction of water moving to the grid specified in GridTo [-]
real(kind(1d0)), dimension(nconns) gridtofrac

◆ hdd_id

real(kind(1d0)), dimension(12) allocatearray::hdd_id

Definition at line 254 of file suews_ctrl_const.f95.

Referenced by initialstate(), nextinitial(), suews_calculations(), and suews_translateback().

254  REAL(KIND(1d0)), DIMENSION(12) :: hdd_id
real(kind(1d0)), dimension(12) hdd_id

◆ hdd_id_grids

real(kind(1d0)), dimension(12, maxnumberofgrids) allocatearray::hdd_id_grids

Definition at line 288 of file suews_ctrl_const.f95.

Referenced by suews_translateback().

288  REAL(KIND(1d0)), DIMENSION(12, MaxNumberOfGrids):: hdd_id_grids
real(kind(1d0)), dimension(12, maxnumberofgrids) hdd_id_grids

◆ headeranthropogenic_file

character(len=20), dimension(ncolumnsanthropogenic) allocatearray::headeranthropogenic_file

Definition at line 75 of file suews_ctrl_const.f95.

Referenced by inputheadercheck(), and overallruncontrol().

75  CHARACTER(len=20), DIMENSION(ncolumnsAnthropogenic):: headeranthropogenic_file !Header for QF
character(len=20), dimension(ncolumnsanthropogenic) headeranthropogenic_file

◆ headeranthropogenic_reqd

character(len=20), dimension(ncolumnsanthropogenic) allocatearray::headeranthropogenic_reqd

Definition at line 76 of file suews_ctrl_const.f95.

Referenced by inputheadercheck().

76  CHARACTER(len=20), DIMENSION(ncolumnsAnthropogenic):: headeranthropogenic_reqd !Expected header for QF
character(len=20), dimension(ncolumnsanthropogenic) headeranthropogenic_reqd

◆ headerbiogen_file

character(len=20), dimension(ncolumnsbiogen) allocatearray::headerbiogen_file

Definition at line 83 of file suews_ctrl_const.f95.

Referenced by inputheadercheck(), and overallruncontrol().

83  CHARACTER(len=20), DIMENSION(ncolumnsBiogen):: headerbiogen_file !Header for Biogen
character(len=20), dimension(ncolumnsbiogen) headerbiogen_file

◆ headerbiogen_reqd

character(len=20), dimension(ncolumnsbiogen) allocatearray::headerbiogen_reqd

Definition at line 84 of file suews_ctrl_const.f95.

Referenced by inputheadercheck().

84  CHARACTER(len=20), DIMENSION(ncolumnsBiogen):: headerbiogen_reqd !Expected header for Biogen
character(len=20), dimension(ncolumnsbiogen) headerbiogen_reqd

◆ headercond_file

character(len=20), dimension(ncolumnsconductance) allocatearray::headercond_file

Definition at line 69 of file suews_ctrl_const.f95.

Referenced by inputheadercheck(), and overallruncontrol().

69  CHARACTER(len=20), DIMENSION(ncolumnsConductance):: headercond_file !Header for conductances
character(len=20), dimension(ncolumnsconductance) headercond_file

◆ headercond_reqd

character(len=20), dimension(ncolumnsconductance) allocatearray::headercond_reqd

Definition at line 70 of file suews_ctrl_const.f95.

Referenced by inputheadercheck().

70  CHARACTER(len=20), DIMENSION(ncolumnsConductance):: headercond_reqd !Expected header for conductances
character(len=20), dimension(ncolumnsconductance) headercond_reqd

◆ headerestmcoefficients_file

character(len=20), dimension(ncolumnsestmcoefficients) allocatearray::headerestmcoefficients_file

Definition at line 73 of file suews_ctrl_const.f95.

Referenced by inputheadercheck(), and overallruncontrol().

73  CHARACTER(len=20), DIMENSION(ncolumnsESTMCoefficients):: headerestmcoefficients_file !Header for soils ! S.O. 04 Feb 2016
character(len=20), dimension(ncolumnsestmcoefficients) headerestmcoefficients_file

◆ headerestmcoefficients_reqd

character(len=20), dimension(ncolumnsestmcoefficients) allocatearray::headerestmcoefficients_reqd

Definition at line 74 of file suews_ctrl_const.f95.

Referenced by inputheadercheck().

74  CHARACTER(len=20), DIMENSION(ncolumnsESTMCoefficients):: headerestmcoefficients_reqd !Expected header for soils ! S.O. 04 Feb 2016
character(len=20), dimension(ncolumnsestmcoefficients) headerestmcoefficients_reqd

◆ headerirrigation_file

character(len=20), dimension(ncolumnsirrigation) allocatearray::headerirrigation_file

Definition at line 77 of file suews_ctrl_const.f95.

Referenced by inputheadercheck(), and overallruncontrol().

77  CHARACTER(len=20), DIMENSION(ncolumnsIrrigation):: headerirrigation_file !Header for Irrigation
character(len=20), dimension(ncolumnsirrigation) headerirrigation_file

◆ headerirrigation_reqd

character(len=20), dimension(ncolumnsirrigation) allocatearray::headerirrigation_reqd

Definition at line 78 of file suews_ctrl_const.f95.

Referenced by inputheadercheck().

78  CHARACTER(len=20), DIMENSION(ncolumnsIrrigation):: headerirrigation_reqd !Expected header for Irrigation
character(len=20), dimension(ncolumnsirrigation) headerirrigation_reqd

◆ headernonveg_file

character(len=20), dimension(ncolumnsnonveg) allocatearray::headernonveg_file

Definition at line 59 of file suews_ctrl_const.f95.

Referenced by inputheadercheck(), and overallruncontrol().

59  CHARACTER(len=20), DIMENSION(ncolumnsNonVeg):: headernonveg_file !Header for the nonveg surface
character(len=20), dimension(ncolumnsnonveg) headernonveg_file

◆ headernonveg_reqd

character(len=20), dimension(ncolumnsnonveg) allocatearray::headernonveg_reqd

Definition at line 60 of file suews_ctrl_const.f95.

Referenced by inputheadercheck().

60  CHARACTER(len=20), DIMENSION(ncolumnsNonVeg):: headernonveg_reqd !Expected header for the nonveg surface
character(len=20), dimension(ncolumnsnonveg) headernonveg_reqd

◆ headerohmcoefficients_file

character(len=20), dimension(ncolumnsohmcoefficients) allocatearray::headerohmcoefficients_file

Definition at line 71 of file suews_ctrl_const.f95.

Referenced by inputheadercheck(), and overallruncontrol().

71  CHARACTER(len=20), DIMENSION(ncolumnsOHMCoefficients):: headerohmcoefficients_file !Header for soils
character(len=20), dimension(ncolumnsohmcoefficients) headerohmcoefficients_file

◆ headerohmcoefficients_reqd

character(len=20), dimension(ncolumnsohmcoefficients) allocatearray::headerohmcoefficients_reqd

Definition at line 72 of file suews_ctrl_const.f95.

Referenced by inputheadercheck().

72  CHARACTER(len=20), DIMENSION(ncolumnsOHMCoefficients):: headerohmcoefficients_reqd !Expected header for soils
character(len=20), dimension(ncolumnsohmcoefficients) headerohmcoefficients_reqd

◆ headerprofiles_file

character(len=20), dimension(ncolumnsprofiles) allocatearray::headerprofiles_file

Definition at line 79 of file suews_ctrl_const.f95.

Referenced by inputheadercheck(), and overallruncontrol().

79  CHARACTER(len=20), DIMENSION(ncolumnsProfiles):: headerprofiles_file !Header for Profiles
character(len=20), dimension(ncolumnsprofiles) headerprofiles_file

◆ headerprofiles_reqd

character(len=20), dimension(ncolumnsprofiles) allocatearray::headerprofiles_reqd

Definition at line 80 of file suews_ctrl_const.f95.

Referenced by inputheadercheck().

80  CHARACTER(len=20), DIMENSION(ncolumnsProfiles):: headerprofiles_reqd !Expected header for Profiles
character(len=20), dimension(ncolumnsprofiles) headerprofiles_reqd

◆ headersiteselect_file

character(len=20), dimension(ncolumnssiteselect) allocatearray::headersiteselect_file

Definition at line 58 of file suews_ctrl_const.f95.

Referenced by overallruncontrol().

58  CHARACTER(len=20), DIMENSION(ncolumnsSiteSelect):: headersiteselect_file !Header for SiteSelect.txt
character(len=20), dimension(ncolumnssiteselect) headersiteselect_file

◆ headersnow_file

character(len=20), dimension(ncolumnssnow) allocatearray::headersnow_file

Definition at line 65 of file suews_ctrl_const.f95.

Referenced by inputheadercheck(), and overallruncontrol().

65  CHARACTER(len=20), DIMENSION(ncolumnsSnow):: headersnow_file !Header for Snow surface
character(len=20), dimension(ncolumnssnow) headersnow_file

◆ headersnow_reqd

character(len=20), dimension(ncolumnssnow) allocatearray::headersnow_reqd

Definition at line 66 of file suews_ctrl_const.f95.

Referenced by inputheadercheck().

66  CHARACTER(len=20), DIMENSION(ncolumnsSnow):: headersnow_reqd !Expected header for Snow surface
character(len=20), dimension(ncolumnssnow) headersnow_reqd

◆ headersoil_file

character(len=20), dimension(ncolumnssoil) allocatearray::headersoil_file

Definition at line 67 of file suews_ctrl_const.f95.

Referenced by inputheadercheck(), and overallruncontrol().

67  CHARACTER(len=20), DIMENSION(ncolumnsSoil):: headersoil_file !Header for soils
character(len=20), dimension(ncolumnssoil) headersoil_file

◆ headersoil_reqd

character(len=20), dimension(ncolumnssoil) allocatearray::headersoil_reqd

Definition at line 68 of file suews_ctrl_const.f95.

Referenced by inputheadercheck().

68  CHARACTER(len=20), DIMENSION(ncolumnsSoil):: headersoil_reqd !Expected header for soils
character(len=20), dimension(ncolumnssoil) headersoil_reqd

◆ headeruse

character(len=14*ncolumnsdataoutsuews) allocatearray::headeruse

Definition at line 89 of file suews_ctrl_const.f95.

89  CHARACTER(len=14*ncolumnsDataOutSUEWS):: headeruse, formatuse, headerusenosep, formatusenosep !Header and format in correct form
character(len=14 *ncolumnsdataoutsuews) formatusenosep
character(len=14 *ncolumnsdataoutsuews) headerusenosep
character(len=14 *ncolumnsdataoutsuews) formatuse
character(len=14 *ncolumnsdataoutsuews) headeruse

◆ headerusenosep

character(len=14*ncolumnsdataoutsuews) allocatearray::headerusenosep

Definition at line 89 of file suews_ctrl_const.f95.

◆ headerveg_file

character(len=20), dimension(ncolumnsveg) allocatearray::headerveg_file

Definition at line 61 of file suews_ctrl_const.f95.

Referenced by inputheadercheck(), and overallruncontrol().

61  CHARACTER(len=20), DIMENSION(ncolumnsVeg):: headerveg_file !Header for the veg surface
character(len=20), dimension(ncolumnsveg) headerveg_file

◆ headerveg_reqd

character(len=20), dimension(ncolumnsveg) allocatearray::headerveg_reqd

Definition at line 62 of file suews_ctrl_const.f95.

Referenced by inputheadercheck().

62  CHARACTER(len=20), DIMENSION(ncolumnsVeg):: headerveg_reqd !Expected header for the veg surface
character(len=20), dimension(ncolumnsveg) headerveg_reqd

◆ headerwater_file

character(len=20), dimension(ncolumnswater) allocatearray::headerwater_file

Definition at line 63 of file suews_ctrl_const.f95.

Referenced by inputheadercheck(), and overallruncontrol().

63  CHARACTER(len=20), DIMENSION(ncolumnsWater):: headerwater_file !Header for water surface
character(len=20), dimension(ncolumnswater) headerwater_file

◆ headerwater_reqd

character(len=20), dimension(ncolumnswater) allocatearray::headerwater_reqd

Definition at line 64 of file suews_ctrl_const.f95.

Referenced by inputheadercheck().

64  CHARACTER(len=20), DIMENSION(ncolumnsWater):: headerwater_reqd !Expected header for water surface
character(len=20), dimension(ncolumnswater) headerwater_reqd

◆ headerwgwaterdist_file

character(len=20), dimension(ncolumnswgwaterdist) allocatearray::headerwgwaterdist_file

Definition at line 81 of file suews_ctrl_const.f95.

Referenced by inputheadercheck(), and overallruncontrol().

81  CHARACTER(len=20), DIMENSION(ncolumnsWGWaterDist):: headerwgwaterdist_file !Header for Profiles
character(len=20), dimension(ncolumnswgwaterdist) headerwgwaterdist_file

◆ headerwgwaterdist_reqd

character(len=20), dimension(ncolumnswgwaterdist) allocatearray::headerwgwaterdist_reqd

Definition at line 82 of file suews_ctrl_const.f95.

Referenced by inputheadercheck().

82  CHARACTER(len=20), DIMENSION(ncolumnsWGWaterDist):: headerwgwaterdist_reqd !Expected header for Profiles
character(len=20), dimension(ncolumnswgwaterdist) headerwgwaterdist_reqd

◆ heig

integer, dimension(nsurf) allocatearray::heig

Definition at line 438 of file suews_ctrl_const.f95.

438  INTEGER, DIMENSION(nsurf):: heig, & !snow layer height
439  snowcoverforms, &
440  snowcalcswitch = 0 !Defines if snow related balance is made
integer, dimension(nsurf) snowcalcswitch
integer, dimension(nsurf) snowcoverforms
integer, dimension(nsurf) heig

◆ humactivity_24hr

real(kind(1d0)), dimension(0:23, 2) allocatearray::humactivity_24hr

Definition at line 152 of file suews_ctrl_const.f95.

Referenced by suews_calculations().

152  REAL(KIND(1d0)), DIMENSION(0:23, 2):: humactivity_24hr !Human actvity profiles for (1)weekdays / (2)weekends
real(kind(1d0)), dimension(0:23, 2) humactivity_24hr

◆ icefrac

real(kind(1d0)), dimension(nsurf) allocatearray::icefrac

Definition at line 409 of file suews_ctrl_const.f95.

Referenced by initialstate(), suews_calculations(), and suews_translateback().

◆ icefrac_grids

real(kind(1d0)), dimension(nsurf, maxnumberofgrids) allocatearray::icefrac_grids

Definition at line 434 of file suews_ctrl_const.f95.

Referenced by suews_translateback().

434  REAL(KIND(1d0)), DIMENSION(nsurf, MaxNumberOfGrids)::icefrac_grids
real(kind(1d0)), dimension(nsurf, maxnumberofgrids) icefrac_grids

◆ irrigation_coeff

real(kind(1d0)), dimension(:, :), allocatable allocatearray::irrigation_coeff

Definition at line 106 of file suews_ctrl_const.f95.

Referenced by codematchirrigation(), initializesurfacecharacteristics(), and overallruncontrol().

106  REAL(KIND(1d0)), DIMENSION(:, :), ALLOCATABLE::irrigation_coeff !Coefficients for Irrigation
real(kind(1d0)), dimension(:, :), allocatable irrigation_coeff

◆ ivconif

integer, parameter allocatearray::ivconif = 1

◆ ivdecid

integer, parameter allocatearray::ivdecid = 2

◆ ivgrass

integer, parameter allocatearray::ivgrass = 3

◆ kkanohm

real(kind(1d0)), dimension(nsurf) allocatearray::kkanohm

Definition at line 459 of file suews_ctrl_const.f95.

Referenced by suews_calculations().

459  REAL(KIND(1d0)), DIMENSION(nsurf):: kkanohm ! thermal conductivity [W m-1 K-1]
real(kind(1d0)), dimension(nsurf) kkanohm

◆ ksurf_suewssurfs

real(kind(1d0)), dimension(5, nsurfincsnow) allocatearray::ksurf_suewssurfs

Definition at line 464 of file suews_ctrl_const.f95.

◆ kup_ind

real(kind(1d0)), dimension(nsurf) allocatearray::kup_ind

Definition at line 368 of file suews_ctrl_const.f95.

368  REAL(KIND(1d0)), DIMENSION(nsurf):: kup_ind, & !Outgoing shortwave radiation for each surface [W m-2]
369  kup_ind_snow, & !Outgoing shortwave radiation for each snow surface [W m-2]
real(kind(1d0)), dimension(nsurf) kup_ind_snow
real(kind(1d0)), dimension(nsurf) kup_ind_nosnow
real(kind(1d0)), dimension(nsurf) kup_ind

◆ kup_ind_nosnow

real(kind(1d0)), dimension(nsurf) allocatearray::kup_ind_nosnow

Definition at line 368 of file suews_ctrl_const.f95.

◆ kup_ind_snow

real(kind(1d0)), dimension(nsurf) allocatearray::kup_ind_snow

Definition at line 368 of file suews_ctrl_const.f95.

◆ lai_id

real(kind(1d0)), dimension(nvegsurf) allocatearray::lai_id

Definition at line 256 of file suews_ctrl_const.f95.

Referenced by nextinitial(), suews_calculations(), and suews_translateback().

256  REAL(KIND(1d0)), DIMENSION(nvegsurf) :: lai_id, lai_id_prev !LAI for each veg surface [m2 m-2]
real(kind(1d0)), dimension(nvegsurf) lai_id_prev
real(kind(1d0)), dimension(nvegsurf) lai_id

◆ lai_id_grids

real(kind(1d0)), dimension(nvegsurf, maxnumberofgrids) allocatearray::lai_id_grids

Definition at line 290 of file suews_ctrl_const.f95.

Referenced by suews_translateback().

290  REAL(KIND(1d0)), DIMENSION(nvegsurf, MaxNumberOfGrids):: lai_id_grids
real(kind(1d0)), dimension(nvegsurf, maxnumberofgrids) lai_id_grids

◆ lai_id_prev

real(kind(1d0)), dimension(nvegsurf) allocatearray::lai_id_prev

Definition at line 256 of file suews_ctrl_const.f95.

◆ laimax

real(kind(1d0)), dimension(nvegsurf) allocatearray::laimax

Definition at line 335 of file suews_ctrl_const.f95.

Referenced by checkinitial(), suews_calculations(), and suews_translate().

335  REAL(KIND(1d0)), DIMENSION(nvegsurf):: laimax !Max LAI [m2 m-2]
real(kind(1d0)), dimension(nvegsurf) laimax

◆ laimin

real(kind(1d0)), dimension(nvegsurf) allocatearray::laimin

Definition at line 334 of file suews_ctrl_const.f95.

Referenced by checkinitial(), suews_calculations(), and suews_translate().

334  REAL(KIND(1d0)), DIMENSION(nvegsurf):: laimin !Min LAI [m2 m-2]
real(kind(1d0)), dimension(nvegsurf) laimin

◆ laipower

real(kind(1d0)), dimension(4, nvegsurf) allocatearray::laipower

Definition at line 337 of file suews_ctrl_const.f95.

Referenced by suews_calculations(), and suews_translate().

337  REAL(KIND(1d0)), DIMENSION(4, nvegsurf):: laipower !Coeffs for LAI equation: 1,2 - leaf growth; 3,4 - leaf off
real(kind(1d0)), dimension(4, nvegsurf) laipower

◆ laitype

integer, dimension(nvegsurf) allocatearray::laitype

Definition at line 339 of file suews_ctrl_const.f95.

Referenced by suews_calculations(), and suews_translate().

339  INTEGER, DIMENSION(nvegsurf):: laitype !LAI equation to use: original (0) or new (1)
integer, dimension(nvegsurf) laitype

◆ lenday_id

real(kind(1d0)) allocatearray::lenday_id

Definition at line 253 of file suews_ctrl_const.f95.

Referenced by suews_calculations(), and suews_translateback().

◆ lenday_id_grids

real(kind(1d0)), dimension(maxnumberofgrids) allocatearray::lenday_id_grids

Definition at line 287 of file suews_ctrl_const.f95.

Referenced by suews_translateback().

287  REAL(KIND(1d0)), DIMENSION(MaxNumberOfGrids):: lenday_id_grids
real(kind(1d0)), dimension(maxnumberofgrids) lenday_id_grids

◆ longnmuse

character(len=52*ncolumnsdataoutsuews) allocatearray::longnmuse

Definition at line 90 of file suews_ctrl_const.f95.

90  CHARACTER(len=52*ncolumnsDataOutSUEWS):: longnmuse
character(len=52 *ncolumnsdataoutsuews) longnmuse

◆ lup_ind

real(kind(1d0)), dimension(nsurf) allocatearray::lup_ind

Definition at line 371 of file suews_ctrl_const.f95.

371  REAL(KIND(1d0)), DIMENSION(nsurf):: lup_ind, & !Outgoing longwave radiation for each surface [W m-2]
372  lup_ind_snow, & !Outgoing longwave radiation for each snow surface [W m-2]
real(kind(1d0)), dimension(nsurf) lup_ind
real(kind(1d0)), dimension(nsurf) lup_ind_snow
real(kind(1d0)), dimension(nsurf) lup_ind_nosnow

◆ lup_ind_nosnow

real(kind(1d0)), dimension(nsurf) allocatearray::lup_ind_nosnow

Definition at line 371 of file suews_ctrl_const.f95.

◆ lup_ind_snow

real(kind(1d0)), dimension(nsurf) allocatearray::lup_ind_snow

Definition at line 371 of file suews_ctrl_const.f95.

◆ mahanohm

real(kind(1d0)), dimension(maxnumberofgrids) allocatearray::mahanohm

Definition at line 455 of file suews_ctrl_const.f95.

455  REAL(KIND(1d0)), DIMENSION(MaxNumberOfGrids) :: mahanohm ! daily mean AH [W m-2]
real(kind(1d0)), dimension(maxnumberofgrids) mahanohm

◆ maxconductance

real(kind(1d0)), dimension(nvegsurf) allocatearray::maxconductance

Definition at line 336 of file suews_ctrl_const.f95.

Referenced by suews_calculations(), and suews_translate().

336  REAL(KIND(1d0)), DIMENSION(nvegsurf):: maxconductance !Max conductance [mm s-1]
real(kind(1d0)), dimension(nvegsurf) maxconductance

◆ maxlinesmet

integer, parameter allocatearray::maxlinesmet = 8640

Definition at line 28 of file suews_ctrl_const.f95.

Referenced by suews_program().

28  INTEGER, PARAMETER:: maxlinesmet = 8640 !Max no. lines to read in one go (for all grids, ie MaxLinesMet/NumberOfGrids each)
integer, parameter maxlinesmet

◆ maxncols_c

integer, parameter allocatearray::maxncols_c = (ccEndESTMMP + 44*5 + 5 + 6)

Definition at line 854 of file suews_ctrl_const.f95.

Referenced by suews_program().

854  INTEGER, PARAMETER:: maxncols_c = (ccendestmmp + 44*5 + 5 + 6)
integer, parameter ccendestmmp
integer, parameter maxncols_c

◆ maxncols_cmds

integer, parameter allocatearray::maxncols_cmds = ccMDS + 0*nsurf + nsurf

Definition at line 877 of file suews_ctrl_const.f95.

Referenced by suews_program().

877  INTEGER, PARAMETER:: maxncols_cmds = ccmds + 0*nsurf + nsurf
integer, parameter maxncols_cmds
integer, parameter nsurf
integer, parameter ccmds

◆ maxncols_cmod

integer, parameter allocatearray::maxncols_cmod = ccMOD + 5*nsurf + nsurf

Definition at line 868 of file suews_ctrl_const.f95.

Referenced by suews_program().

868  INTEGER, PARAMETER:: maxncols_cmod = ccmod + 5*nsurf + nsurf
integer, parameter nsurf
integer, parameter maxncols_cmod
integer, parameter ccmod

◆ maxnumberofgrids

integer, parameter allocatearray::maxnumberofgrids = 10000

Definition at line 26 of file suews_ctrl_const.f95.

Referenced by suews_program().

26  INTEGER, PARAMETER:: maxnumberofgrids = 10000 !Max no. grids !HCW changed to 2000 from 10000 so prog can run on windows (2GB lim)
integer, parameter maxnumberofgrids

◆ maxsnowvol

real(kind(1d0)), dimension(nsurf) allocatearray::maxsnowvol

Definition at line 409 of file suews_ctrl_const.f95.

◆ metforcingdata

real(kind(1d0)), dimension(:, :, :), allocatable allocatearray::metforcingdata

Definition at line 115 of file suews_ctrl_const.f95.

Referenced by metdisagg::disaggregatemet(), initialstate(), suews_initializemetdata(), and suews_program().

115  REAL(KIND(1d0)), DIMENSION(:, :, :), ALLOCATABLE:: metforcingdata !Array for meteorological forcing data
real(kind(1d0)), dimension(:, :, :), allocatable metforcingdata

◆ metforcingdata_grid

real(kind(1d0)), dimension(:, :), allocatable allocatearray::metforcingdata_grid

Definition at line 116 of file suews_ctrl_const.f95.

Referenced by suews_calculations(), and suews_program().

116  REAL(KIND(1d0)), DIMENSION(:, :), ALLOCATABLE :: metforcingdata_grid !Array for meteorological forcing data of one grid used by AnOHM
real(kind(1d0)), dimension(:, :), allocatable metforcingdata_grid

◆ metfordisagg

real(kind(1d0)), dimension(:, :), allocatable allocatearray::metfordisagg

Definition at line 136 of file suews_ctrl_const.f95.

Referenced by metdisagg::disaggregatemet().

136  REAL(KIND(1d0)), DIMENSION(:, :), ALLOCATABLE:: metfordisagg !Array for original met forcing data (for disaggregation)
real(kind(1d0)), dimension(:, :), allocatable metfordisagg

◆ metfordisaggnext

real(kind(1d0)), dimension(:), allocatable allocatearray::metfordisaggnext

Definition at line 137 of file suews_ctrl_const.f95.

Referenced by metdisagg::disaggregatemet().

◆ metfordisaggprev

real(kind(1d0)), dimension(:), allocatable allocatearray::metfordisaggprev

Definition at line 137 of file suews_ctrl_const.f95.

Referenced by metdisagg::disaggregatemet().

137  REAL(KIND(1d0)), DIMENSION(:), ALLOCATABLE:: metfordisaggprev, metfordisaggnext !Stores last and next row of met data
real(kind(1d0)), dimension(:), allocatable metfordisaggprev
real(kind(1d0)), dimension(:), allocatable metfordisaggnext

◆ min_res_bioco2

real(kind(1d0)), dimension(nvegsurf) allocatearray::min_res_bioco2

Definition at line 342 of file suews_ctrl_const.f95.

Referenced by suews_calculations(), and suews_translate().

◆ modeldailystate

real(kind(1d0)), dimension(:, :), allocatable allocatearray::modeldailystate

Definition at line 118 of file suews_ctrl_const.f95.

Referenced by initialstate(), suews_program(), and suews_translateback().

118  REAL(KIND(1d0)), DIMENSION(:, :), ALLOCATABLE:: modeldailystate !DailyState array
real(kind(1d0)), dimension(:, :), allocatable modeldailystate

◆ modeloutputdata

real(kind(1d0)), dimension(:, :, :), allocatable allocatearray::modeloutputdata

Definition at line 120 of file suews_ctrl_const.f95.

Referenced by initialstate(), suews_program(), and suews_translateback().

120  REAL(KIND(1d0)), DIMENSION(:, :, :), ALLOCATABLE:: modeloutputdata !Output data matrix
real(kind(1d0)), dimension(:, :, :), allocatable modeloutputdata

◆ mw_ind

real(kind(1d0)), dimension(nsurf) allocatearray::mw_ind

Definition at line 409 of file suews_ctrl_const.f95.

◆ mw_indday

real(kind(1d0)), dimension(nsurf) allocatearray::mw_indday

Definition at line 409 of file suews_ctrl_const.f95.

◆ narp_alb_snow

real(kind(1d0)) allocatearray::narp_alb_snow

Definition at line 379 of file suews_ctrl_const.f95.

◆ narp_emis_snow

real(kind(1d0)) allocatearray::narp_emis_snow

Definition at line 379 of file suews_ctrl_const.f95.

Referenced by suews_calculations().

◆ narp_g

real(kind(1d0)), dimension(365) allocatearray::narp_g

Definition at line 381 of file suews_ctrl_const.f95.

381  REAL(KIND(1D0)) :: narp_g(365) !!QUESTION: Should this be NDays? - HCW
real(kind(1d0)), dimension(365) narp_g

◆ narp_kdown_hr

real(kind(1d0)), dimension(:), allocatable allocatearray::narp_kdown_hr

Definition at line 383 of file suews_ctrl_const.f95.

383  REAL(KIND(1D0)), ALLOCATABLE :: narp_kdown_hr(:)
real(kind(1d0)), dimension(:), allocatable narp_kdown_hr

◆ narp_lat

real(kind(1d0)) allocatearray::narp_lat

Definition at line 379 of file suews_ctrl_const.f95.

379  REAL(KIND(1d0)) :: narp_lat, narp_long, narp_year, narp_tz, &
real(kind(1d0)) narp_emis_snow
real(kind(1d0)) narp_year
real(kind(1d0)) narp_lat
real(kind(1d0)) narp_long
real(kind(1d0)) narp_tz
real(kind(1d0)) narp_trans_site
real(kind(1d0)) narp_alb_snow

◆ narp_long

real(kind(1d0)) allocatearray::narp_long

Definition at line 379 of file suews_ctrl_const.f95.

◆ narp_nperhour

integer allocatearray::narp_nperhour

Definition at line 382 of file suews_ctrl_const.f95.

382  INTEGER :: narp_nperhour

◆ narp_trans_site

real(kind(1d0)) allocatearray::narp_trans_site

Definition at line 379 of file suews_ctrl_const.f95.

Referenced by suews_calculations().

◆ narp_tz

real(kind(1d0)) allocatearray::narp_tz

Definition at line 379 of file suews_ctrl_const.f95.

◆ narp_year

real(kind(1d0)) allocatearray::narp_year

Definition at line 379 of file suews_ctrl_const.f95.

◆ ncolsestmdata

integer, parameter allocatearray::ncolsestmdata = 13

Definition at line 46 of file suews_ctrl_const.f95.

Referenced by metdisagg::disaggregateestm(), estm_module::estm_translate(), estm_module::suews_getestmdata(), and suews_program().

46  INTEGER, PARAMETER:: ncolsestmdata = 13 !ESTM input file (_ESTM_Ts_data.txt))
integer, parameter ncolsestmdata

◆ ncolumnsanthropogenic

integer, parameter allocatearray::ncolumnsanthropogenic = 39

Definition at line 40 of file suews_ctrl_const.f95.

Referenced by overallruncontrol().

40  INTEGER, PARAMETER:: ncolumnsanthropogenic = 39 !SUEWS_AnthropogenicEmission.txt
integer, parameter ncolumnsanthropogenic

◆ ncolumnsbiogen

integer, parameter allocatearray::ncolumnsbiogen = 9

Definition at line 44 of file suews_ctrl_const.f95.

Referenced by overallruncontrol().

44  INTEGER, PARAMETER:: ncolumnsbiogen = 9 !SUEWS_BiogenCO2.txt
integer, parameter ncolumnsbiogen

◆ ncolumnsconductance

integer, parameter allocatearray::ncolumnsconductance = 13

Definition at line 37 of file suews_ctrl_const.f95.

Referenced by overallruncontrol().

37  INTEGER, PARAMETER:: ncolumnsconductance = 13 !SUEWS_Conductance.txt
integer, parameter ncolumnsconductance

◆ ncolumnsdataoutbl

integer, parameter allocatearray::ncolumnsdataoutbl = 22

Definition at line 49 of file suews_ctrl_const.f95.

Referenced by bluews_module::cbl_initial(), and suews_program().

◆ ncolumnsdataoutdailystate

integer, parameter allocatearray::ncolumnsdataoutdailystate = 50

◆ ncolumnsdataoutestm

integer, parameter allocatearray::ncolumnsdataoutestm = 32

Definition at line 49 of file suews_ctrl_const.f95.

Referenced by suews_driver::suews_update_output().

◆ ncolumnsdataoutrsl

integer, parameter allocatearray::ncolumnsdataoutrsl = 125

Definition at line 49 of file suews_ctrl_const.f95.

Referenced by suews_program(), and suews_driver::suews_update_output().

◆ ncolumnsdataoutsnow

integer, parameter allocatearray::ncolumnsdataoutsnow = 103

Definition at line 49 of file suews_ctrl_const.f95.

Referenced by suews_program(), and suews_driver::suews_update_output().

◆ ncolumnsdataoutsol

integer, parameter allocatearray::ncolumnsdataoutsol = 31

Definition at line 49 of file suews_ctrl_const.f95.

◆ ncolumnsdataoutsuews

integer, parameter allocatearray::ncolumnsdataoutsuews = 87

Definition at line 49 of file suews_ctrl_const.f95.

Referenced by suews_program(), and suews_driver::suews_update_output().

49  INTEGER, PARAMETER:: ncolumnsdataoutsuews = 87, & !Main output file (_5.txt). dataOutSUEWS created in SUEWS_Calculations.f95
50  ncolumnsdataoutsnow = 103, &
51  ncolumnsdataoutsol = 31, &
52  ncolumnsdataoutbl = 22, &
53  ncolumnsdataoutestm = 32, &
55  ncolumnsdataoutrsl = 125
integer, parameter ncolumnsdataoutestm
integer, parameter ncolumnsdataoutdailystate
integer, parameter ncolumnsdataoutbl
integer, parameter ncolumnsdataoutsol
integer, parameter ncolumnsdataoutrsl
integer, parameter ncolumnsdataoutsnow
integer, parameter ncolumnsdataoutsuews

◆ ncolumnsestmcoefficients

integer, parameter allocatearray::ncolumnsestmcoefficients = 52

Definition at line 39 of file suews_ctrl_const.f95.

Referenced by overallruncontrol().

39  INTEGER, PARAMETER:: ncolumnsestmcoefficients = 52 !SUEWS_ESTMCoefficients.txt ! S.O. 04 Feb 2016
integer, parameter ncolumnsestmcoefficients

◆ ncolumnsirrigation

integer, parameter allocatearray::ncolumnsirrigation = 25

Definition at line 41 of file suews_ctrl_const.f95.

Referenced by overallruncontrol().

41  INTEGER, PARAMETER:: ncolumnsirrigation = 25 !SUEWS_Irrigation.txt
integer, parameter ncolumnsirrigation

◆ ncolumnsmetforcingdata

integer, parameter allocatearray::ncolumnsmetforcingdata = 24

Definition at line 45 of file suews_ctrl_const.f95.

Referenced by metdisagg::disaggregatemet(), and suews_program().

45  INTEGER, PARAMETER:: ncolumnsmetforcingdata = 24 !Meteorological forcing file (_data.txt)
integer, parameter ncolumnsmetforcingdata

◆ ncolumnsnonveg

integer, parameter allocatearray::ncolumnsnonveg = 24

Definition at line 32 of file suews_ctrl_const.f95.

Referenced by overallruncontrol().

32  INTEGER, PARAMETER:: ncolumnsnonveg = 24 !SUEWS_NonVeg.txt
integer, parameter ncolumnsnonveg

◆ ncolumnsohmcoefficients

integer, parameter allocatearray::ncolumnsohmcoefficients = 4

Definition at line 38 of file suews_ctrl_const.f95.

Referenced by overallruncontrol().

38  INTEGER, PARAMETER:: ncolumnsohmcoefficients = 4 !SUEWS_OHMCoefficients.txt
integer, parameter ncolumnsohmcoefficients

◆ ncolumnsprofiles

integer, parameter allocatearray::ncolumnsprofiles = 25

Definition at line 42 of file suews_ctrl_const.f95.

Referenced by overallruncontrol().

42  INTEGER, PARAMETER:: ncolumnsprofiles = 25 !SUEWS_Profiles.txt
integer, parameter ncolumnsprofiles

◆ ncolumnssiteselect

integer, parameter allocatearray::ncolumnssiteselect = 101

Definition at line 31 of file suews_ctrl_const.f95.

Referenced by initializesurfacecharacteristics(), and overallruncontrol().

31  INTEGER, PARAMETER:: ncolumnssiteselect = 101 !SUEWS_SiteSelect.txt
integer, parameter ncolumnssiteselect

◆ ncolumnssnow

integer, parameter allocatearray::ncolumnssnow = 25

Definition at line 35 of file suews_ctrl_const.f95.

Referenced by overallruncontrol().

35  INTEGER, PARAMETER:: ncolumnssnow = 25 !SUEWS_Snow.txt
integer, parameter ncolumnssnow

◆ ncolumnssoil

integer, parameter allocatearray::ncolumnssoil = 9

Definition at line 36 of file suews_ctrl_const.f95.

Referenced by overallruncontrol().

36  INTEGER, PARAMETER:: ncolumnssoil = 9 !SUEWS_Soil.txt
integer, parameter ncolumnssoil

◆ ncolumnsveg

integer, parameter allocatearray::ncolumnsveg = 38

Definition at line 33 of file suews_ctrl_const.f95.

Referenced by overallruncontrol().

33  INTEGER, PARAMETER:: ncolumnsveg = 38 !SUEWS_Veg.txt
integer, parameter ncolumnsveg

◆ ncolumnswater

integer, parameter allocatearray::ncolumnswater = 22

Definition at line 34 of file suews_ctrl_const.f95.

Referenced by overallruncontrol().

34  INTEGER, PARAMETER:: ncolumnswater = 22 !SUEWS_Water.txt
integer, parameter ncolumnswater

◆ ncolumnswgwaterdist

integer, parameter allocatearray::ncolumnswgwaterdist = 10

Definition at line 43 of file suews_ctrl_const.f95.

Referenced by overallruncontrol().

43  INTEGER, PARAMETER:: ncolumnswgwaterdist = 10 !SUEWS_WithinGridWaterDist.txt
integer, parameter ncolumnswgwaterdist

◆ nconns

integer, parameter allocatearray::nconns = 8

Definition at line 446 of file suews_ctrl_const.f95.

446  INTEGER, PARAMETER:: nconns = 8 !Number of grids for between-grid connections
integer, parameter nconns

◆ ndays

integer, parameter allocatearray::ndays = 366

Definition at line 244 of file suews_ctrl_const.f95.

Referenced by suews_program().

244  INTEGER, PARAMETER:: ndays = 366 !Max no. days in a year used to specify size of daily arrays
integer, parameter ndays

◆ nonveg_coeff

real(kind(1d0)), dimension(:, :), allocatable allocatearray::nonveg_coeff

Definition at line 97 of file suews_ctrl_const.f95.

Referenced by codematchnonveg(), initializesurfacecharacteristics(), and overallruncontrol().

97  REAL(KIND(1d0)), DIMENSION(:, :), ALLOCATABLE::nonveg_coeff !Coefficients for the nonveg surfaces
real(kind(1d0)), dimension(:, :), allocatable nonveg_coeff

◆ nsurf

integer, parameter allocatearray::nsurf = 7

◆ nsurfdonotreceivedrainage

integer, parameter allocatearray::nsurfdonotreceivedrainage = 0

Definition at line 186 of file suews_ctrl_const.f95.

◆ nsurfincsnow

integer, parameter allocatearray::nsurfincsnow = nsurf + 1

Definition at line 184 of file suews_ctrl_const.f95.

184  INTEGER, PARAMETER:: nsurfincsnow = nsurf + 1 !Number of surfaces + snow
integer, parameter nsurfincsnow
integer, parameter nsurf

◆ nvegsurf

integer, parameter allocatearray::nvegsurf = 3

Definition at line 183 of file suews_ctrl_const.f95.

Referenced by suews_driver::suews_cal_main(), suews_translate(), suews_driver::suews_update_outputline(), dailystate_module::update_gddlai(), and dailystate_module::update_gddlai_x().

183  INTEGER, PARAMETER:: nvegsurf = 3 !Number of surfaces that are vegetated
integer, parameter nvegsurf

◆ ohm_coef

real(kind(1d0)), dimension(nsurf + 1, 4, 3) allocatearray::ohm_coef

Definition at line 391 of file suews_ctrl_const.f95.

Referenced by suews_calculations().

391  REAL(KIND(1d0)), DIMENSION(nsurf + 1, 4, 3):: ohm_coef !Array for OHM coefficients
real(kind(1d0)), dimension(nsurf+1, 4, 3) ohm_coef

◆ ohm_threshsw

real(kind(1d0)), dimension(nsurf + 1) allocatearray::ohm_threshsw

Definition at line 392 of file suews_ctrl_const.f95.

Referenced by suews_calculations().

392  REAL(KIND(1d0)), DIMENSION(nsurf + 1):: ohm_threshsw, ohm_threshwd !Arrays for OHM thresholds
real(kind(1d0)), dimension(nsurf+1) ohm_threshwd
real(kind(1d0)), dimension(nsurf+1) ohm_threshsw

◆ ohm_threshwd

real(kind(1d0)), dimension(nsurf + 1) allocatearray::ohm_threshwd

Definition at line 392 of file suews_ctrl_const.f95.

Referenced by suews_calculations().

◆ ohmcoefficients_coeff

real(kind(1d0)), dimension(:, :), allocatable allocatearray::ohmcoefficients_coeff

Definition at line 103 of file suews_ctrl_const.f95.

Referenced by codematchohm(), initializesurfacecharacteristics(), and overallruncontrol().

103  REAL(KIND(1d0)), DIMENSION(:, :), ALLOCATABLE::ohmcoefficients_coeff !Coefficients for OHMCoefficients
real(kind(1d0)), dimension(:, :), allocatable ohmcoefficients_coeff

◆ pavsurf

integer, parameter allocatearray::pavsurf = 1

Definition at line 186 of file suews_ctrl_const.f95.

Referenced by checkinitial(), codematchestm_class(), estm_module::estm_translate(), initializesurfacecharacteristics(), initialstate(), snow_module::meltheat(), nextinitial(), snow_module::snowcalc(), snow_module::snowdepletioncurve(), waterdist_module::soilstore(), suews_driver::suews_cal_surf(), suews_translate(), and waterdist_module::updateflood().

186  INTEGER, PARAMETER:: pavsurf = 1, & !When all surfaces considered together (1-7)
187  bldgsurf = 2, &
188  conifsurf = 3, &
189  decidsurf = 4, &
190  grasssurf = 5, & !New surface classes: Grass = 5th/7 surfaces
191  bsoilsurf = 6, & !New surface classes: Bare soil = 6th/7 surfaces
192  watersurf = 7, &
193  excesssurf = 8, & !Runoff or subsurface soil in WGWaterDist
194  nsurfdonotreceivedrainage = 0, & !Number of surfaces that do not receive drainage water (green roof)
195  ivconif = 1, & !When only vegetated surfaces considered (1-3)
196  ivdecid = 2, &
197  ivgrass = 3
integer, parameter ivgrass
integer, parameter bsoilsurf
integer, parameter nsurfdonotreceivedrainage
integer, parameter conifsurf
integer, parameter grasssurf
integer, parameter ivconif
integer, parameter excesssurf
integer, parameter decidsurf
integer, parameter pavsurf
integer, parameter bldgsurf
integer, parameter watersurf
integer, parameter ivdecid

◆ popprof_24hr

real(kind(1d0)), dimension(0:23, 2) allocatearray::popprof_24hr

Definition at line 154 of file suews_ctrl_const.f95.

Referenced by suews_calculations().

154  REAL(KIND(1d0)), DIMENSION(0:23, 2):: popprof_24hr !Population profiles for (1)weekdays / (2)weekends
real(kind(1d0)), dimension(0:23, 2) popprof_24hr

◆ pormax_dec

real(kind(1d0)) allocatearray::pormax_dec

Definition at line 265 of file suews_ctrl_const.f95.

Referenced by suews_calculations(), and suews_translate().

◆ pormin_dec

real(kind(1d0)) allocatearray::pormin_dec

Definition at line 265 of file suews_ctrl_const.f95.

Referenced by suews_calculations(), and suews_translate().

◆ porosity_id

real(kind(1d0)) allocatearray::porosity_id

Definition at line 309 of file suews_ctrl_const.f95.

Referenced by initialstate(), nextinitial(), suews_calculations(), and suews_translateback().

309  REAL(KIND(1d0)) :: porosity_id
real(kind(1d0)) porosity_id

◆ porosity_id_grids

real(kind(1d0)), dimension(maxnumberofgrids) allocatearray::porosity_id_grids

Definition at line 303 of file suews_ctrl_const.f95.

Referenced by suews_translateback().

303  REAL(KIND(1d0)), DIMENSION(MaxNumberOfGrids):: porosity_id_grids
real(kind(1d0)), dimension(maxnumberofgrids) porosity_id_grids

◆ profiles_coeff

real(kind(1d0)), dimension(:, :), allocatable allocatearray::profiles_coeff

Definition at line 107 of file suews_ctrl_const.f95.

Referenced by codematchprof(), initializesurfacecharacteristics(), and overallruncontrol().

107  REAL(KIND(1d0)), DIMENSION(:, :), ALLOCATABLE::profiles_coeff !Coefficients for Profiles
real(kind(1d0)), dimension(:, :), allocatable profiles_coeff

◆ qm_freezstate

real(kind(1d0)), dimension(nsurf) allocatearray::qm_freezstate

Definition at line 409 of file suews_ctrl_const.f95.

◆ qm_melt

real(kind(1d0)), dimension(nsurf) allocatearray::qm_melt

Definition at line 409 of file suews_ctrl_const.f95.

◆ qm_rain

real(kind(1d0)), dimension(nsurf) allocatearray::qm_rain

Definition at line 409 of file suews_ctrl_const.f95.

◆ qn1_av

real(kind(1d0)) allocatearray::qn1_av

Definition at line 402 of file suews_ctrl_const.f95.

Referenced by suews_calculations(), and suews_translateback().

402  REAL(KIND(1d0))::qn1_av, dqndt
real(kind(1d0)) qn1_av
real(kind(1d0)) dqndt

◆ qn1_av_grids

real(kind(1d0)), dimension(:), allocatable allocatearray::qn1_av_grids

Definition at line 400 of file suews_ctrl_const.f95.

Referenced by suews_program(), and suews_translateback().

400  REAL(KIND(1d0)), DIMENSION(:), ALLOCATABLE::qn1_av_grids, qn1_s_av_grids
real(kind(1d0)), dimension(:), allocatable qn1_s_av_grids
real(kind(1d0)), dimension(:), allocatable qn1_av_grids

◆ qn1_ind

real(kind(1d0)), dimension(nsurf) allocatearray::qn1_ind

Definition at line 374 of file suews_ctrl_const.f95.

374  REAL(KIND(1d0)), DIMENSION(nsurf):: qn1_ind, & !Net all-wave radiation for each surface [W m-2]
375  qn1_ind_snow, & !Net all-wave radiation for each snow surface [W m-2]
real(kind(1d0)), dimension(nsurf) qn1_ind_nosnow
real(kind(1d0)), dimension(nsurf) qn1_ind
real(kind(1d0)), dimension(nsurf) qn1_ind_snow

◆ qn1_ind_nosnow

real(kind(1d0)), dimension(nsurf) allocatearray::qn1_ind_nosnow

Definition at line 374 of file suews_ctrl_const.f95.

◆ qn1_ind_snow

real(kind(1d0)), dimension(nsurf) allocatearray::qn1_ind_snow

Definition at line 374 of file suews_ctrl_const.f95.

◆ qn1_s_av

real(kind(1d0)) allocatearray::qn1_s_av

Definition at line 404 of file suews_ctrl_const.f95.

Referenced by suews_calculations(), and suews_translateback().

404  REAL(KIND(1d0))::qn1_s_av, dqnsdt
real(kind(1d0)) qn1_s_av
real(kind(1d0)) dqnsdt

◆ qn1_s_av_grids

real(kind(1d0)), dimension(:), allocatable allocatearray::qn1_s_av_grids

Definition at line 400 of file suews_ctrl_const.f95.

Referenced by suews_program(), and suews_translateback().

◆ rad2deg

real(kind(1d0)), parameter allocatearray::rad2deg = 57.29577951

Definition at line 385 of file suews_ctrl_const.f95.

◆ rainonsnow

real(kind(1d0)), dimension(nsurf) allocatearray::rainonsnow

Definition at line 409 of file suews_ctrl_const.f95.

◆ resp_a

real(kind(1d0)), dimension(nvegsurf) allocatearray::resp_a

Definition at line 342 of file suews_ctrl_const.f95.

Referenced by suews_calculations(), and suews_translate().

◆ resp_b

real(kind(1d0)), dimension(nvegsurf) allocatearray::resp_b

Definition at line 342 of file suews_ctrl_const.f95.

Referenced by suews_calculations(), and suews_translate().

◆ rss_nsurf

real(kind(1d0)), dimension(nsurf) allocatearray::rss_nsurf

Definition at line 218 of file suews_ctrl_const.f95.

218  REAL(KIND(1D0)), DIMENSION(nsurf):: rss_nsurf !Surface resistance after wet/partially wet adjustment for each surface
real(kind(1d0)), dimension(nsurf) rss_nsurf

◆ rsurf_suewssurfs

real(kind(1d0)), dimension(5, nsurfincsnow) allocatearray::rsurf_suewssurfs

Definition at line 464 of file suews_ctrl_const.f95.

◆ runoff

real(kind(1d0)), dimension(nsurf) allocatearray::runoff

Definition at line 209 of file suews_ctrl_const.f95.

209  REAL(KIND(1d0)), DIMENSION(nsurf):: runoff !Runoff from each surface type [mm]
real(kind(1d0)), dimension(nsurf) runoff

◆ runoffsnow

real(kind(1d0)), dimension(nsurf) allocatearray::runoffsnow

Definition at line 409 of file suews_ctrl_const.f95.

◆ runoffsoil

real(kind(1d0)), dimension(nsurf) allocatearray::runoffsoil

Definition at line 210 of file suews_ctrl_const.f95.

210  REAL(KIND(1d0)), DIMENSION(nsurf):: runoffsoil !Soil runoff from each soil sub-surface [mm]
real(kind(1d0)), dimension(nsurf) runoffsoil

◆ sathydraulicconduct

real(kind(1d0)), dimension(nsurf) allocatearray::sathydraulicconduct

Definition at line 226 of file suews_ctrl_const.f95.

Referenced by suews_calculations(), and suews_translate().

226  REAL(KIND(1d0)), DIMENSION(nsurf):: sathydraulicconduct !Saturated hydraulic conductivity for each soil subsurface [mm s-1]
real(kind(1d0)), dimension(nsurf) sathydraulicconduct

◆ sdd_id

real(kind(1d0)), dimension(nvegsurf) allocatearray::sdd_id

Definition at line 252 of file suews_ctrl_const.f95.

Referenced by suews_calculations(), and suews_translateback().

252  REAL(KIND(1d0)), DIMENSION(nvegsurf) :: sdd_id !Growing Degree Days (see SUEWS_DailyState.f95)
real(kind(1d0)), dimension(nvegsurf) sdd_id

◆ sdd_id_grids

real(kind(1d0)), dimension(nvegsurf, maxnumberofgrids) allocatearray::sdd_id_grids

Definition at line 284 of file suews_ctrl_const.f95.

Referenced by suews_translateback().

284  REAL(KIND(1d0)), DIMENSION(nvegsurf, MaxNumberOfGrids):: sdd_id_grids
real(kind(1d0)), dimension(nvegsurf, maxnumberofgrids) sdd_id_grids

◆ sddfull

real(kind(1d0)), dimension(nvegsurf) allocatearray::sddfull

Definition at line 333 of file suews_ctrl_const.f95.

Referenced by suews_calculations(), and suews_translate().

333  REAL(KIND(1d0)), DIMENSION(nvegsurf):: sddfull !Senescence degree days needed to initiate leaf off [degC]
real(kind(1d0)), dimension(nvegsurf) sddfull

◆ sfr

real(kind(1d0)), dimension(nsurf) allocatearray::sfr

Definition at line 199 of file suews_ctrl_const.f95.

Referenced by estm_module::estm_translate(), initialstate(), suews_calculations(), and suews_translate().

199  REAL(KIND(1d0)), DIMENSION(nsurf):: sfr !Surface fractions [-]
real(kind(1d0)), dimension(nsurf) sfr

◆ sigma_sb

real(kind(1d0)), parameter allocatearray::sigma_sb = 5.67E-8

Definition at line 385 of file suews_ctrl_const.f95.

◆ siteselect

real(kind(1d0)), dimension(:, :), allocatable allocatearray::siteselect

Definition at line 96 of file suews_ctrl_const.f95.

Referenced by codematchanthropogenic(), codematchconductance(), codematchdist(), codematchirrigation(), codematchnonveg(), codematchsnow(), codematchveg(), codematchwater(), initializesurfacecharacteristics(), overallruncontrol(), and suews_program().

96  REAL(KIND(1d0)), DIMENSION(:, :), ALLOCATABLE::siteselect !Stores info from SiteSelect.txt
real(kind(1d0)), dimension(:, :), allocatable siteselect

◆ smd_nsurf

real(kind(1d0)), dimension(nsurf) allocatearray::smd_nsurf

Definition at line 211 of file suews_ctrl_const.f95.

211  REAL(KIND(1d0)), DIMENSION(nsurf):: smd_nsurf !Soil moisture deficit of each sub-surface [mm]
real(kind(1d0)), dimension(nsurf) smd_nsurf

◆ smd_nsurfout

real(kind(1d0)), dimension(nsurf) allocatearray::smd_nsurfout

Definition at line 212 of file suews_ctrl_const.f95.

212  REAL(KIND(1d0)), DIMENSION(nsurf):: smd_nsurfout !Soil moisture deficit of each sub-surface (written out) [mm]
real(kind(1d0)), dimension(nsurf) smd_nsurfout

◆ snow_coeff

real(kind(1d0)), dimension(:, :), allocatable allocatearray::snow_coeff

Definition at line 100 of file suews_ctrl_const.f95.

Referenced by codematchsnow(), initializesurfacecharacteristics(), and overallruncontrol().

100  REAL(KIND(1d0)), DIMENSION(:, :), ALLOCATABLE::snow_coeff !Coefficients for snow
real(kind(1d0)), dimension(:, :), allocatable snow_coeff

◆ snowcalcswitch

integer, dimension(nsurf) allocatearray::snowcalcswitch = 0

Definition at line 438 of file suews_ctrl_const.f95.

◆ snowcoverforms

integer, dimension(nsurf) allocatearray::snowcoverforms

Definition at line 438 of file suews_ctrl_const.f95.

◆ snowdens

real(kind(1d0)), dimension(nsurf) allocatearray::snowdens

Definition at line 409 of file suews_ctrl_const.f95.

Referenced by nextinitial(), suews_calculations(), and suews_translateback().

◆ snowdepth

real(kind(1d0)), dimension(nsurf) allocatearray::snowdepth

Definition at line 409 of file suews_ctrl_const.f95.

◆ snowfrac

real(kind(1d0)), dimension(nsurf) allocatearray::snowfrac

Definition at line 409 of file suews_ctrl_const.f95.

Referenced by nextinitial(), suews_calculations(), and suews_translateback().

◆ snowinit

real(kind(1d0)), dimension(nsurf) allocatearray::snowinit

Definition at line 409 of file suews_ctrl_const.f95.

◆ snowpack

real(kind(1d0)), dimension(nsurf) allocatearray::snowpack

Definition at line 436 of file suews_ctrl_const.f95.

Referenced by nextinitial(), suews_calculations(), and suews_translateback().

436  REAL(KIND(1d0)), DIMENSION(nsurf):: snowpack, & !Amount of snow on each surface in mm
real(kind(1d0)), dimension(nsurf) snowpack
real(kind(1d0)), dimension(nsurf) snowpackold

◆ snowpacklimit

real(kind(1d0)), dimension(nsurf) allocatearray::snowpacklimit

Definition at line 409 of file suews_ctrl_const.f95.

Referenced by suews_calculations(), and suews_translate().

◆ snowpackold

real(kind(1d0)), dimension(nsurf) allocatearray::snowpackold

Definition at line 436 of file suews_ctrl_const.f95.

◆ snowtosurf

real(kind(1d0)), dimension(nsurf) allocatearray::snowtosurf

Definition at line 409 of file suews_ctrl_const.f95.

◆ snowwater

real(kind(1d0)), dimension(nsurf) allocatearray::snowwater

Definition at line 409 of file suews_ctrl_const.f95.

Referenced by nextinitial(), suews_calculations(), and suews_translateback().

◆ soil_coeff

real(kind(1d0)), dimension(:, :), allocatable allocatearray::soil_coeff

Definition at line 101 of file suews_ctrl_const.f95.

Referenced by codematchsoil(), initializesurfacecharacteristics(), and overallruncontrol().

101  REAL(KIND(1d0)), DIMENSION(:, :), ALLOCATABLE::soil_coeff !Coefficients for soil
real(kind(1d0)), dimension(:, :), allocatable soil_coeff

◆ soildepth

real(kind(1d0)), dimension(nsurf) allocatearray::soildepth

Definition at line 227 of file suews_ctrl_const.f95.

Referenced by suews_calculations(), and suews_translate().

227  REAL(KIND(1d0)), DIMENSION(nsurf):: soildepth !Depth of sub-surface soil store for each surface [mm]
real(kind(1d0)), dimension(nsurf) soildepth

◆ soilstore_id

real(kind(1d0)), dimension(nsurf) allocatearray::soilstore_id

Definition at line 213 of file suews_ctrl_const.f95.

Referenced by nextinitial(), suews_calculations(), and suews_translateback().

213  REAL(KIND(1d0)), DIMENSION(nsurf):: soilstore_id !Soil moisture of each surface type [mm]
real(kind(1d0)), dimension(nsurf) soilstore_id

◆ soilstorecap

real(kind(1d0)), dimension(nsurf) allocatearray::soilstorecap

Definition at line 228 of file suews_ctrl_const.f95.

Referenced by checkinitial(), suews_calculations(), and suews_translate().

228  REAL(KIND(1d0)), DIMENSION(nsurf):: soilstorecap !Capacity of soil store for each surface [mm]
real(kind(1d0)), dimension(nsurf) soilstorecap

◆ soilstoreold

real(kind(1d0)), dimension(nsurf) allocatearray::soilstoreold

Definition at line 214 of file suews_ctrl_const.f95.

214  REAL(KIND(1d0)), DIMENSION(nsurf):: soilstoreold !Soil moisture of each surface type from previous timestep [mm]
real(kind(1d0)), dimension(nsurf) soilstoreold

◆ state_id

real(kind(1d0)), dimension(nsurf) allocatearray::state_id

Definition at line 215 of file suews_ctrl_const.f95.

Referenced by nextinitial(), suews_calculations(), and suews_translateback().

215  REAL(KIND(1d0)), DIMENSION(nsurf):: state_id !Wetness status of each surface type [mm]
real(kind(1d0)), dimension(nsurf) state_id

◆ statefraction

real(kind(1d0)), dimension(nsurf) allocatearray::statefraction

Definition at line 409 of file suews_ctrl_const.f95.

◆ statelimit

real(kind(1d0)), dimension(nsurf) allocatearray::statelimit

Definition at line 221 of file suews_ctrl_const.f95.

Referenced by suews_calculations(), and suews_translate().

221  REAL(KIND(1d0)), DIMENSION(nsurf):: statelimit !Limit for state_id of each surface type [mm] (specified in input files)
real(kind(1d0)), dimension(nsurf) statelimit

◆ stateold

real(kind(1d0)), dimension(nsurf) allocatearray::stateold

Definition at line 217 of file suews_ctrl_const.f95.

217  REAL(KIND(1d0)), DIMENSION(nsurf):: stateold !Wetness status of each surface type from previous timestep [mm]
real(kind(1d0)), dimension(nsurf) stateold

◆ stateout

real(kind(1d0)), dimension(nsurf) allocatearray::stateout

Definition at line 216 of file suews_ctrl_const.f95.

216  REAL(KIND(1d0)), DIMENSION(nsurf):: stateout !Wetness status of each surface type (written out) [mm]
real(kind(1d0)), dimension(nsurf) stateout

◆ storedrainprm

real(kind(1d0)), dimension(6, nsurf) allocatearray::storedrainprm

Definition at line 234 of file suews_ctrl_const.f95.

Referenced by suews_calculations(), and suews_translate().

234  REAL(KIND(1d0)), DIMENSION(6, nsurf):: storedrainprm !Storage capacities and drainage equation info for each surface
real(kind(1d0)), dimension(6, nsurf) storedrainprm

◆ surfacechar

real(kind(1d0)), dimension(:, :), allocatable allocatearray::surfacechar

Definition at line 114 of file suews_ctrl_const.f95.

Referenced by codematchbiogen(), codematchestm(), codematchestm_class(), codematchohm(), codematchprof(), codematchsoil(), metdisagg::disaggregatemet(), initializesurfacecharacteristics(), initialstate(), normalizevegchar(), suews_program(), and suews_translate().

114  REAL(KIND(1d0)), DIMENSION(:, :), ALLOCATABLE:: surfacechar !Array for surface characteristics
real(kind(1d0)), dimension(:, :), allocatable surfacechar

◆ tair24hr

real(kind(1d0)), dimension(:), allocatable allocatearray::tair24hr

Definition at line 161 of file suews_ctrl_const.f95.

Referenced by estm_module::estm_translate(), and suews_program().

161  REAL(KIND(1d0)), ALLOCATABLE, DIMENSION(:) :: tair24hr
real(kind(1d0)), dimension(:), allocatable tair24hr

◆ tair_av

real(kind(1d0)) allocatearray::tair_av

Definition at line 403 of file suews_ctrl_const.f95.

Referenced by suews_calculations(), and suews_translateback().

403  REAL(KIND(1d0))::tair_av
real(kind(1d0)) tair_av

◆ tair_av_grids

real(kind(1d0)), dimension(:), allocatable allocatearray::tair_av_grids

Definition at line 399 of file suews_ctrl_const.f95.

Referenced by suews_program(), and suews_translateback().

399  REAL(KIND(1d0)), DIMENSION(:), ALLOCATABLE::tair_av_grids
real(kind(1d0)), dimension(:), allocatable tair_av_grids

◆ theta_bioco2

real(kind(1d0)), dimension(nvegsurf) allocatearray::theta_bioco2

Definition at line 342 of file suews_ctrl_const.f95.

Referenced by suews_calculations(), and suews_translate().

◆ tmax_id

real(kind(1d0)) allocatearray::tmax_id

Definition at line 253 of file suews_ctrl_const.f95.

Referenced by suews_calculations(), and suews_translateback().

◆ tmax_id_grids

real(kind(1d0)), dimension(maxnumberofgrids) allocatearray::tmax_id_grids

Definition at line 286 of file suews_ctrl_const.f95.

Referenced by suews_translateback().

286  REAL(KIND(1d0)), DIMENSION(MaxNumberOfGrids):: tmax_id_grids
real(kind(1d0)), dimension(maxnumberofgrids) tmax_id_grids

◆ tmin_id

real(kind(1d0)) allocatearray::tmin_id

Definition at line 253 of file suews_ctrl_const.f95.

Referenced by suews_calculations(), and suews_translateback().

253  REAL(KIND(1d0)):: tmin_id, tmax_id, lenday_id
real(kind(1d0)) tmax_id
real(kind(1d0)) tmin_id
real(kind(1d0)) lenday_id

◆ tmin_id_grids

real(kind(1d0)), dimension(maxnumberofgrids) allocatearray::tmin_id_grids

Definition at line 285 of file suews_ctrl_const.f95.

Referenced by suews_translateback().

285  REAL(KIND(1d0)), DIMENSION(MaxNumberOfGrids):: tmin_id_grids
real(kind(1d0)), dimension(maxnumberofgrids) tmin_id_grids

◆ traffprof_24hr

real(kind(1d0)), dimension(0:23, 2) allocatearray::traffprof_24hr

Definition at line 153 of file suews_ctrl_const.f95.

Referenced by suews_calculations().

153  REAL(KIND(1d0)), DIMENSION(0:23, 2):: traffprof_24hr !Traffic profiles for (1)weekdays / (2)weekends
real(kind(1d0)), dimension(0:23, 2) traffprof_24hr

◆ ts5mindata

real(kind(1d0)), dimension(:, :), allocatable allocatearray::ts5mindata

Definition at line 159 of file suews_ctrl_const.f95.

Referenced by estm_module::estm_translate(), and suews_program().

159  REAL(KIND(1d0)), ALLOCATABLE, DIMENSION(:, :):: ts5mindata !surface temperature input data
real(kind(1d0)), dimension(:, :), allocatable ts5mindata

◆ ts5mindata_ir

real(kind(1d0)), dimension(:), allocatable allocatearray::ts5mindata_ir

Definition at line 160 of file suews_ctrl_const.f95.

Referenced by suews_calculations(), and suews_program().

160  REAL(KIND(1d0)), ALLOCATABLE, DIMENSION(:) :: ts5mindata_ir !=ts5mindata(ir,:), ts input for the current timestep
real(kind(1d0)), dimension(:), allocatable ts5mindata_ir

◆ tsurf_ind

real(kind(1d0)), dimension(nsurf) allocatearray::tsurf_ind

Definition at line 365 of file suews_ctrl_const.f95.

365  REAL(KIND(1d0)), DIMENSION(nsurf):: tsurf_ind, & !Surface temperature for each surface [degC]
366  tsurf_ind_snow, & !Snow surface temperature for each surface [degC]
real(kind(1d0)), dimension(nsurf) tsurf_ind_nosnow
real(kind(1d0)), dimension(nsurf) tsurf_ind
real(kind(1d0)), dimension(nsurf) tsurf_ind_snow

◆ tsurf_ind_nosnow

real(kind(1d0)), dimension(nsurf) allocatearray::tsurf_ind_nosnow

Definition at line 365 of file suews_ctrl_const.f95.

◆ tsurf_ind_snow

real(kind(1d0)), dimension(nsurf) allocatearray::tsurf_ind_snow

Definition at line 365 of file suews_ctrl_const.f95.

◆ unitsuse

character(len=14*ncolumnsdataoutsuews) allocatearray::unitsuse

Definition at line 91 of file suews_ctrl_const.f95.

91  CHARACTER(len=14*ncolumnsDataOutSUEWS):: unitsuse
character(len=14 *ncolumnsdataoutsuews) unitsuse

◆ usecolumnsdataout

integer, dimension(:), allocatable allocatearray::usecolumnsdataout

Definition at line 87 of file suews_ctrl_const.f95.

Referenced by suews_program().

87  INTEGER, DIMENSION(:), ALLOCATABLE:: usecolumnsdataout !Column numbers used to select output variables
integer, dimension(:), allocatable usecolumnsdataout

◆ veg_coeff

real(kind(1d0)), dimension(:, :), allocatable allocatearray::veg_coeff

Definition at line 98 of file suews_ctrl_const.f95.

Referenced by codematchveg(), initializesurfacecharacteristics(), and overallruncontrol().

98  REAL(KIND(1d0)), DIMENSION(:, :), ALLOCATABLE::veg_coeff !Coefficients for the veg surfaces
real(kind(1d0)), dimension(:, :), allocatable veg_coeff

◆ volswe

real(kind(1d0)), dimension(nsurf) allocatearray::volswe

Definition at line 409 of file suews_ctrl_const.f95.

◆ water_coeff

real(kind(1d0)), dimension(:, :), allocatable allocatearray::water_coeff

Definition at line 99 of file suews_ctrl_const.f95.

Referenced by codematchwater(), initializesurfacecharacteristics(), and overallruncontrol().

99  REAL(KIND(1d0)), DIMENSION(:, :), ALLOCATABLE::water_coeff !Coefficients for the water surface
real(kind(1d0)), dimension(:, :), allocatable water_coeff

◆ waterdepth

real(kind(1d0)), dimension(1) allocatearray::waterdepth

Definition at line 223 of file suews_ctrl_const.f95.

Referenced by suews_translate().

223  REAL(KIND(1d0)), DIMENSION(1):: waterdepth !Depth of open water
real(kind(1d0)), dimension(1) waterdepth

◆ waterdist

real(kind(1d0)), dimension(nsurf + 1, nsurf - 1) allocatearray::waterdist

Definition at line 231 of file suews_ctrl_const.f95.

Referenced by suews_calculations().

231  REAL(KIND(1d0)), DIMENSION(nsurf + 1, nsurf - 1)::waterdist !Within-grid water distribution to other surfaces and runoff/soil store [-]
real(kind(1d0)), dimension(nsurf+1, nsurf - 1) waterdist

◆ watersurf

integer, parameter allocatearray::watersurf = 7

◆ wetthresh

real(kind(1d0)), dimension(nsurf) allocatearray::wetthresh

Definition at line 220 of file suews_ctrl_const.f95.

Referenced by suews_calculations(), and suews_translate().

220  REAL(KIND(1d0)), DIMENSION(nsurf):: wetthresh !When state_id > WetThresh, RS=0 limit in SUEWS_evap [mm] (specified in input files)
real(kind(1d0)), dimension(nsurf) wetthresh

◆ wgwaterdist_coeff

real(kind(1d0)), dimension(:, :), allocatable allocatearray::wgwaterdist_coeff

Definition at line 108 of file suews_ctrl_const.f95.

Referenced by codematchdist(), initializesurfacecharacteristics(), and overallruncontrol().

108  REAL(KIND(1d0)), DIMENSION(:, :), ALLOCATABLE::wgwaterdist_coeff !Coefficients for WithinGridWaterDist
real(kind(1d0)), dimension(:, :), allocatable wgwaterdist_coeff

◆ wuday_id

real(kind(1d0)), dimension(9) allocatearray::wuday_id

Definition at line 255 of file suews_ctrl_const.f95.

Referenced by initialstate(), suews_calculations(), and suews_translateback().

255  REAL(KIND(1d0)), DIMENSION(9) :: wuday_id, wuday_id_prev !Daily water use for EveTr, DecTr, Grass [mm] (see SUEWS_DailyState.f95)
real(kind(1d0)), dimension(9) wuday_id
real(kind(1d0)), dimension(9) wuday_id_prev

◆ wuday_id_grids

real(kind(1d0)), dimension(9, maxnumberofgrids) allocatearray::wuday_id_grids

Definition at line 289 of file suews_ctrl_const.f95.

Referenced by suews_translateback().

289  REAL(KIND(1d0)), DIMENSION(9, MaxNumberOfGrids):: wuday_id_grids
real(kind(1d0)), dimension(9, maxnumberofgrids) wuday_id_grids

◆ wuday_id_prev

real(kind(1d0)), dimension(9) allocatearray::wuday_id_prev

Definition at line 255 of file suews_ctrl_const.f95.

◆ wuprofa_24hr

real(kind(1d0)), dimension(0:23, 2) allocatearray::wuprofa_24hr

Definition at line 156 of file suews_ctrl_const.f95.

Referenced by suews_calculations().

156  REAL(KIND(1d0)), DIMENSION(0:23, 2):: wuprofa_24hr !Hourly profiles for water use (automatic irrigation)
real(kind(1d0)), dimension(0:23, 2) wuprofa_24hr

◆ wuprofm_24hr

real(kind(1d0)), dimension(0:23, 2) allocatearray::wuprofm_24hr

Definition at line 155 of file suews_ctrl_const.f95.

Referenced by suews_calculations().

155  REAL(KIND(1d0)), DIMENSION(0:23, 2):: wuprofm_24hr !Hourly profiles for water use (manual irrigation)
real(kind(1d0)), dimension(0:23, 2) wuprofm_24hr

◆ xbo

real(kind(1d0)) allocatearray::xbo

Definition at line 319 of file suews_ctrl_const.f95.

319  REAL(KIND(1d0)):: xbo ! daily Bowen ratio
real(kind(1d0)) xbo

◆ zsurf_suewssurfs

real(kind(1d0)), dimension(5, nsurfincsnow) allocatearray::zsurf_suewssurfs

Definition at line 464 of file suews_ctrl_const.f95.

464  REAL(KIND(1d0)), DIMENSION(5, nsurfIncSnow):: zsurf_suewssurfs, &
real(kind(1d0)), dimension(5, nsurfincsnow) ksurf_suewssurfs
real(kind(1d0)), dimension(5, nsurfincsnow) zsurf_suewssurfs
real(kind(1d0)), dimension(5, nsurfincsnow) rsurf_suewssurfs