| File |
Line number |
Procedure |
Code |
|
./pkg/aim_v23/aim_aim2land.F |
102 |
AIM_AIM2LAND |
IF ( land_skinT(i,j,bi,bj).LT. 0. _d 0 .OR. |
|
./pkg/aim_v23/aim_land_impl.F |
103 |
AIM_LAND_IMPL |
IF ( land_skinT(i,j,bi,bj).LT. 0. _d 0 .OR. |
|
./pkg/aim_v23/aim_land2aim.F |
110 |
AIM_LAND2AIM |
land_skinT(i,j,bi,bj) = land_groundT(i,j,1,bi,bj) |
|
./pkg/aim_v23/aim_land2aim.F |
96 |
AIM_LAND2AIM |
aimTld(i,j) = land_skinT(i,j,bi,bj)+celsius2K |
|
./pkg/land/land_do_diags.F |
110 |
LAND_DO_DIAGS |
CALL TIMEAVE_CUMULATE(land_sTtave, land_skinT ,1, |
|
./pkg/land/land_do_diags.F |
75 |
LAND_DO_DIAGS |
& land_skinT(1-OLx,1-OLy,bi,bj), bi,bj,1,iterWr,myThid) |
|
./pkg/land/land_diagnostics_fill.F |
52 |
LAND_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(land_skinT,'GrdSurfT',0,1,1,bi,bj,myThid) |
|
./pkg/land/land_impl_temp.F |
135 |
LAND_IMPL_TEMP |
tSurf = land_skinT(i,j,bi,bj) |
|
./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_write_pickup.F |
69 |
LAND_WRITE_PICKUP |
& land_skinT, k+1,myIter,myThid) |
|
./pkg/land/land_ini_vars.F |
141 |
LAND_INI_VARS |
land_skinT(i,j,bi,bj) = land_groundT(i,j,1,bi,bj) |
|
./pkg/land/land_ini_vars.F |
75 |
LAND_INI_VARS |
land_skinT (i,j,bi,bj) = 0. _d 0 |
|
./pkg/land/land_albedo.F |
65 |
LAND_ALBEDO |
Tsf = land_skinT(i,j,bi,bj) |
|
./pkg/land/land_monitor.F |
182 |
LAND_MONITOR |
I land_skinT, land_frc, maskH, rA, yC, locDr, |
|
./pkg/land/LAND_VARS.h |
27 |
NO PROCEDURE |
& land_skinT, land_hSnow, land_snowAge, |
|
./pkg/land/LAND_VARS.h |
33 |
NO PROCEDURE |
_RL land_skinT (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/land/land_read_pickup.F |
60 |
LAND_READ_PICKUP |
CALL MDSREADFIELD(fn,prec,'RL', 1, land_skinT, k+1, myThid) |
|
./pkg/land/land_stepfwd.F |
425 |
LAND_STEPFWD |
land_skinT(i,j,bi,bj) = MIN(land_skinT(i,j,bi,bj), 0. _d 0) |
|
./pkg/land/land_stepfwd.F |
427 |
LAND_STEPFWD |
land_skinT(i,j,bi,bj) = land_groundT(i,j,1,bi,bj) |
|
./pkg/land/land_stepfwd.F |
434 |
LAND_STEPFWD |
land_skinT(i,j,bi,bj) = land_groundT(i,j,1,bi,bj) |