| File |
Line number |
Procedure |
Code |
|
./pkg/aim_v23/phy_suflux_land.F |
108 |
SUFLUX_LAND |
TSFC(J)=273.16 _d 0 + dTskin(J) |
|
./pkg/aim_v23/phy_suflux_land.F |
128 |
SUFLUX_LAND |
Fstb0 = 1.+MIN(DTHETA,MAX(-DTHETA,TSFC(J) -T1(J)))*RDTH |
|
./pkg/aim_v23/phy_suflux_land.F |
140 |
SUFLUX_LAND |
CALL SHTORH (0, NGP, TSFC, PSA, 1. _d 0, QDUMMY, RDUMMY, |
|
./pkg/aim_v23/phy_suflux_land.F |
15 |
SUFLUX_LAND |
O TSFC, TSKIN, |
|
./pkg/aim_v23/phy_suflux_land.F |
188 |
SUFLUX_LAND |
Shf0(J) = Shf0(J)*CP*(TSFC(J) -T0(J)) |
|
./pkg/aim_v23/phy_suflux_land.F |
200 |
SUFLUX_LAND |
Shf0(J) = CDENVV(J)*CP*(TSFC(J) -T0(J)) |
|
./pkg/aim_v23/phy_suflux_land.F |
208 |
SUFLUX_LAND |
TS2 = TSFC(J)*TSFC(J) |
|
./pkg/aim_v23/phy_suflux_land.F |
86 |
SUFLUX_LAND |
_RL TSFC(NGP), TSKIN(NGP) |
|
./pkg/aim_v23/phy_suflux_post.F |
128 |
SUFLUX_POST |
TSFC(J) = (FMASK(J,1)*TLAND(J) + FMASK(J,2)*TSEA(J) |
|
./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 |
144 |
SUFLUX_POST |
IF ( TSFC(J).LT.lwTemp1 .OR. |
|
./pkg/aim_v23/phy_suflux_post.F |
145 |
SUFLUX_POST |
& TSFC(J).GT.lwTemp2 ) THEN |
|
./pkg/aim_v23/phy_suflux_post.F |
149 |
SUFLUX_POST |
& 'SUFLUX_POST: TS=', TSFC(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/phy_suflux_sice.F |
115 |
SUFLUX_SICE |
TSFC(J)=273.16 _d 0 |
|
./pkg/aim_v23/phy_suflux_sice.F |
134 |
SUFLUX_SICE |
Fstb0 = 1.+MIN(DTHETA,MAX(-DTHETA,TSFC(J) -T1(J)))*RDTH |
|
./pkg/aim_v23/phy_suflux_sice.F |
150 |
SUFLUX_SICE |
CALL SHTORH (0, NGP, TSFC, PSA, 1. _d 0, QDUMMY, RDUMMY, |
|
./pkg/aim_v23/phy_suflux_sice.F |
15 |
SUFLUX_SICE |
O TSFC, TSKIN, |
|
./pkg/aim_v23/phy_suflux_sice.F |
175 |
SUFLUX_SICE |
Shf0(J) = Shf0(J)*CP*(TSFC(J) -T0(J)) |
|
./pkg/aim_v23/phy_suflux_sice.F |
187 |
SUFLUX_SICE |
Shf0(J) = CDENVV(J)*CP*(TSFC(J) -T0(J)) |
|
./pkg/aim_v23/phy_suflux_sice.F |
195 |
SUFLUX_SICE |
TS2 = TSFC(J)*TSFC(J) |
|
./pkg/aim_v23/phy_suflux_sice.F |
86 |
SUFLUX_SICE |
_RL TSFC(NGP), TSKIN(NGP) |
|
./pkg/bulk_force/bulkf_formula_aim.F |
117 |
BULKF_FORMULA_AIM |
_RL TSFC(NGP), TSKIN(NGP) |
|
./pkg/bulk_force/bulkf_formula_aim.F |
153 |
BULKF_FORMULA_AIM |
TSFC(J)=273.16 _d 0 |
|
./pkg/bulk_force/bulkf_formula_aim.F |
172 |
BULKF_FORMULA_AIM |
Fstb0 = 1.+MIN(DTHETA,MAX(-DTHETA,TSFC(J) -T1(J)))*RDTH |
|
./pkg/bulk_force/bulkf_formula_aim.F |
184 |
BULKF_FORMULA_AIM |
CALL BULKF_SH2RH_AIM( 0, NGP, TSFC, PSA, 1. _d 0, |
|
./pkg/bulk_force/bulkf_formula_aim.F |
209 |
BULKF_FORMULA_AIM |
Shf0(J) = Shf0(J)*CP*(TSFC(J) -T0(J)) |
|
./pkg/bulk_force/bulkf_formula_aim.F |
221 |
BULKF_FORMULA_AIM |
Shf0(J) = CDENVV(J)*CP*(TSFC(J) -T0(J)) |
|
./pkg/bulk_force/bulkf_formula_aim.F |
229 |
BULKF_FORMULA_AIM |
TS2 = TSFC(J)*TSFC(J) |