! This is for hydro including file ! Storage of soil water properties ! number of layers plus six variables ! ponded depth, cumulative evaporation, cumulative runoff, ! cumulative infiltration, cumulative drainage, ! and cumulative rainfall ! dvolwparam.inc real tlay0(mnsz),dist0(mnsz),depth0(mnsz), & & thetas0(mnsz), thetar0(mnsz), ksat0(mnsz), & & airentry0(mnsz), lambda0(mnsz), & & theta80rh0(mnsz), thetaw0(mnsz), thetadmx0, & & soiltemp0(mnsz), & & airtmaxprev0, airtmin0, airtmax0, airtminnext0, tdew0, & & evapendconstant0, evapdaypot0, evaptrans0, evapamp0, & & raindepth0, rainstart0, rainend0, rainmid0, & & soilslope0, pondmax0, dw_friction0, slopelength0, & & atmpres0, & & surface_rate0, surface_start0, surface_end0, & & source_rate0(mnsz), source_start0(mnsz), source_end0(mnsz), & & lastvolw0(mnsz+7), cond0(mnsz), swm0(mnsz), & & soilrh0(mnsz), soilvapden0(mnsz), soildiffu0(mnsz), & & prevvolw0(mnsz+7),presswc0(mnsz),pressnow0(mnsz) common / dvolwparam0 / & & tlay0, dist0, depth0, & & thetas0, thetar0, ksat0, thetadmx0, & & airentry0, lambda0, & & theta80rh0, thetaw0, & & soiltemp0, & & airtmaxprev0, airtmin0, airtmax0, airtminnext0, tdew0, & & evapendconstant0, evapdaypot0, evaptrans0, evapamp0, & & raindepth0, rainstart0, rainend0, rainmid0, & & soilslope0, pondmax0, dw_friction0, slopelength0, & & atmpres0, & & surface_rate0, surface_start0, surface_end0, & & source_rate0, source_start0, source_end0, & & lastvolw0, cond0, swm0, & & soilrh0, soilvapden0, soildiffu0, & & prevvolw0,presswc0,pressnow0 ! Global hydro variables (local to hydro submodel ! From htheta.inc ! surface soil water content (m^3/m^3) (theta(0)) ! thetadmx - daily maximum soil layer water content (m^3/m^3) !----------------------------------------------------------------------- ! thetas - soil water content at saturation (m^3/m^3) ! effective saturated water content (m^3/m^3) real thetes0(mnsz) ! soil water content at field capacity (m^3/m^3) real thetaf0(mnsz) ! thetar(mnsz) - residual soil water cotent (m^3/m^3) ! soil water content at wilting point (m^3/m^3) !----------------------------------------------------------------------- ! soil layer water content (mm) ! real wc(mnsz) ! soil profile water content (mm) real swc0 ! initial soil profile water content (mm) real swci0 !----------------------------------------------------------------------- ! cumulative kinetic energy since last tillage (J/m2) real rkecum0 common / stheta0 / thetes0, thetaf0, & & swc0, swci0, rkecum0 ! Track cumulative water balance ! From 'h1balance.inc' real cumprecip0(mnsub), cumrunoff0(mnsub), cumevap0(mnsub) real cumtrans0(mnsub), cumdrain0(mnsub) real initswc0(mnsub), initsnow0(mnsub), initday0(mnsub) integer hprevrotation0(mnsub) common /balance0/ & & cumprecip0, cumrunoff0, cumevap0, & & cumtrans0, cumdrain0, & & initswc0, initsnow0, initday0, & & hprevrotation0