! This file defines a grid cell module gridmod use p1werm_def ! TYPE, PUBLIC :: GridCell ! real :: soilLossTot ! real :: soilLossCS ! real :: soilLossSusp ! real :: soilLossPM10 ! integer :: subrReg ! real :: barrRedu ! real :: hillRedu ! real :: soilFracDiamLt1 ! real :: soilFracDaiLt10 ! real :: soilFracDiamLt84 ! real :: soilFracDiamLt200 ! real :: soilFracDiamLt84mn ! real :: soilLayrRock ! real :: ridgHght ! real :: randRoug ! real :: soilCrstThck ! real :: soilCrstFrac ! real :: soilLoosMass ! real :: soilLoosCovFrac ! real :: soilMassAvalAggSurf ! real :: soilMassAvalDelt ! real :: soilMassAvalAggSurfmx ! real :: fricVelc ! real :: thrsFricVelc ! real :: thrsFricVelcTrap ! END TYPE TYPE GridCellRec real soilLossTot real soilLossCS real soilLossSusp real soilLossPM10 integer subrReg real barrRedu(8) real hillRedu real soilFracDiamLt1 real soilFracDiamLt10 real soilFracDiamLt84 real soilFracDiamLt200 real soilFracDiamLt84mn real soilLayrRock real ridgHght real randRoug real soilCrstThck real soilCrstFrac real soilLoosMass real soilLoosCovFrac real soilMassAvalAggSurf real soilMassAvalDelt real soilMassAvalAggSurfmx real fricVelc real thrsFricVelc real thrsFricVelcTrap END TYPE GridCellRec TYPE (GridCellRec) grid(0:maxGridPtsDir, 0:maxGridPtsDir) real soilFracDiamLt84ic real soilFracDiamLt10ic real ridgSpacParaWind(maxNumSubRegs) real fricVelcModGlob ! soilLossTot - Total soil loss at a grid point accumulated ! for a time period (kg/m^2) ! range values min max ! ------------ --------- --------- ! fixed 0 50 ! typical 0 2 ! ------------ --------- --------- ! soilLossCS - Total creep and saltation soil loss at grid ! point accumulated for a time period (kg/m^2) ! range values min max ! ------------ --------- --------- ! fixed 0 ! typical 0.1 ! ------------ --------- --------- ! soilLossSusp - Total suspension soil loss at grid point accumulated ! for a time period (kg/m^2) ! range values min max ! ------------ --------- --------- ! fixed 0 20 ! typical 0.1 5 ! ------------ --------- --------- ! soilLossPM10 - Total < 10 micron soil loss at grid point accumulated ! for a time period (kg/m^2) ! range values min max ! ------------ --------- --------- ! fixed 0 1.0 ! typical 0.01 0.1 ! ------------ --------- --------- ! ! ! subrReg - index of current subregion at grid point x,y ! ! range values min max ! ------------ --------- --------- ! fixed 2 30 ! typical 20 20 ! ------------ --------- --------- ! ! barrRedu - ratio of shelter to open, flat, field friction velocity ! at each grid point x,y as influenced by barriers. ! ! range values min max ! ------------ --------- --------- ! fixed 0 1 ! typical 0.1 1 ! ------------ --------- --------- ! ! ! hillRedu - ratio of hill to open, flat, field friction velocity ! at each grid point x,y as influenced by hills. ! ! range values min max ! ------------ --------- --------- ! fixed 0 2 ! typical .2 1.3 ! ------------ --------- --------- ! soilFracDiamLt1 - soil mass fraction in surface layer < 0.01 mm ! range values min max ! ------------ --------- --------- ! fixed 0 .1 ! typical 0 .04 ! ------------ --------- --------- ! soilFracDiamLt10 - soil mass fraction in surface layer < 0.1 mm ! range values min max ! ------------ --------- --------- ! fixed 0 1.0 ! typical 0.1 0.8 ! ------------ --------- --------- ! soilFracDiamLt84 - soil mass fraction in surface layer < 0.84 mm ! range values min max ! ------------ --------- --------- ! fixed 0 1.0 ! typical 0.2 0.8 ! ------------ --------- --------- ! soilFracDiamLt200 - soil mass fraction in surface layer < 2.00 mm ! range values min max ! ------------ --------- --------- ! fixed 0 1.0 ! typical 0.2 0.6 ! ------------ --------- --------- ! soilFracDiamLt84mn - "effective" soil mass fraction in surface layer < 0.84 mm ! needed for u* to be the threshold friction velocity. ! range values min max ! ------------ --------- --------- ! fixed 0 1.0 ! typical 0.2 0.8 ! ------------ --------- --------- ! soilFracDiamLt84ic - soil mass fraction in surface layer < 0.84 mm ! at start of erosion event ! range values min max ! ------------ --------- --------- ! fixed 0 1.0 ! typical 0.2 0.8 ! ------------ --------- --------- ! soilFracDiamLt10ic - soil mass fraction in surface layer < 0.10 mm ! at start of erosion event ! range values min max ! ------------ --------- --------- ! fixed 0 1.0 ! typical 0.2 0.8 ! ------------ --------- --------- ! soilLayrRock - soil rock volume in surface layer !edit ljh 1-22-05 ! range values min max ! ------------ --------- --------- ! fixed 0 1.0 ! typical 0. 0.8 ! ------------ --------- --------- ! ridgHght - Ridge height (mm) ! range values min max ! ------------ --------- --------- ! fixed 0 500 ! typical 0 200 ! ------------ --------- --------- ! ! randRoug - soil random roughness (mm) ! ! range values min max ! ------------ --------- --------- ! fixed 2 60 ! typical 2 30 ! ------------ --------- --------- ! ! soilCrstThck - Consolidated (crust) thickness (mm) ! range values min max ! ------------ --------- --------- ! fixed 0 50 ! typical 0 20 ! ------------ --------- --------- ! soilCrstFrac - soil fraction with crust cover (decimal) ! range values min max ! ------------ --------- --------- ! fixed 0.0 1.0 ! typical 0.1 1.0 ! ------------ --------- --------- ! soilLoosMass - mass of loose erodible soil on crust (kg/m^2) ! range values min max ! ------------ --------- --------- ! fixed 0 10 ! typical 0.2 2 ! ------------ --------- --------- ! soilLoosCovFrac - soil fraction covered with loose erodible soil ! on the crusted area ! range values min max ! ------------ --------- --------- ! fixed 0 1.0 ! typical 0 soilCrstFrac ! ------------ --------- --------- ! soilMassAvalAggSurf- mobile soil mass removable from aggregated surface ! by u* (kg/m^2). ! range values min max ! ------------ --------- --------- ! fixed 0 60 ! typical 0 5 ! ------------ --------- --------- ! soilMassAvalDelt- mobile soil mass change from erosion of aggregated ! surface (kg/m^2) (+)= gain, (-)= loss from surface. ! range values min max ! ------------ --------- --------- ! fixed 0 60 ! typical 0 5 ! ------------ --------- --------- ! fricVelc - Soil surface friction velocity (m/s) ! range values min max ! ------------ --------- --------- ! fixed 0 1.5 ! typical 0.30 0.6 ! ------------ --------- --------- ! ! thrsFricVelc - Soil surface threhold friction velocity for emission(m/s) ! range values min max ! ------------ --------- --------- ! fixed 0.35 1.75 ! typical 0.35 0.65 ! ------------ --------- --------- ! ! thrsFricVelcTrap - Soil surface threshold friction velocity for transport ! capacity (m/s) ! range values min max ! ------------ --------- --------- ! fixed 0.35 1.750 ! typical 0.35 0.65 ! ------------ --------- --------- end module gridmod