| 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 |
203 |
SUFLUX_SICE |
sFlx(J,0)= ( SLRD(J) - EMISloc*Slr0(J) ) |
|
./pkg/aim_v23/phy_suflux_sice.F |
205 |
SUFLUX_SICE |
sFlx(J,1)= ( SLRD(J) - EMISloc*SLRU(J) ) |
|
./pkg/aim_v23/phy_suflux_sice.F |
207 |
SUFLUX_SICE |
sFlx(J,2)= -EMISloc*dSlr(J) |
|
./pkg/aim_v23/phy_suflux_sice.F |
77 |
SUFLUX_SICE |
_RL PSA(NGP), FMASK(NGP), EMISloc |