| File |
Line number |
Procedure |
Code |
|
./pkg/aim_v23/phy_suflux_land.F |
208 |
SUFLUX_LAND |
TS2 = TSFC(J)*TSFC(J) |
|
./pkg/aim_v23/phy_suflux_land.F |
209 |
SUFLUX_LAND |
Slr0(J) = SBC*TS2*TS2 |
|
./pkg/aim_v23/phy_suflux_land.F |
210 |
SUFLUX_LAND |
TS2 = TSKIN(J)*TSKIN(J) |
|
./pkg/aim_v23/phy_suflux_land.F |
211 |
SUFLUX_LAND |
SLRU(J) = SBC*TS2*TS2 |
|
./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 |
98 |
SUFLUX_LAND |
_RL QDUMMY(1), RDUMMY(1), TS2 |
|
./pkg/aim_v23/phy_suflux_sice.F |
194 |
SUFLUX_SICE |
TS2 = TSFC(J)*TSFC(J) |
|
./pkg/aim_v23/phy_suflux_sice.F |
195 |
SUFLUX_SICE |
Slr0(J) = SBC*TS2*TS2 |
|
./pkg/aim_v23/phy_suflux_sice.F |
196 |
SUFLUX_SICE |
TS2 = TSKIN(J)*TSKIN(J) |
|
./pkg/aim_v23/phy_suflux_sice.F |
197 |
SUFLUX_SICE |
SLRU(J) = SBC*TS2*TS2 |
|
./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 |
98 |
SUFLUX_SICE |
_RL QDUMMY(1), RDUMMY(1), TS2 |