| File |
Line number |
Procedure |
Code |
|
./pkg/land/land_stepfwd.F |
181 |
LAND_STEPFWD |
enWfx = land_EnWFlux(i,j,bi,bj) |
|
./pkg/land/land_stepfwd.F |
187 |
LAND_STEPFWD |
& mPmE,enWfx,enGr1/land_deltaT,land_hSnow(i,j,bi,bj) |
|
./pkg/land/land_stepfwd.F |
192 |
LAND_STEPFWD |
IF ( enWfx.LT.0. ) THEN |
|
./pkg/land/land_stepfwd.F |
195 |
LAND_STEPFWD |
snowPrec = -enWfx -MAX( enGr1/land_deltaT, 0. _d 0 ) |
|
./pkg/land/land_stepfwd.F |
200 |
LAND_STEPFWD |
flxEngU(i,j) = enWfx + land_Lfreez*snowPrec |
|
./pkg/land/land_stepfwd.F |
226 |
LAND_STEPFWD |
dMsn = enWfx*recip_Lfreez*land_deltaT |
|
./pkg/land/land_stepfwd.F |
230 |
LAND_STEPFWD |
flxEngU(i,j) = enWfx - land_Lfreez*mSnow/land_deltaT |
|
./pkg/land/land_stepfwd.F |
78 |
LAND_STEPFWD |
_RL flxEngL, temp_af, temp_bf, mPmE, enWfx, enGr1 |