c begin include file cwint.inc c + + + COMMON BLOCK DESCRIPTION + + + c + + + INSERT DESCRIPTION HERE + + + c common /wint/ deglat,azm(mxplan),snodpy(mxplan),snodpt(mxplan), 1 drift,wmelt(mxplan),snow,densg(mxplan), 2 wincnt(mxplan),frdp(mxplan),thdp(mxplan), 3 cycle(mxplan),frozen(mxnsl,mxplan),tfrdp(mxplan), 4 tthawd(mxplan),resdep(mxplan),surtmp(24),icap, 5 tilld(mxplan),amtfrz(mxplan),wftill(mxplan), 6 wfutil(mxplan),pftill(mxplan),pfwutl(mxplan), 7 uftild(mxplan),wfttil(mxplan),wftutl(mxplan), 8 pfttil(mxplan),pftutl(mxplan),fdrift,gdrift, 9 hrmlt(24,mxplan),ufutld(mxplan),wntflg(mxplan), 1 hrthaw(24,mxplan),usatkt(mxplan), 2 usatku(mxplan),tens(mxplan), 3 wntdur,wnttim,sns,snsn,rans,wdayct(mxplan), 4 etm(mxplan) c + + + VARIABLE DECLARATIONS + + + real deglat,azm,snodpy,snodpt,drift,wmelt,snow, 1 densg,frdp,thdp,frozen,tfrdp,tthawd,resdep, 2 surtmp,icap,tilld,amtfrz,wftill,wfutil,pftill, 3 pfwutl,uftild,wfttil,wftutl,pfttil,pftutl, 4 fdrift,gdrift,hrmlt,ufutld,hrthaw,usatkt,usatku, 5 wntdur,wnttim,sns,snsn,rans,etm integer wincnt,cycle,wntflg,tens,wdayct c + + + VARIABLE DEFINITIONS + + + c deglat : Latitude of the slope segment (Degrees). c azm : Represents the aspect of the slope segment or c which direction the slope is facing (Deg from N). c snodpt(mxplan): Snow pack depth (m). c drift : Amount of snowdrift occurring (m). c wmelt(mxplan) : Amount of snow melt occurring in a day on an OFE c calculated in units of water melted (m). c snow : Amount of daily precip in the form of snow (m). c densg(mxplan) : Density of the snow pack (Kg/m^3). c wincnt(mxplan): This variable currently remains unused. c frdp(mxplan) : Depth of the frost layer (m). c thdp(mxplan) : Thaw depth of the frozen-layer system (m). c cycle(mxplan) : Counter of # of freeze/thaw cycles occuring (*). c frozen : Fraction of the soil layer frozen (m/m). c tfrdp(mxplan) : Depth of the top frost layer (m). c tthawd(mxplan): Top thaw depth (m). c resdep(mxplan): Depth of the residue layer on slope segment (m) c surtmp(24) : Hourly calculated temperature at soil surface (C). c icap : Infiltration capacity of water given a soil (m^3). c tilld(mxplan) : Tillage depth of the soil layer (m). c amtfrz(mxplan): Amount of frozen water available in the soil (m). c wftill(mxplan): Amount of frozen water in the tilled layer (m). c wfutil(mxplan): Amount of frozen water in the untilled layer (m). c pftill(mxplan): Percnt froze H2O in the tilled soil layer (%/100). c pfwutl(mxplan): Percnt froze H2O in untilled soil layer (%/100). c wfttil(mxplan): Amount frozen H2O in the top-tilled soil layr (m). c wftutl(mxplan): Amount frozen H2O in top-untilled layer (m). c pfttil(mxplan): Percnt froze H2O in top-tilled layer (%/100). c pftutl(mxplan): Percnt froze H2O in top-untilled layer (%/100). c gdrft : Ground drifting snow amount (m/hr). c fdrft : Falling drift amount (m/hr). c hrmlt(24,mxplan): Hourly melt amounts throughout the day. Given c for each OFE in units of meters of water. (m) c ufutld(mxplan): Unfrozen untilled soil depth (m). c wntflg(mxplan): Flag used to determine if previous day was winter (*). c hrthaw(24,mxplan): Hourly thaw depth values throughout the day (m/hr). c usatkt(mxplan): Unsat hydraulic conductivity of tild layer. (m/hr) c usatku(mxplan): Unsat hydraulic conductvty of untild layer. (m/hr) c tens(mxplan) : Water tension value to be used in QWET calcs. (m) c wntdur : Duration of the winter rain/snowfall event. (hrs) c wnttim : Time of day that the precipitation began. (hr) c sns : Snow and snow on the ground (mm). c snsn : Snow and no snow on the ground (mm). c rans : Rain and no snow on the ground (mm). c wdayct(mxplan): Integer hours for snow consolidation counter (*). c etm(mxplan) : Daily sublimation of snow from melt equations (m/day). c*********************************************************************** c * c THE FOLLOWING ILLUSTRATES THE VARIABLE NAMES... * c * c*********************************************************************** c The Frozen Layered System: c -------------------------- c ********************************* - Snow depth c c c _________________________________ - Residue depth c XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX - Residue c ================================= - Surface c c c --------------------------------- - Top Thaw depth c c --------------------------------- - Top Frost depth c c c --------------------------------- - Thaw depth c c --------------------------------- - Frost depth c c c cNOTES: c====== c c Tilled Layer - Depth from soil surface to the primary tillage c ------------ depth for the season previous. c c Untilled Layer - Depth from bottom of the tilled layer to the c -------------- stable soil depth. c c Stable Soil Depth - Depth @ which soil temperature is stable... c ----------------- this model assumes this depth is 1 meter below c the lowest 0-degree isotherm depth. If no c frost is present, this depth is left at 1 m. c end include file cwint.inc