| File |
Line number |
Procedure |
Code |
|
./pkg/land/land_impl_temp.F |
142 |
LAND_IMPL_TEMP |
eg(k) = land_dzF(k)*land_enthalp(i,j,k,bi,bj) |
|
./pkg/land/land_impl_temp.F |
182 |
LAND_IMPL_TEMP |
eLoc = eg(1) + fLoc*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 |
191 |
LAND_IMPL_TEMP |
eg(2) = eg(2) + aLoc*tg(1) |
|
./pkg/land/land_impl_temp.F |
211 |
LAND_IMPL_TEMP |
& 'LAND_IMPL_TEMP: eg,mW=', eg,mW |
|
./pkg/land/land_impl_temp.F |
231 |
LAND_IMPL_TEMP |
eg(2) = eg(2) - aLoc*tg(2) |
|
./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 |
233 |
LAND_IMPL_TEMP |
IF ( eg(1)*mSnow .GT. 0. _d 0 ) THEN |
|
./pkg/land/land_impl_temp.F |
235 |
LAND_IMPL_TEMP |
dMsn = MIN( mSnow, eg(1)*recip_Lfreez ) |
|
./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 |
264 |
LAND_IMPL_TEMP |
& 'LAND_IMPL_TEMP: eg,mW=', eg,mW |
|
./pkg/land/land_impl_temp.F |
324 |
LAND_IMPL_TEMP |
eg(2) = eg(2) + aLoc*(tg(1)-tg(2)) |
|
./pkg/land/land_impl_temp.F |
325 |
LAND_IMPL_TEMP |
eg(1) = eg(1) - aLoc*(tg(1)-tg(2)) |
|
./pkg/land/land_impl_temp.F |
333 |
LAND_IMPL_TEMP |
eg(2) = eg(2) + aLoc*(tg(1)-tg(2)) |
|
./pkg/land/land_impl_temp.F |
334 |
LAND_IMPL_TEMP |
eg(1) = eg(1) - aLoc*(tg(1)-tg(2)) |
|
./pkg/land/land_impl_temp.F |
346 |
LAND_IMPL_TEMP |
land_enthalp(i,j,k,bi,bj) = eg(k)/land_dzF(k) |
|
./pkg/land/land_impl_temp.F |
81 |
LAND_IMPL_TEMP |
_RL tSurf, tg(land_nLev), eg(land_nLev) |