!*==aa0012.spg processed by SPAG 6.70Rc at 21:09 on 9 Dec 2012 use c_decfiles implicit none !*--AA00124 ! !*** Start of declarations rewritten by SPAG ! ! PARAMETER definitions ! integer,parameter :: lui1 = 141,lui2 = 102,lui3 = 103,lui4 = 104, & & lui5 = 105,luicli = 146,luiwin = 147, & & luiwsd = 148,luimandate = 149,luo1 = 111, & & luo2 = 112,luo3 = 113,luo4 = 114,luo5 = 115, & & luolog = 116,luodbg = 117,luoplt = 118, & & luocrop = 17,luoshoot = 62,luoseason = 59, & & luoinpt = 60,luoallcrop = 61,luod_above = 18,& & luod_below = 19,luocrp1 = 121,luobio1 = 125, & & luosci = 153,luostir = 154,luohydro = 151, & & luohlayers = 152,luowater = 12, & & luoharvest_si = 126,luoharvest_en = 127, & & luohydrobal = 129,luoharvest_calib = 130, & & luoharvest_calib_parm = 131,luogui1 = 52, & & luomandate = 81,luo_egrd = 201, & & luo_erod = 202,luo_emit = 203,luo_sgrd = 204,& & luosoilsurf = 160,luosoillay = 161, & & luoci = 162 ! !*** End of declarations rewritten by SPAG ! ! + + + VARIABLE DEFINITIONS + + + ! for each of the residue age pools and each subregion ! admstandstem - standing stem mass (kg/m^2) ! admstandleaf - standing leaf mass (kg/m^2) ! admstandstore - standing storage mass (kg/m^2) ! admflatstem - flat stem mass (kg/m^2) ! admflatleaf - flat leaf mass (kg/m^2) ! admflatstore - flat storage mass (kg/m^2) ! admflatrootstore - flat storage root mass (kg/m^2) ! admflatrootfiber - flat fibrous root mass (kg/m^2) ! admbgstemz - buried stem mass by layer (kg/m^2) ! admbgleafz - buried leaf mass by layer (kg/m^2) ! admbgstorez - buried (from above ground) storage mass by layer (kg/m^2) ! admbgrootstorez - buried storage root mass by layer (kg/m^2) ! admbgrootfiberz - buried fibrous root mass by layer (kg/m^2) ! adzht - Residue height (m) ! addstm - Number of residue stems per unit area (#/m^2) ! adxstmrep - a representative diameter so that addstm*adxstmrep*adzht=adrsai ! adgrainf - internally computed grain fraction of reproductive mass ! adhyfg - flag indicating the part of plant to apply the "grain fraction", ! GRF, to when removing that plant part for yield ! 0 GRF applied to above ground storage (seeds, reproductive) ! 1 GRF times growth stage factor (see growth.for) applied to above ground storage (seeds, reproductive) ! 2 GRF applied to all aboveground biomass (forage) ! 3 GRF applied to leaf mass (tobacco) ! 4 GRF applied to stem mass (sugarcane) ! 5 GRF applied to below ground storage mass (potatoes, peanuts) ! admbgstem - buried residue stem mass (kg/m^2) ! admbgleaf - buried residue leaf mass (kg/m^2) ! admbgstore - buried residue storage mass (kg/m^2) ! admbgrootstore - buried storage root mass (kg/m^2) ! admbgrootfiber - buried fibrous root mass (kg/m^2) ! adm - Total residue mass (standing + flat + roots + buried) (kg/m^2) ! admst - Standing residue mass (standstem + standleaf + standstore) (kg/m^2) ! admf - Flat residue mass (flatstem + flatleaf + flatstore) (kg/m^2) ! admrt - Buried residue root mass (rootfiber + rootstore)(kg/m^2) ! admrtz - Buried residue root mass by soil layer (kg/m^2) ! admbg - Buried residue mass (kg/m^2) Excludes root mass below the surface. ! admbgz - Buried residue mass by soil layer (kg/m^2) ! adrsai - Residue stem area index (m^2/m^2) ! adrlai - Residue leaf area index (m^2/m^2) ! adrsaz - Residue stem area index by height (1/m) ! adrlaz - Residue leaf area index by height (1/m) ! adffcv - Residue biomass cover - flat (m^2/m^2) ! adfscv - Residue biomass cover - standing (m^2/m^2) ! adftcv - Residue biomass cover - total (m^2/m^2) ! (adffcv + adfscv) ! adfcancov - fraction of soil surface covered by residue canopy (m^2/m^2) ! adrcd - effective Biomass silhouette area (SAI+LAI) (m^2/m^2) ! (combination of leaf area and stem area indices) ! addstmtot - total number of residue stems per unit area (#/m^2) ! adzht_ave - Weighted ave height of residue across all residue pools (m) ! admtot - Total residue mass across pools (standing + flat + roots + buried) (kg/m^2) ! admtotto4 - Total residue mass across pools (standing + flat + roots + buried to a 4 inch depth) (kg/m^2) ! admsttot - Standing residue mass across pools (standstem + standleaf + standstore) (kg/m^2) ! admftot - Flat residue mass across pools (flatstem + flatleaf + flatstore) (kg/m^2) ! admbgtot - Buried residue mass across pools (kg/m^2) ! admbgtotto4 - Buried (to a 4 inch depth) residue mass across pools (kg/m^2) ! admrttot - Buried residue root mass across pools (kg/m^2) ! admrttotto4 - Buried (to a 4 inch depth) residue root mass across pools (kg/m^2) ! adrsaitot - total of stem area index across pools (m^2/m^2) ! adrlaitot - total of leaf area index across pools (m^2/m^2) ! adrcdtot - effective Biomass silhouette area across pools (SAI+LAI) (m^2/m^2) ! (combination of leaf area and stem area indices) ! adffcvtot - Residue biomass cover across pools - flat (m^2/m^2) ! adfscvtot - Residue biomass cover across pools - standing (m^2/m^2) ! adftcvtot - Residue biomass cover across pools - total (m^2/m^2) ! (adffcvtot + adfscvtot) ! adftcancov - fraction of soil surface covered by residue canopy across pools (m^2/m^2) !$Author: fredfox $ !$Date: 2012-11-30 18:44:29 -0600 (Fri, 30 Nov 2012) $ !$Revision: 12462 $ !$HeadURL: https://eweru-dev1.eweru.ksu.edu/svn/code/weps1/branches/WEPS_F90_update/weps.src/src/inc/file.inc $ ! ! ! ! ! ! ! ! !Logical Unit number for "mandate.man" (MCREW management) file ! ! ! ! ! ! ! ! ! these are for debugging the crop and decomp biomass variables - LEW ! !Above ground decomp output ! ! made an array of max 30. Any larger and it stomps on another logical unit number ! the unit number is now set in openfils.for ! parameter (luodec1=170) ! parameter (luodec30=199) ! make common to preserve values after files are opened ! logical unit number for soil conditioning index out files ! these are for debugging the hydrology variables ! new output units for general information ! new output unit for calibration information ! new output unit for GUI required calibration information !Logical Unit number for "gui1_data.out" file !Logical Unit number for "mandate.out" file ! New output units for erosion submodel !Below ground decomp output ! For daily grid output ! For daily erosion summary output ! For subdaily erosion summary output ! Logical Unit number for "soilsurf.out" file ! Logical Unit number for "soilsurf.out" file ! Logical Unit number for "ci.out" file