| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/thsice_impl_temp.F |
106 |
THSICE_IMPL_TEMP |
O dTsurf(i,j), flxtmp, evptmp, |
|
./pkg/thsice/thsice_impl_temp.F |
10 |
THSICE_IMPL_TEMP |
O dTsurf, |
|
./pkg/thsice/thsice_impl_temp.F |
119 |
THSICE_IMPL_TEMP |
& Tsf, Tice, dTsurf(i,j) |
|
./pkg/thsice/thsice_impl_temp.F |
124 |
THSICE_IMPL_TEMP |
dTsurf(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_impl_temp.F |
43 |
THSICE_IMPL_TEMP |
_RL dTsurf (sNx,sNy) |
|
./pkg/thsice/thsice_slab_ocean.F |
103 |
THSICE_SLAB_OCEAN |
dTsurf(i,j) = tOceMxL(i,j,bi,bj) - dTsurf(i,j) |
|
./pkg/thsice/thsice_slab_ocean.F |
10 |
THSICE_SLAB_OCEAN |
O dTsurf, |
|
./pkg/thsice/thsice_slab_ocean.F |
43 |
THSICE_SLAB_OCEAN |
_RL dTsurf(sNx,sNy) |
|
./pkg/thsice/thsice_slab_ocean.F |
65 |
THSICE_SLAB_OCEAN |
dTsurf(i,j) = tOceMxL(i,j,bi,bj) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
328 |
AIM_SURF_BC |
dTsurf(J,k,myThid) = 0. |
|
./pkg/aim_v23/aim_sice_impl.F |
100 |
AIM_SICE_IMPL |
dTsurf(J)= tFreeze - Tsurf(J) |
|
./pkg/aim_v23/aim_sice_impl.F |
106 |
AIM_SICE_IMPL |
Tsurf(J) = Tsurf(J)+ dTsurf(J) |
|
./pkg/aim_v23/aim_sice_impl.F |
107 |
AIM_SICE_IMPL |
SHF (J) = SHF (J) + dTsurf(J)*dShf(J) |
|
./pkg/aim_v23/aim_sice_impl.F |
108 |
AIM_SICE_IMPL |
EVAP(J) = EVAP(J) + dTsurf(J)*dEvp(J) |
|
./pkg/aim_v23/aim_sice_impl.F |
109 |
AIM_SICE_IMPL |
SLRU(J) = SLRU(J) + dTsurf(J)*dSlr(J) |
|
./pkg/aim_v23/aim_sice_impl.F |
16 |
AIM_SICE_IMPL |
O dTsurf, |
|
./pkg/aim_v23/aim_sice_impl.F |
70 |
AIM_SICE_IMPL |
_RL dTsurf(NGP) |
|
./pkg/aim_v23/aim_sice_impl.F |
89 |
AIM_SICE_IMPL |
dTsurf(J) = 0. |
|
./pkg/aim_v23/aim_sice_impl.F |
94 |
AIM_SICE_IMPL |
O dTsurf, |
|
./pkg/aim_v23/aim_sice_impl.F |
99 |
AIM_SICE_IMPL |
IF ( dTsurf(J) .GT. 999. ) THEN |
|
./pkg/aim_v23/aim_surf_bc.F |
303 |
AIM_SURF_BC |
dTsurf(J,k,myThid) = 0. |
|
./pkg/aim_v23/com_forcing.h |
43 |
NO PROCEDURE |
COMMON /FORDAY/ sst1, sti1, stl1, soilw1, alb1, dTsurf |
|
./pkg/aim_v23/com_forcing.h |
51 |
NO PROCEDURE |
_RL dTsurf (NGP,3,MAX_NO_THREADS) |
|
./pkg/aim_v23/aim_do_physics.F |
155 |
AIM_DO_PHYSICS |
O dTsurf(1,2,myThid), |
|
./pkg/aim_v23/aim_land_impl.F |
117 |
AIM_LAND_IMPL |
O dTsurf, |
|
./pkg/aim_v23/aim_land_impl.F |
123 |
AIM_LAND_IMPL |
IF ( dTsurf(J) .GT. 999. ) THEN |
|
./pkg/aim_v23/aim_land_impl.F |
128 |
AIM_LAND_IMPL |
SHF (J) = SHF (J) + dTsurf(J)*dShf(J) |
|
./pkg/aim_v23/aim_land_impl.F |
129 |
AIM_LAND_IMPL |
EVAP(J) = EVAP(J) + dTsurf(J)*dEvp(J) |
|
./pkg/aim_v23/aim_land_impl.F |
130 |
AIM_LAND_IMPL |
SLRU(J) = SLRU(J) + dTsurf(J)*dSlr(J) |
|
./pkg/aim_v23/aim_land_impl.F |
139 |
AIM_LAND_IMPL |
IF ( dTsurf(I2) .GT. 999. ) THEN |
|
./pkg/aim_v23/aim_land_impl.F |
142 |
AIM_LAND_IMPL |
land_HeatFlx(i,j,bi,bj) = sFlx(I2,1)+dTsurf(I2)*sFlx(I2,2) |
|
./pkg/aim_v23/aim_land_impl.F |
151 |
AIM_LAND_IMPL |
IF ( dTsurf(J) .GT. 999. ) THEN |
|
./pkg/aim_v23/aim_land_impl.F |
152 |
AIM_LAND_IMPL |
dTsurf(J)= tFreeze - Tsurf(J) |
|
./pkg/aim_v23/aim_land_impl.F |
155 |
AIM_LAND_IMPL |
Tsurf(J) = Tsurf(J)+ dTsurf(J) |
|
./pkg/aim_v23/aim_land_impl.F |
17 |
AIM_LAND_IMPL |
O dTsurf, |
|
./pkg/aim_v23/aim_land_impl.F |
72 |
AIM_LAND_IMPL |
_RL dTsurf(NGP) |
|
./pkg/aim_v23/aim_land_impl.F |
91 |
AIM_LAND_IMPL |
dTsurf(I2) = 0. |
|
./pkg/aim_v23/aim_diagnostics.F |
138 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_LOCAL('aimPhyDiag.',suff,1,dTsurf(1,1,myThid), |
|
./pkg/aim_v23/aim_diagnostics.F |
209 |
AIM_DIAGNOSTICS |
& + dTsurf(I2,1,myThid)*DDTT |
|
./pkg/aim_v23/aim_diagnostics.F |
301 |
AIM_DIAGNOSTICS |
CALL DIAGNOSTICS_FILL( dTsurf(1,1,myThid), |
|
./pkg/aim_v23/aim_diagnostics.F |
55 |
AIM_DIAGNOSTICS |
dTsurf(J,1,myThid) = fMask1(J,1,myThid)*dTsurf(J,1,myThid) |
|
./pkg/aim_v23/aim_diagnostics.F |
56 |
AIM_DIAGNOSTICS |
& + fMask1(J,2,myThid)*dTsurf(J,2,myThid) |
|
./pkg/aim_v23/aim_diagnostics.F |
57 |
AIM_DIAGNOSTICS |
& + fMask1(J,3,myThid)*dTsurf(J,3,myThid) |
|
./pkg/aim_v23/aim_diagnostics.F |
58 |
AIM_DIAGNOSTICS |
dTsurf(J,1,myThid) = ABS(dTsurf(J,1,myThid)) |
|
./pkg/aim_v23/phy_driver.F |
261 |
PHY_DRIVER |
O dTsurf(1,1,myThid), |
|
./pkg/aim_v23/phy_driver.F |
289 |
PHY_DRIVER |
O dTsurf(1,3,myThid), |
|
./pkg/land/land_impl_temp.F |
12 |
LAND_IMPL_TEMP |
O dTsurf, |
|
./pkg/land/land_impl_temp.F |
288 |
LAND_IMPL_TEMP |
dTsurf(i,j) = 1000. |
|
./pkg/land/land_impl_temp.F |
342 |
LAND_IMPL_TEMP |
IF ( dTsurf(i,j) .LE. 999. ) |
|
./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 |
352 |
LAND_IMPL_TEMP |
& tSurf, tg, dTsurf(i,j) |
|
./pkg/land/land_impl_temp.F |
50 |
LAND_IMPL_TEMP |
_RL dTsurf(sNx,sNy) |