File |
Line number |
Procedure |
Code |
./pkg/land/land_impl_temp.F |
127 |
LAND_IMPL_TEMP |
delT = land_deltaT |
./pkg/land/land_impl_temp.F |
158 |
LAND_IMPL_TEMP |
tg(1) = ( cg(1)*tg(1) + fLoc*delT*beta |
./pkg/land/land_impl_temp.F |
161 |
LAND_IMPL_TEMP |
& / ( cg(1) + aLoc + bLoc*delT*beta |
./pkg/land/land_impl_temp.F |
182 |
LAND_IMPL_TEMP |
eLoc = eg(1) + fLoc*delT*beta |
./pkg/land/land_impl_temp.F |
183 |
LAND_IMPL_TEMP |
cLoc = cg(1) + aLoc + bLoc*delT*beta |
./pkg/land/land_impl_temp.F |
190 |
LAND_IMPL_TEMP |
eg(1) = eLoc - (aLoc + bLoc*delT*beta)*tg(1) |
./pkg/land/land_impl_temp.F |
232 |
LAND_IMPL_TEMP |
eg(1) = eg(1) + aLoc*tg(2) + fLoc*delT*beta |
./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 |
293 |
LAND_IMPL_TEMP |
& + delT*fLoc - land_Lfreez*mSnow + aLoc*tg(2) |
./pkg/land/land_impl_temp.F |
304 |
LAND_IMPL_TEMP |
& / ( cg(1)+aLoc + delT/alpha - aLoc*aLoc/(cg(2)+aLoc) ) |
./pkg/land/land_impl_temp.F |
308 |
LAND_IMPL_TEMP |
tg(1) = cg(1)*tg(1) / ( cg(1)+aLoc + delT/alpha ) |
./pkg/land/land_impl_temp.F |
313 |
LAND_IMPL_TEMP |
dMsn = ( fLoc+tg(1)/alpha )*delT*recip_Lfreez |
./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 |
335 |
LAND_IMPL_TEMP |
& + delT*(fLoc-bLoc*Tsurf) |
./pkg/land/land_impl_temp.F |
84 |
LAND_IMPL_TEMP |
_RL mSnow, dMsn, delT |