File |
Line number |
Procedure |
Code |
./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 |
14 |
AIM_LAND_IMPL |
I Shf0, dShf, Evp0, dEvp, Slr0, dSlr, |
./pkg/aim_v23/aim_land_impl.F |
70 |
AIM_LAND_IMPL |
_RL Slr0(NGP), dSlr(NGP), sFlx(NGP,0:2) |
./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 |
14 |
AIM_SICE_IMPL |
I Shf0, dShf, Evp0, dEvp, Slr0, dSlr, |
./pkg/aim_v23/aim_sice_impl.F |
68 |
AIM_SICE_IMPL |
_RL Slr0(NGP), dSlr(NGP) |
./pkg/aim_v23/phy_driver.F |
126 |
PHY_DRIVER |
_RL Slr0(NGP), dSlr(NGP), sFlx(NGP,0:2) |
./pkg/aim_v23/phy_driver.F |
306 |
PHY_DRIVER |
O Shf0, dShf, Evp0, dEvp, Slr0, dSlr, sFlx, |
./pkg/aim_v23/phy_driver.F |
312 |
PHY_DRIVER |
I Shf0, dShf, Evp0, dEvp, Slr0, dSlr, |
./pkg/aim_v23/phy_driver.F |
334 |
PHY_DRIVER |
O Shf0, dShf, Evp0, dEvp, Slr0, dSlr, sFlx, |
./pkg/aim_v23/phy_driver.F |
340 |
PHY_DRIVER |
I Shf0, dShf, Evp0, dEvp, Slr0, dSlr, |
./pkg/aim_v23/phy_suflux_land.F |
14 |
SUFLUX_LAND |
O Shf0, dShf, Evp0, dEvp, Slr0, dSlr, sFlx, |
./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 |
221 |
SUFLUX_LAND |
sFlx(J,2)= - EMISloc*dSlr(J) |
./pkg/aim_v23/phy_suflux_land.F |
85 |
SUFLUX_LAND |
_RL Slr0(NGP), dSlr(NGP), sFlx(NGP,0:2) |
./pkg/aim_v23/phy_suflux_sice.F |
14 |
SUFLUX_SICE |
O Shf0, dShf, Evp0, dEvp, Slr0, dSlr, sFlx, |
./pkg/aim_v23/phy_suflux_sice.F |
199 |
SUFLUX_SICE |
dSlr(J) = 4. _d 0 *SBC*TS2*TSKIN(J) |
./pkg/aim_v23/phy_suflux_sice.F |
208 |
SUFLUX_SICE |
sFlx(J,2)= -EMISloc*dSlr(J) |
./pkg/aim_v23/phy_suflux_sice.F |
85 |
SUFLUX_SICE |
_RL Slr0(NGP), dSlr(NGP), sFlx(NGP,0:2) |
./pkg/bulk_force/bulkf_formula_aim.F |
116 |
BULKF_FORMULA_AIM |
_RL Slr0(NGP), dSlr(NGP) |
./pkg/bulk_force/bulkf_formula_aim.F |
233 |
BULKF_FORMULA_AIM |
dSlr(J) = 4. _d 0 *SBC*TS2*TSKIN(J) |
./pkg/bulk_force/bulkf_formula_aim.F |
242 |
BULKF_FORMULA_AIM |
sFlx(J,2)= -EMISloc*dSlr(J) |