| File |
Line number |
Procedure |
Code |
|
./pkg/aim/com_physvar.h |
39 |
NO PROCEDURE |
COMMON /PHYGR3/ PSG, TS, TSKIN, CLOUDC, PNLEVW |
|
./pkg/aim/com_physvar.h |
42 |
NO PROCEDURE |
_RL TSKIN (NGP,MAX_NO_THREADS) |
|
./pkg/aim_v23/phy_suflux_land.F |
107 |
SUFLUX_LAND |
TSKIN(J) = Tsurf(J) + dTskin(J) |
|
./pkg/aim_v23/phy_suflux_land.F |
119 |
SUFLUX_LAND |
FSLAND=1.+MIN(DTHETA,MAX(-DTHETA,TSKIN(J)-T1(J)))*RDTH |
|
./pkg/aim_v23/phy_suflux_land.F |
130 |
SUFLUX_LAND |
dTstb = ( DTHETA+dTstab-ABS(TSKIN(J)-T1(J)) )/dTstab |
|
./pkg/aim_v23/phy_suflux_land.F |
138 |
SUFLUX_LAND |
CALL SHTORH (2, NGP, TSKIN, PSA, 1. _d 0, QDUMMY, dEvp, |
|
./pkg/aim_v23/phy_suflux_land.F |
15 |
SUFLUX_LAND |
O TSFC, TSKIN, |
|
./pkg/aim_v23/phy_suflux_land.F |
187 |
SUFLUX_LAND |
SHF(J) = CDENVV(J)*CP*(TSKIN(J)-T0(J)) |
|
./pkg/aim_v23/phy_suflux_land.F |
190 |
SUFLUX_LAND |
& + dShf(J)*CP*(TSKIN(J)-T0(J)) |
|
./pkg/aim_v23/phy_suflux_land.F |
199 |
SUFLUX_LAND |
SHF(J) = CDENVV(J)*CP*(TSKIN(J)-T0(J)) |
|
./pkg/aim_v23/phy_suflux_land.F |
210 |
SUFLUX_LAND |
TS2 = TSKIN(J)*TSKIN(J) |
|
./pkg/aim_v23/phy_suflux_land.F |
212 |
SUFLUX_LAND |
dSlr(J) = 4. _d 0 *SBC*TS2*TSKIN(J) |
|
./pkg/aim_v23/phy_suflux_land.F |
86 |
SUFLUX_LAND |
_RL TSFC(NGP), TSKIN(NGP) |
|
./pkg/aim_v23/phy_suflux_post.F |
130 |
SUFLUX_POST |
TSKIN(J) = TSFC(J)+FMASK(J,1)*dTskin(J) |
|
./pkg/aim_v23/phy_suflux_post.F |
14 |
SUFLUX_POST |
O SLRU, TSFC, TSKIN, |
|
./pkg/aim_v23/phy_suflux_post.F |
83 |
SUFLUX_POST |
_RL SLRU(NGP), TSFC(NGP), TSKIN(NGP) |
|
./pkg/aim_v23/com_physvar.h |
45 |
NO PROCEDURE |
COMMON /PHYGR3/ TS, TSKIN, T0, Q0, CLOUDC, CLTOP |
|
./pkg/aim_v23/com_physvar.h |
48 |
NO PROCEDURE |
_RL TSKIN (NGP,MAX_NO_THREADS) |
|
./pkg/aim_v23/phy_suflux_sice.F |
113 |
SUFLUX_SICE |
TSKIN(J) = Tsurf(J) |
|
./pkg/aim_v23/phy_suflux_sice.F |
124 |
SUFLUX_SICE |
FSSICE=1.+MIN(DTHETA,MAX(-DTHETA,TSKIN(J)-T1(J)))*RDTH |
|
./pkg/aim_v23/phy_suflux_sice.F |
135 |
SUFLUX_SICE |
dTstb = ( DTHETA+dTstab-ABS(TSKIN(J)-T1(J)) )/dTstab |
|
./pkg/aim_v23/phy_suflux_sice.F |
147 |
SUFLUX_SICE |
CALL SHTORH (2, NGP, TSKIN, PSA, 1. _d 0, QDUMMY, dEvp, |
|
./pkg/aim_v23/phy_suflux_sice.F |
15 |
SUFLUX_SICE |
O TSFC, TSKIN, |
|
./pkg/aim_v23/phy_suflux_sice.F |
173 |
SUFLUX_SICE |
SHF(J) = CDENVV(J)*CP*(TSKIN(J)-T0(J)) |
|
./pkg/aim_v23/phy_suflux_sice.F |
176 |
SUFLUX_SICE |
& + dShf(J)*CP*(TSKIN(J)-T0(J)) |
|
./pkg/aim_v23/phy_suflux_sice.F |
185 |
SUFLUX_SICE |
SHF(J) = CDENVV(J)*CP*(TSKIN(J)-T0(J)) |
|
./pkg/aim_v23/phy_suflux_sice.F |
196 |
SUFLUX_SICE |
TS2 = TSKIN(J)*TSKIN(J) |
|
./pkg/aim_v23/phy_suflux_sice.F |
198 |
SUFLUX_SICE |
dSlr(J) = 4. _d 0 *SBC*TS2*TSKIN(J) |
|
./pkg/aim_v23/phy_suflux_sice.F |
85 |
SUFLUX_SICE |
_RL TSFC(NGP), TSKIN(NGP) |
|
./pkg/aim_v23/phy_driver.F |
253 |
PHY_DRIVER |
O TS(1,myThid), TSKIN(1,myThid), |
|
./pkg/aim_v23/phy_driver.F |
281 |
PHY_DRIVER |
O TS(1,myThid), TSKIN(1,myThid), |
|
./pkg/aim_v23/phy_driver.F |
307 |
PHY_DRIVER |
O ST4S, TS(1,myThid), TSKIN(1,myThid), |