| File |
Line number |
Procedure |
Code |
|
./pkg/land/land_impl_temp.F |
235 |
LAND_IMPL_TEMP |
dMsn = MIN( mSnow, eg(1)*recip_Lfreez ) |
|
./pkg/land/land_impl_temp.F |
236 |
LAND_IMPL_TEMP |
land_Pr_m_Ev(i,j,bi,bj) = dMsn/delT |
|
./pkg/land/land_impl_temp.F |
237 |
LAND_IMPL_TEMP |
land_hSnow(i,j,bi,bj) = (mSnow - dMsn)/land_rhoSnow |
|
./pkg/land/land_impl_temp.F |
238 |
LAND_IMPL_TEMP |
eg(1) = eg(1) - dMsn*land_Lfreez |
|
./pkg/land/land_impl_temp.F |
242 |
LAND_IMPL_TEMP |
& 1, dMsn, -dMsn*land_Lfreez, eg(1) |
|
./pkg/land/land_impl_temp.F |
297 |
LAND_IMPL_TEMP |
dMsn = mSnow |
|
./pkg/land/land_impl_temp.F |
313 |
LAND_IMPL_TEMP |
dMsn = ( fLoc+tg(1)/alpha )*delT*recip_Lfreez |
|
./pkg/land/land_impl_temp.F |
317 |
LAND_IMPL_TEMP |
& 2, dMsn, fLoc,tg(1)/alpha |
|
./pkg/land/land_impl_temp.F |
321 |
LAND_IMPL_TEMP |
dMsn = MIN( MAX(dMsn, 0. _d 0), mSnow ) |
|
./pkg/land/land_impl_temp.F |
326 |
LAND_IMPL_TEMP |
& + delT*fLoc - land_Lfreez*dMsn |
|
./pkg/land/land_impl_temp.F |
327 |
LAND_IMPL_TEMP |
land_Pr_m_Ev(i,j,bi,bj) = dMsn/delT |
|
./pkg/land/land_impl_temp.F |
328 |
LAND_IMPL_TEMP |
land_hSnow(i,j,bi,bj) = (mSnow - dMsn)/land_rhoSnow |
|
./pkg/land/land_impl_temp.F |
84 |
LAND_IMPL_TEMP |
_RL mSnow, dMsn, delT |
|
./pkg/land/land_stepfwd.F |
226 |
LAND_STEPFWD |
dMsn = enWfx*recip_Lfreez*land_deltaT |
|
./pkg/land/land_stepfwd.F |
227 |
LAND_STEPFWD |
IF ( dMsn .GE. mSnow ) THEN |
|
./pkg/land/land_stepfwd.F |
228 |
LAND_STEPFWD |
dMsn = mSnow |
|
./pkg/land/land_stepfwd.F |
234 |
LAND_STEPFWD |
& - dMsn / land_rhoSnow |
|
./pkg/land/land_stepfwd.F |
237 |
LAND_STEPFWD |
mPmE = mPmE + dMsn/land_deltaT |
|
./pkg/land/land_stepfwd.F |
241 |
LAND_STEPFWD |
& 4,dMsn,mPmE,land_hSnow(i,j,bi,bj),flxEngU(i,j) |
|
./pkg/land/land_stepfwd.F |
79 |
LAND_STEPFWD |
_RL mSnow, dMsn, snowPrec |