!$Author: jhudd@weru.ksu.edu $ !$Date: 2008-08-28 08:04:56 -0500 (Thu, 28 Aug 2008) $ !$Revision: 9696 $ !$HeadURL: https://svn.weru.ksu.edu/weru/weps1/trunk/weps.src/inc/soil/prevday.inc $ ! defines for soil conditions that are retained from the previous day ! Some fixed state variables will not need to be saved, such as amrslp, am0tax,am0sid, ! SoilLossTol, SFCov (All from m1subr.inc) ! This variable may be changed: amnryr, amnrotcycle, amrslp ( From m1subr.inc) real amrslp0(mnsub) real SFCov0(mnsub) real WaterErosion0(mnsub) real SoilRockFragments0(mnsub) common / m1subr0 / & & amrslp0, & & SFCov0, & & WaterErosion0, & & SoilRockFragments0 ! Add soil surface properties from s1surf.inc real aszcr0(mnsub) real asfcr0(mnsub) real asmlos0(mnsub) real asflos0(mnsub) real asdcr0(mnsub) real asecr0(mnsub) real asfald0(mnsub) real asfalw0(mnsub) real acanag0(mnsub) real acancr0(mnsub) real asf10an0(mnsub) real asf10en0(mnsub) real asf10bk0(mnsub) common / s1surf0 / & & aszcr0, asfcr0, asmlos0, asflos0,asdcr0,asecr0,asfald0, & & asfalw0, acanag0, acancr0, asf10an0,asf10en0, asf10bk0 ! This common block contains the variables representing the soil ! particle distribution parameters for each soil layer. ! Parameter include file: p1werm.inc real aslsgm0(mnsz, mnsub) real as0sgs0(mnsz, mnsub) ! ! + + + VARIABLE DEFINITIONS + + + ! common / s1psd0 / & & aslsgm0, as0sgs0 ! This common block contains the state variables relating to ! some physical soil and layer properties. ! From s1phys.inc real asdsblk0(mnsz, mnsub) real asdwblk0(mnsz, mnsub) real asdpart0(mnsz, mnsub) real restrict_depth0(mnsub) real bedrock_depth0(mnsub) common / s1phys0 / & & asdsblk0, asdwblk0, asdpart0, & & restrict_depth0, bedrock_depth0 ! soil layer properties ! This common block contains the state variables relating to ! the WERM soil layer properties. ! From s1layr.inc integer nslay0(mnsub) real aszlyt0(mnsz+1, mnsub) real aszlyd0(mnsz, mnsub) real asfcle0(mnsz, mnsub) real watertable_depth0(mnsub) ! Not used right now common / s1layr0 / & & nslay0, & & aszlyt0, & & aszlyd0, & & asfcle0, & & watertable_depth0 ! soil chemical properties !This common block contains the variables representing the soil ! chemical properties in WERM for each soil layer. !From s1dbc.inc real as0ph0(mnsz, mnsub) real ascmg0(mnsz, mnsub) real ascna0(mnsz, mnsub) real asfcce0(mnsz, mnsub) real asfcec0(mnsz, mnsub) real asfesp0(mnsz, mnsub) real asfom0(0:mnsz, mnsub) real asfnoh0(mnsz,mnsub) real asfpoh0(mnsz,mnsub) real asfpsp0(mnsz,mnsub) real asfsmb0(mnsz,mnsub) real asftap0(mnsz,mnsub) real asftan0(mnsz,mnsub) real asmno30(mnsub) real asrsar0(mnsz,mnsub) real as0ec0(mnsz,mnsub) ! Not used - not read in Version 1.0 IFC file common / s1dbc0 / & & as0ph0, ascmg0, ascna0, asfcce0, asfcec0, asfesp0, & & asfom0, asfnoh0, asfpsp0, asfpoh0, asfsmb0, & & asftan0, asftap0, asmno30, asrsar0, as0ec0 ! This common block contains the variables representing intrinsic ! soil properties of particle size (sand, silt, and clay) which are ! used by HYDROLOGY for each soil layer. ! From s1dbh.inc ! real asfsan0(0:mnsz, mnsub) real asfsil0(0:mnsz, mnsub) real asfcla0(0:mnsz, mnsub) real asvroc0(0:mnsz, mnsub) real asfvcs0(mnsz, mnsub) real asfcs0(mnsz, mnsub) real asfms0(mnsz, mnsub) real asffs0(mnsz, mnsub) real asfvfs0(mnsz, mnsub) real asfwdc0(mnsz, mnsub) ! Not used - not input in Version 1.0 IFC file ! common / s1dbh0 / & & asfsan0, asfsil0, asfcla0, asvroc0, & & asfvcs0, asfcs0, asfms0, asffs0, asfvfs0, asfwdc0 ! This common block contains the variables representing the soil ! aggregate properties for each soil layer. ! From s1agg.inc real asdagd0(0:mnsz, mnsub) real aseags0(0:mnsz, mnsub) real aslagm0(0:mnsz, mnsub) real aslagn0(0:mnsz, mnsub) real aslagx0(0:mnsz, mnsub) real as0ags0(0:mnsz, mnsub) real aseagm0(mnsz, mnsub) real aseagmn0(mnsz, mnsub) real aseagmx0(mnsz, mnsub) real ask4d0(mnsz, mnsub) real aslmin0(mnsz, mnsub) real aslmax0(mnsz, mnsub) common / s1agg0 / & & asdagd0, aseags0, aslagm0, aslagn0, aslagx0, as0ags0, & & aseagm0, aseagmn0, aseagmx0, ask4d0, aslmin0, aslmax0 ! This common block contains the variables representing the soil ! surface properties for each subregion. ! From s1sgeo.inc real aszrgh0(mnsub) real aszrho0(mnsub) real asxrgw0(mnsub) real asxrgs0(mnsub) real asargo0(mnsub) real asxdks0(mnsub) real asxdkh0(mnsub) real as0rrk0(mnsub) real aslrrc0(mnsub) real aslrr0(mnsub) real aslrro0(mnsub) common / s1sgeo0 / & & aszrgh0, aszrho0, asxrgw0, asxrgs0, asargo0, asxdks0, & & asxdkh0, as0rrk0, aslrrc0, aslrr0, aslrro0 ! This common block contains the state variables relating to ! the daily hydrologic parameters. ! From h1hydro.inc real ahrwcdmx0(mnsz,mnsub) real aheaep0(mnsz,mnsub) real ah0cb0(mnsz,mnsub) real ahrsk0(mnsz,mnsub) real ahfwsf0(mnsub) real ahzsno0(mnsub) real ahtsno0(mnsub) real ahfsnfrz0(mnsub) real ahzirr0(mnsub) real ahzdmaxirr0(mnsub) real ahratirr0(mnsub) real ahdurirr0(mnsub) real ahlocirr0(mnsub) real ahminirr0(mnsub) integer am0monirr0(mnsub) real ahmadirr0(mnsub) integer ahndayirr0(mnsub) integer ahmintirr0(mnsub) real ahzoutflow0(mnsub) real ahzper0(mnsub) real ahzrun0(mnsub) real ahzinf0(mnsub) real ahzsmt0(mnsub) real ahzwid0(mnsub) real ahzeasurf0(mnsub) common / h1hydro0 / & & ahrwcdmx0, aheaep0, ah0cb0, ahrsk0, ahfwsf0, & & ahzsno0, ahtsno0, ahfsnfrz0, & & ahzirr0, ahzdmaxirr0, ahratirr0, ahdurirr0, & & ahlocirr0, ahminirr0, am0monirr0, ahmadirr0, & & ahndayirr0, ahmintirr0, ahzoutflow0, & & ahzper0, ahzrun0, ahzinf0, & & ahzsmt0, ahzwid0, ahzeasurf0 ! From 'h1db1.inc' ! This common block contains the variables representing the soil ! hydrologic properties in WERM for each soil layer real ahrwcr0(mnsz, mnsub) real ahrwcw0(mnsz, mnsub) real ahrwcf0(mnsz, mnsub) real ahrwcs0(mnsz, mnsub) real ahrwca0(mnsz, mnsub) ! already defined ! real ahrwc0(mnhhrs, mnsub) real ahzsnd0(mnsub) real ahrwc10(mnsz,mnsub) real ahfredsat0(mnsz, mnsub) ! common / h1db10 / & & ahrwcr0, ahrwcw0, ahrwcf0, ahrwcs0, ahrwca0,ahzsnd0, & & ahrwc10, ahfredsat0 ! ! + + + VARIABLE DEFINITIONS + + + ! ! ahrwcr - Soil layer residual water content (kg/kg) ! ahrwcw - Soil layer wilting point water content (kg/kg) ! ahrwcf - Soil layer field capacity water content (kg/kg) ! ahrwcs - Soil layer saturated water content (kg/kg) ! ahrwca - Available soil layer water content (kg/kg) ! ahrwc0 - surface soil water content (kg/kg) ! ahzsnd - snow depth (mm) ! ahrwc1 - Soil layer water content at 0.1 bar (kg/kg) ! ahfredsat - fraction of soil porosity that will be filled with water ! while wetting under normal field conditions due to entrapped air ! soil temperature ! From h1temp real ahtsav0(mnsz,mnsub) real ahtsmx0(mnsz,mnsub) real ahtsmn0(mnsz,mnsub) real ahfice0(mnsz,mnsub) common / h1temp0 / & & ahtsav0, ahtsmx0, ahtsmn0, ahfice0 ! + + + VARIABLE DEFINITIONS + + + ! ahtsav - Mean daily soil temperature (deg C) ! ahtsmx - Maximum daily soil temperature (deg C) ! ahtsmn - Minimum daily soil temperature (deg C) ! ahfice - fraction of soil water in layer which is frozen