File |
Line number |
Procedure |
Code |
./pkg/thsice/thsice_get_bulkf.F |
103 |
THSICE_GET_BULKF |
O SHF, EVPloc, SLRU, |
./pkg/thsice/thsice_get_bulkf.F |
80 |
THSICE_GET_BULKF |
_RL Tsurf(1), SHF(1), EVPloc(1), SLRU(1) |
./pkg/aim_v23/aim_land_impl.F |
126 |
AIM_LAND_IMPL |
SLRU(J) = Slr0(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 |
16 |
AIM_LAND_IMPL |
U Tsurf, SHF, EVAP, SLRU, |
./pkg/aim_v23/aim_land_impl.F |
71 |
AIM_LAND_IMPL |
_RL Tsurf(NGP), SHF(NGP), EVAP(NGP), SLRU(NGP) |
./pkg/aim_v23/aim_sice_impl.F |
104 |
AIM_SICE_IMPL |
SLRU(J) = Slr0(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 |
15 |
AIM_SICE_IMPL |
U Tsurf, SHF, EVAP, SLRU, |
./pkg/aim_v23/aim_sice_impl.F |
69 |
AIM_SICE_IMPL |
_RL Tsurf(NGP), SHF(NGP), EVAP(NGP), SLRU(NGP) |
./pkg/aim_v23/phy_suflux_land.F |
13 |
SUFLUX_LAND |
O SHF, EVAP, SLRU, |
./pkg/aim_v23/phy_suflux_land.F |
211 |
SUFLUX_LAND |
SLRU(J) = SBC*TS2*TS2 |
./pkg/aim_v23/phy_suflux_land.F |
219 |
SUFLUX_LAND |
sFlx(J,1)= ( SSR(J) + SLRD(J) - EMISloc*SLRU(J) ) |
./pkg/aim_v23/phy_suflux_land.F |
83 |
SUFLUX_LAND |
_RL SHF(NGP), EVAP(NGP), SLRU(NGP) |
./pkg/aim_v23/phy_suflux_ocean.F |
111 |
SUFLUX_OCEAN |
SLRU(J) = SBC*TS4 |
./pkg/aim_v23/phy_suflux_ocean.F |
13 |
SUFLUX_OCEAN |
O SHF, EVAP, SLRU, |
./pkg/aim_v23/phy_suflux_ocean.F |
63 |
SUFLUX_OCEAN |
_RL SHF(NGP), EVAP(NGP), SLRU(NGP) |
./pkg/aim_v23/phy_suflux_post.F |
122 |
SUFLUX_POST |
SLRU(J) = (FMASK(J,1)*SLRup(J,1)+FMASK(J,2)*SLRup(J,2) |
./pkg/aim_v23/phy_suflux_post.F |
139 |
SUFLUX_POST |
SLRU(J) =EMISloc*SLRU(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 |
13 |
SUFLUX_SICE |
O SHF, EVAP, SLRU, |
./pkg/aim_v23/phy_suflux_sice.F |
198 |
SUFLUX_SICE |
SLRU(J) = SBC*TS2*TS2 |
./pkg/aim_v23/phy_suflux_sice.F |
206 |
SUFLUX_SICE |
sFlx(J,1)= ( SLRD(J) - EMISloc*SLRU(J) ) |
./pkg/aim_v23/phy_suflux_sice.F |
83 |
SUFLUX_SICE |
_RL SHF(NGP), EVAP(NGP), SLRU(NGP) |
./pkg/bulk_force/bulkf_forcing.F |
68 |
BULKF_FORCING |
_RL SHF(1), EVPloc(1), SLRU(1) |
./pkg/bulk_force/bulkf_forcing.F |
91 |
BULKF_FORCING |
O SHF, EVPloc, SLRU, |
./pkg/bulk_force/bulkf_forcing.F |
95 |
BULKF_FORCING |
flwup(i,j,bi,bj)= ocean_emissivity*SLRU(1) |
./pkg/bulk_force/bulkf_formula_aim.F |
12 |
BULKF_FORMULA_AIM |
O SHF, EVAP, SLRU, |
./pkg/bulk_force/bulkf_formula_aim.F |
232 |
BULKF_FORMULA_AIM |
SLRU(J) = SBC*TS2*TS2 |
./pkg/bulk_force/bulkf_formula_aim.F |
240 |
BULKF_FORMULA_AIM |
sFlx(J,1)= ( SLRD(J) - EMISloc*SLRU(J) ) |
./pkg/bulk_force/bulkf_formula_aim.F |
72 |
BULKF_FORMULA_AIM |
_RL SHF(NGP), EVAP(NGP), SLRU(NGP) |