| File |
Line number |
Procedure |
Code |
|
./pkg/aim_v23/phy_suflux_land.F |
10 |
SUFLUX_LAND |
I PSA, FMASK, EMISloc, |
|
./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 |
221 |
SUFLUX_LAND |
sFlx(J,2)= - EMISloc*dSlr(J) |
|
./pkg/aim_v23/phy_suflux_land.F |
78 |
SUFLUX_LAND |
_RL PSA(NGP), FMASK(NGP), EMISloc |
|
./pkg/aim_v23/phy_suflux_post.F |
10 |
SUFLUX_POST |
I FMASK, EMISloc, |
|
./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 |
139 |
SUFLUX_POST |
SLRU(J) =EMISloc*SLRU(J) |
|
./pkg/aim_v23/phy_suflux_post.F |
78 |
SUFLUX_POST |
_RL FMASK(NGP,3), EMISloc |
|
./pkg/aim_v23/phy_suflux_sice.F |
10 |
SUFLUX_SICE |
I PSA, FMASK, EMISloc, |
|
./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 |
208 |
SUFLUX_SICE |
sFlx(J,2)= -EMISloc*dSlr(J) |
|
./pkg/aim_v23/phy_suflux_sice.F |
78 |
SUFLUX_SICE |
_RL PSA(NGP), FMASK(NGP), EMISloc |
|
./pkg/bulk_force/bulkf_formula_aim.F |
100 |
BULKF_FORMULA_AIM |
_RL P0, ALHC, ALHF, RD, CP, SBC, EMISloc |
|
./pkg/bulk_force/bulkf_formula_aim.F |
101 |
BULKF_FORMULA_AIM |
EQUIVALENCE ( ocean_emissivity , EMISloc ) |
|
./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 |
242 |
BULKF_FORMULA_AIM |
sFlx(J,2)= -EMISloc*dSlr(J) |