| File |
Line number |
Procedure |
Code |
|
./pkg/aim_v23/phy_radiat.F |
161 |
RADSW |
O ICLTOP,CLOUDC,FTOP,FSFC,UPSWG,DFABS, |
|
./pkg/aim_v23/phy_radiat.F |
201 |
RADSW |
_RL CLOUDC(NGP), FTOP(NGP), FSFC(NGP,0:3), DFABS(NGP,NLEV) |
|
./pkg/aim_v23/phy_radiat.F |
408 |
RADSW |
FSFC(J,1)=FLUX(J,1)*(1.-ALB(J,1))+FLUX(J,2) |
|
./pkg/aim_v23/phy_radiat.F |
409 |
RADSW |
FSFC(J,2)=FLUX(J,1)*(1.-ALB(J,2))+FLUX(J,2) |
|
./pkg/aim_v23/phy_radiat.F |
410 |
RADSW |
FSFC(J,3)=FLUX(J,1)*(1.-ALB(J,3))+FLUX(J,2) |
|
./pkg/aim_v23/phy_radiat.F |
412 |
RADSW |
FSFC(J,0)=FLUX(J,1)+FLUX(J,2) |
|
./pkg/aim_v23/phy_radiat.F |
414 |
RADSW |
FSFC(J,0)=FSFC(J,0)-FLUX(J,1) |
|
./pkg/aim_v23/phy_radiat.F |
510 |
RADLW |
& FTOP,FSFC,DFABS, |
|
./pkg/aim_v23/phy_radiat.F |
552 |
RADLW |
_RL FTOP(NGP), FSFC(NGP), DFABS(NGP,NLEV) |
|
./pkg/aim_v23/phy_radiat.F |
608 |
RADLW |
FSFC(J) = STRATC(J) |
|
./pkg/aim_v23/phy_radiat.F |
657 |
RADLW |
FSFC(J)=FSFC(J)+EMISFC*FLUX(J,JB) |
|
./pkg/aim_v23/phy_radiat.F |
681 |
RADLW |
FSFC(J)=ST4S(J)-FSFC(J) |