| File |
Line number |
Procedure |
Code |
|
./pkg/land/land_stepfwd.F |
195 |
LAND_STEPFWD |
snowPrec = -enWfx -MAX( enGr1/land_deltaT, 0. _d 0 ) |
|
./pkg/land/land_stepfwd.F |
197 |
LAND_STEPFWD |
snowPrec = MAX( 0. _d 0 , |
|
./pkg/land/land_stepfwd.F |
198 |
LAND_STEPFWD |
& MIN( snowPrec*recip_Lfreez, mPmE ) ) |
|
./pkg/land/land_stepfwd.F |
199 |
LAND_STEPFWD |
mPmE = mPmE - snowPrec |
|
./pkg/land/land_stepfwd.F |
200 |
LAND_STEPFWD |
flxEngU(i,j) = enWfx + land_Lfreez*snowPrec |
|
./pkg/land/land_stepfwd.F |
201 |
LAND_STEPFWD |
hNewSnow = land_deltaT * snowPrec / land_rhoSnow |
|
./pkg/land/land_stepfwd.F |
218 |
LAND_STEPFWD |
& 3,snowPrec,mPmE,hNewSnow,land_hSnow(i,j,bi,bj) |
|
./pkg/land/land_stepfwd.F |
79 |
LAND_STEPFWD |
_RL mSnow, dMsn, snowPrec |