| File |
Line number |
Procedure |
Code |
|
./pkg/land/land_impl_temp.F |
135 |
LAND_IMPL_TEMP |
tSurf = land_skinT(i,j,bi,bj) |
|
./pkg/land/land_impl_temp.F |
138 |
LAND_IMPL_TEMP |
fLoc = sFlx(i,j,1)+bLoc*tSurf |
|
./pkg/land/land_impl_temp.F |
152 |
LAND_IMPL_TEMP |
& 'LAND_IMPL_TEMP: 0 , ts,tg1&2,mSw=',0,tSurf,tg,mSnow |
|
./pkg/land/land_impl_temp.F |
165 |
LAND_IMPL_TEMP |
tSurf = ( tg(1) + alpha*fLoc ) * beta |
|
./pkg/land/land_impl_temp.F |
169 |
LAND_IMPL_TEMP |
& 'LAND_IMPL_TEMP: 1 , ts,tg1&2,mW1=',1,tSurf,tg,mW(1) |
|
./pkg/land/land_impl_temp.F |
177 |
LAND_IMPL_TEMP |
& .AND. tmpFlag .AND. tSurf*mSnow .LE. 0. _d 0 ) THEN |
|
./pkg/land/land_impl_temp.F |
187 |
LAND_IMPL_TEMP |
tSurf = ( tg(1) + alpha*fLoc ) * beta |
|
./pkg/land/land_impl_temp.F |
188 |
LAND_IMPL_TEMP |
IF ( tSurf*mSnow .LE. 0. _d 0 ) THEN |
|
./pkg/land/land_impl_temp.F |
207 |
LAND_IMPL_TEMP |
& tg,tSurf,mSnow |
|
./pkg/land/land_impl_temp.F |
223 |
LAND_IMPL_TEMP |
& .AND. tmpFlag .AND. tSurf*mSnow .LE. 0. _d 0 ) THEN |
|
./pkg/land/land_impl_temp.F |
228 |
LAND_IMPL_TEMP |
tSurf = alpha*fLoc * beta |
|
./pkg/land/land_impl_temp.F |
229 |
LAND_IMPL_TEMP |
IF ( tSurf*mSnow .LE. 0. _d 0 ) THEN |
|
./pkg/land/land_impl_temp.F |
260 |
LAND_IMPL_TEMP |
& tg,tSurf,mSnow |
|
./pkg/land/land_impl_temp.F |
279 |
LAND_IMPL_TEMP |
IF ( tmpFlag .AND. tSurf*mSnow .GT. 0. _d 0 ) THEN |
|
./pkg/land/land_impl_temp.F |
284 |
LAND_IMPL_TEMP |
& 1, sFlx(i,j,0), fLoc, fLoc-bLoc*tSurf |
|
./pkg/land/land_impl_temp.F |
286 |
LAND_IMPL_TEMP |
tSurf = 0. _d 0 |
|
./pkg/land/land_impl_temp.F |
343 |
LAND_IMPL_TEMP |
& dTsurf(i,j) = tSurf - land_skinT(i,j,bi,bj) |
|
./pkg/land/land_impl_temp.F |
344 |
LAND_IMPL_TEMP |
land_skinT(i,j,bi,bj) = tSurf |
|
./pkg/land/land_impl_temp.F |
352 |
LAND_IMPL_TEMP |
& tSurf, tg, dTsurf(i,j) |
|
./pkg/land/land_impl_temp.F |
81 |
LAND_IMPL_TEMP |
_RL tSurf, tg(land_nLev), eg(land_nLev) |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
19 |
CHEAPAML_COARE3_FLUX |
I tSurf, windSq, |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
44 |
CHEAPAML_COARE3_FLUX |
_RL tSurf (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
79 |
CHEAPAML_COARE3_FLUX |
tsw = tSurf(i,j) |