| File |
Line number |
Procedure |
Code |
|
./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) |
|
./pkg/thsice/thsice_impl_temp.F |
108 |
THSICE_IMPL_TEMP |
O Tice1(siLo,sjLo,bi,bj), Tice2(siLo,sjLo,bi,bj), dTsurf, |
|
./pkg/thsice/thsice_impl_temp.F |
10 |
THSICE_IMPL_TEMP |
O dTsurf, |
|
./pkg/thsice/thsice_impl_temp.F |
46 |
THSICE_IMPL_TEMP |
_RL dTsurf (sNx,sNy) |
|
./pkg/thsice/thsice_slab_ocean.F |
11 |
THSICE_SLAB_OCEAN |
O dTsurf, |
|
./pkg/thsice/thsice_slab_ocean.F |
140 |
THSICE_SLAB_OCEAN |
dTsurf(i,j) = tOceMxL(i,j,bi,bj) - dTsurf(i,j) |
|
./pkg/thsice/thsice_slab_ocean.F |
53 |
THSICE_SLAB_OCEAN |
_RL dTsurf(sNx,sNy) |
|
./pkg/thsice/thsice_slab_ocean.F |
80 |
THSICE_SLAB_OCEAN |
dTsurf(i,j) = tOceMxL(i,j,bi,bj) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
449 |
AIM_SURF_BC |
dTsurf(J,k,myThid) = 0. |
|
./pkg/aim_v23/aim_diagnostics.F |
212 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_PHYS( 'aimPhyDiag.', suff, 3, dTsurf, |
|
./pkg/aim_v23/aim_diagnostics.F |
284 |
AIM_DIAGNOSTICS |
& 'aim_dTsurf1',dTsurf(1,1,myThid),myThid) |
|
./pkg/aim_v23/aim_diagnostics.F |
359 |
AIM_DIAGNOSTICS |
& + dTsurf(I2,1,myThid)*DDTT |
|
./pkg/aim_v23/aim_diagnostics.F |
446 |
AIM_DIAGNOSTICS |
CALL DIAGNOSTICS_FILL( dTsurf(1,1,myThid), |
|
./pkg/aim_v23/aim_diagnostics.F |
73 |
AIM_DIAGNOSTICS |
dTsurf(J,1,myThid) = fMask1(J,1,myThid)*dTsurf(J,1,myThid) |
|
./pkg/aim_v23/aim_diagnostics.F |
75 |
AIM_DIAGNOSTICS |
& + fMask1(J,3,myThid)*dTsurf(J,3,myThid) |
|
./pkg/aim_v23/aim_diagnostics.F |
76 |
AIM_DIAGNOSTICS |
dTsurf(J,1,myThid) = ABS(dTsurf(J,1,myThid)) |
|
./pkg/aim_v23/aim_do_physics.F |
216 |
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_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 |
417 |
AIM_SURF_BC |
dTsurf(J,k,myThid) = 0. |
|
./pkg/aim_v23/com_forcing.h |
47 |
NO PROCEDURE |
COMMON /FORDAY/ sst1, sti1, stl1, soilw1, alb1, dTsurf |
|
./pkg/aim_v23/com_forcing.h |
55 |
NO PROCEDURE |
_RL dTsurf (NGP,3,MAX_NO_THREADS) |
|
./pkg/aim_v23/phy_driver.F |
315 |
PHY_DRIVER |
O dTsurf(1,1,myThid), |
|
./pkg/aim_v23/phy_driver.F |
343 |
PHY_DRIVER |
O dTsurf(1,3,myThid), |
|
./pkg/atm2d/ATM2D_VARS.h |
213 |
NO PROCEDURE |
COMMON/ICE_FLUXES_PASS/ netSW, sFlx, dTsurf, pass_prcAtm, snowPrc |
|
./pkg/atm2d/ATM2D_VARS.h |
219 |
NO PROCEDURE |
_RL dTsurf(sNx,sNy) ! surf temp adjustment Ts^n+1 - Ts^n |
|
./pkg/atm2d/forward_step_atm2d.F |
232 |
FORWARD_STEP_ATM2D |
CALL THSICE_IMPL_TEMP(netSW, sFlx, dTsurf, 1,1, |
|
./pkg/cheapaml/cheapaml_seaice.F |
105 |
CHEAPAML_SEAICE |
_RL dTsurf(1:sNx,1:sNy) |
|
./pkg/cheapaml/cheapaml_seaice.F |
226 |
CHEAPAML_SEAICE |
O dTsurf, |
|
./pkg/cheapaml/cheapaml_seaice.F |
234 |
CHEAPAML_SEAICE |
IF ( dTsurf(i,j) .GT. 999. ) THEN |
|
./pkg/cheapaml/cheapaml_seaice.F |
242 |
CHEAPAML_SEAICE |
Tsurf(i,j)= Tsurf(i,j)+ dTsurf(i,j) |
|
./pkg/cheapaml/cheapaml_seaice.F |
243 |
CHEAPAML_SEAICE |
fsha(i,j) = fsha(i,j) + dTsurf(i,j)*dShdTs(i,j) |
|
./pkg/cheapaml/cheapaml_seaice.F |
244 |
CHEAPAML_SEAICE |
evp(i,j) = evp(i,j) + dTsurf(i,j)*dEvdTs(i,j) |
|
./pkg/cheapaml/cheapaml_seaice.F |
246 |
CHEAPAML_SEAICE |
xolw(i,j) = xolw(i,j) + dTsurf(i,j)*dLwdTs(i,j) |