module soilmod use p1werm_def !maxSoilLayr and maxNumSubRegs defined here type SoilLayerRec ! s1agg ! This common block contains the variables representing the soil ! aggregate properties for each soil layer. ! + + + VARIABLE DEFINITIONS + + + ! for each subregion, the following variables are defined as: ! AggDen - Soil layer aggregate density (Mg/m^3) ! AggSta - Soil layer dry aggregate stability (J/m^2) ! AggGMD - Soil layer aggregate size geometric mean dia. (mm) ! AggMinSiz - Minimum aggregate size (mm) ! AggMaxSiz - Maximum aggregate size (mm) ! AggGSD - Soil layer aggregate size geometric standard dev. (mm) ! aseagm - soil layer mean aggregate stability (J/m^2) ! aseagmn - soil layer minimum aggregate stability ! aseagmx - soil layer maximum aggregate stability ! k4d - soil layer drying stability coefficient ! aslmin - min values of geom. mean agg. diameter (eq. S-45, S-46) ! aslmax - max values of geom. mean agg. diameter (eq. S-45, S-46) real aggDen real aggSta real aggGMD real aggMinSiz real aggMaxSiz real aggGSD real aseagm real aseagmn real aseagmx real ask4d real aslmin real aslmax ! ------------------------------------------------------------------ ! file 's1dbc.inc' ! This common block contains the variables representing the soil ! chemical properties in WERM for each soil layer. ! + + + VARIABLE DEFINITIONS + + + ! as0ph - Soil layer pH ! ascmg - Soil layer magnesium ion concentration (cmol/kg) ! ascna - Soil layer sodium ion concentration (cmol/kg) ! asfcec - Soil layer cation exchange capacity (cmol/kg) (meq/100g) ! asfcce - Soil layer calcium carbonate equivalent (dec %) ! asfesp - Soil layer exchangeable sodium percentage (dec %) ! asfom - Soil layer organic matter content (Mg/Mg) ! asfnoh - Soil layer organic N content of the humus (mg/kg) ! asfpoh - Soil layer organic P content of the humus (mg/kg) ! asfpsp - Fraction of fertilizer P that is labile (dec.) ! asfsmb - Sum of bases (cmol/kg) ! asftap - Soil layer available Phosphorus (kg/ha) ! asftan - Soil layer available Nitrogen (kg/ha) ! asrsar - Soil layer sodium adsorption ratio (cmol/kg) ! as0ec - Soil layer electrical conductivity (S/m) ! ------------------------------------------------------------------ ! + + + VARIABLE DECLARATIONS + + + real as0ph real ascmg real ascna real asfcce real asfcec real asfesp real asfom real asfnoh real asfpoh real asfpsp real asfsmb real asftap real asftan real asrsar real as0ec ! ------------------------------------------------------------------ ! file 's1dbh.inc' ! 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. ! + + + VARIABLE DEFINITIONS + + + ! asoilLayrSand - Soil layer sand content (Mg/Mg) ! asoilLayrSilt - Soil layer silt content (Mg/Mg) ! asoilLayrClay - Soil layer clay content (Mg/Mg) ! asoilLayrRock - Soil layer coarse fragments > 2mm (m^3/m^3) ! asfvcs - Soil layer content of very coarse sand 1.0-x.0 mm (Mg/Mg) ! asfcs - Soil layer content of coarse sand 0.5-1.0 mm (Mg/Mg) ! asfms - Soil layer content of medium sand 0.25-0.5 mm (Mg/Mg) ! asffs - Soil layer content of fine sand 0.1-0.25 mm (Mg/Mg) ! asfvfs - Soil layer content of very fine sand sand 0.05-0.1 mm (Mg/Mg) ! asfwdc - Soil layer content of water dispersible clay (Mg/Mg) ! real fracSand real fracSilt real fracClay real fracRock real asfvcs real asfcs real asfms real asffs real fracVeryFineSand real asfwdc ! ------------------------------------------------------------------ ! file 's1layr.inc' ! This common block contains the state variables relating to ! the WERM soil layer properties. ! + + + VARIABLE DEFINITIONS + + + ! aszlyt - Soil layer thicknesses for each subregion (mm) ! aszlyd - Depth to bottom of each soil layer for each subregion (mm) ! asfcle - Linear extensibility ((Mg/m^3)/(Mg/m^3)) ! watertable_depth - depth to watertable (mm) ! + + + VARIABLE DECLARATIONS + + + real aszlyt real aszlyd real asfcle ! ------------------------------------------------------------------ ! file 's1phys.inc' ! This common block contains the state variables relating to ! some physical soil and layer properties. ! + + + VARIABLE DEFINITIONS + + + ! asdblk - Soil layer bulk density (Mg/m^3) ! asdsblk - Soil layer settled bulk density (Mg/m^3) ! asdwblk - Soil layer bulk density at 1/3 bar (Mg/m^3) ! asdblk0 - Soil layer bulk density from previous day (hydro uses decreases to indicate tillage) ! asdpart - Soil layer particle density adjusted from mineral only ! to include organic matter content ! + + + VARIABLE DECLARATIONS + + + real asdblk real asdsblk real asdwblk real asdblk0 real asdpart ! ------------------------------------------------------------------ ! file 's1psd.inc' ! This common block contains the variables representing the soil ! particle distribution parameters for each soil layer. ! ! + + + VARIABLE DEFINITIONS + + + ! aslsgm - Soil layer particle geometric mean dia. (mm) ! as0sgs - Soil layer particle size geometric standard dev. (mm) ! + + + VARIABLE DECLARATIONS + + + real aslsgm real as0sgs ! ------------------------------------------------------------------ !$Author: wjr $ !$Date: 2012-03-30 09:46:26 -0500 (Fri, 30 Mar 2012) $ !$Revision: 12162 $ !$HeadURL: https://svn.weru.ksu.edu/weru/weps1/trunk/weps.src/src/inc/h1db1.inc $ ! ------------------------------------------------------------------ ! file 'h1db1.inc' ! ! This common block contains the variables representing the soil ! hydrologic properties in WERM for each soil layer. ! ! Parameter include files: p1werm.inc ! ! + + + VARIABLE DECLARATIONS + + + ! real ahrwcr real asoilLayrWiltPt real ahrwcf real ahrwcs real asoilSurfAvalWatrCont real asoilSurfWatrCont real asoilSurfSnowDept real ahrwc1 real ahfredsat ! ! ! + + + VARIABLE DEFINITIONS + + + ! ! ahrwcr - Soil layer residual water content (kg/kg) ! asoilLayrWiltPt - 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) ! asoilSurfAvalWatrCont - Available soil layer water content (kg/kg) ! asoilSurfWatrCont - surface soil water content (kg/kg) ! asoilSurfSnowDept - 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 ! ------------------------------------------------------------------ end type SoilLayerRec type SoilRegionRec ! asmno3 - Amount of N03 Nitrogen applied as fertilizer (kg/ha) real asmno3 ! nslay - Number of soil layers being used for each subregion. integer nslay ! restrict_depth - depth to impermeable layer/restricting zone (mm) ! bedrock_depth - depth to bedrock (mm) ! + + + VARIABLE DECLARATIONS + + + real restrict_depth real bedrock_depth ! This common block contains the variables representing the soil ! surface properties for each subregion. ! Parameter include files: p1werm.inc ! + + + VARIABLE DEFINITIONS + + + ! orgRidgHght - Ridge height (mm) ! aszrho - original ridge height, after tillage, mm. ! orgRidgWid - Ridge width (mm) ! orgRidgSpac - Ridge spacing (mm) ! orgRidgOrient - Ridge orientation (degrees) ! orgDikeSpac - Dike spacing (mm) ! orgDikeHght - Dike Height (mm) ! as0rrk - Random roughness parameter K (shape) ! aslrrc - Random roughness parameter C (scale) ! orgRandRoug - Allmaras random roughness parameter (mm) ! aslrro - original random roughness height, after tillage, mm ! + + + VARIABLE DECLARATIONS + + + real orgRidgHght ! real aszrho ! not used in erosion real orgRidgWid real orgRidgSpac real orgRidgOrient real orgDikeSpac real orgDikeHght real as0rrk ! not used in erosion real aslrrc real orgRandRoug real aslrro ! not used in erosion ! file 's1surf.inc' ! ! This common block contains the state variables relating to ! the surface soil properties and pm10 fractions in suspended soil ! ! Parameter include files: p1werm.inc, p1const.inc ! ! + + + VARIABLE DEFINITIONS + + + ! asoilCrstThck - Soil crust thickness (mm) ! asoilCrstFrac - Fraction of soil surface covered by crust (m^2/m^2) ! asoilLoosMass - Amount of loose erodible material on crusted fraction ! of soil surface (kg/m^2). If there is no crust present, ! this variable has no valid value. The units are ! kg of loose erodible material per m^2 of crusted ! surface area (not total surface area). ! asoilLoosCovFrac - Fraction of crusted soil surface containing loose erodible ! material surface (m^2/m^2). If there is no crust present, this variable ! has no valid value. The units are m^2 of crusted surface area containing ! loose erodible material per m^2 of crusted surface area ! (not total surface area). ! asoilCrstDens - Soil crust density (Mg/m^2) ! asoilCrstStab - Soil crust stability (J/m^2) ! asfald - Dry soil albedo ! asfalw - Wet soil albedo ! acoefAbraAgg - coeffienct of abrasion for aggregates (1/m) ! acoefAbraCrst - coeffienct of abrasion for crust (1/m) ! asoilPM10FracAbraSusp - soil fraction pm10 in abraded suspension ! asoilPM10FracEmitSusp - soil fraction pm10 in emitted suspension ! asoilPM10FracSaltBrkSusp - soil fraction pm10 in saltation breakage suspension ! ! + + + VARIABLE DECLARATIONS + + + real asoilCrstThck real asoilCrstFrac real asoilLoosMass real asoilLoosCovFrac real asoilCrstDens real asoilCrstStab real asfald real asfalw real acoefAbraAgg real acoefAbraCrst real asoilPM10FracAbraSusp real asoilPM10FracEmitSusp real asoilPM10FracSaltBrkSusp ! ------------------------------------------------------------------ ! Bring in the soil layer data TYPE (SoilLayerRec) SoilLayerData(maxSoilLayr) end type SoilRegionRec TYPE (SoilRegionRec) SoilRegionData(maxNumSubRegs) end module