| File |
Line number |
Procedure |
Code |
|
./pkg/aim_v23/phy_suflux_land.F |
11 |
SUFLUX_LAND |
I Tsurf, dTskin, SWAV, SSR, SLRD, |
|
./pkg/aim_v23/phy_suflux_land.F |
217 |
SUFLUX_LAND |
sFlx(J,0)= ( SSR(J) + SLRD(J) - EMISloc*Slr0(J) ) |
|
./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 |
80 |
SUFLUX_LAND |
_RL SSR(NGP), SLRD(NGP) |
|
./pkg/aim_v23/phy_suflux_ocean.F |
11 |
SUFLUX_OCEAN |
I Tsurf, SSR, SLRD, |
|
./pkg/aim_v23/phy_suflux_ocean.F |
60 |
SUFLUX_OCEAN |
_RL SSR(NGP), SLRD(NGP) |
|
./pkg/aim_v23/phy_suflux_post.F |
11 |
SUFLUX_POST |
I TLAND, TSEA, TSICE, dTskin, SLRD, |
|
./pkg/aim_v23/phy_suflux_post.F |
136 |
SUFLUX_POST |
SLRup(J,1)=EMISloc*SLRup(J,1)-SLRD(J) |
|
./pkg/aim_v23/phy_suflux_post.F |
137 |
SUFLUX_POST |
SLRup(J,2)=EMISloc*SLRup(J,2)-SLRD(J) |
|
./pkg/aim_v23/phy_suflux_post.F |
138 |
SUFLUX_POST |
SLRup(J,3)=EMISloc*SLRup(J,3)-SLRD(J) |
|
./pkg/aim_v23/phy_suflux_post.F |
79 |
SUFLUX_POST |
_RL TLAND(NGP), TSEA(NGP), TSICE(NGP), dTskin(NGP), SLRD(NGP) |
|
./pkg/aim_v23/phy_suflux_sice.F |
11 |
SUFLUX_SICE |
I Tsurf, dTskin, SSR, SLRD, |
|
./pkg/aim_v23/phy_suflux_sice.F |
204 |
SUFLUX_SICE |
sFlx(J,0)= ( SLRD(J) - EMISloc*Slr0(J) ) |
|
./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 |
80 |
SUFLUX_SICE |
_RL SSR(NGP), SLRD(NGP) |
|
./pkg/bulk_force/bulkf_formula_aim.F |
10 |
BULKF_FORMULA_AIM |
I Tsurf, SLRD, |
|
./pkg/bulk_force/bulkf_formula_aim.F |
238 |
BULKF_FORMULA_AIM |
sFlx(J,0)= ( SLRD(J) - EMISloc*Slr0(J) ) |
|
./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 |
69 |
BULKF_FORMULA_AIM |
_RL SLRD(NGP) |