| File |
Line number |
Procedure |
Code |
|
./pkg/aim/phy_radiat.F |
129 |
RADSW |
_RL CLOUDC(NGP), FTOP(NGP), FSFC(NGP), DFABS(NGP,NLEV) |
|
./pkg/aim/phy_radiat.F |
256 |
RADSW |
FSFC(J) =FLUX(J)-FREFL(J) |
|
./pkg/aim/phy_radiat.F |
374 |
RADLW |
* FTOP,FSFC,DFABS,FDOWN, |
|
./pkg/aim/phy_radiat.F |
416 |
RADLW |
_RL FTOP(NGP), FSFC(NGP), DFABS(NGP,NLEV) |
|
./pkg/aim/phy_radiat.F |
570 |
RADLW |
FSFC(J)=ST4S(J)-FLUX(J) |
|
./pkg/aim/phy_radiat.F |
85 |
RADSW |
* CLOUDC,FTOP,FSFC,DFABS, |
|
./pkg/aim_v23/phy_radiat.F |
111 |
RADSW |
O ICLTOP,CLOUDC,FTOP,FSFC,DFABS, |
|
./pkg/aim_v23/phy_radiat.F |
155 |
RADSW |
_RL CLOUDC(NGP), FTOP(NGP), FSFC(NGP,0:3), DFABS(NGP,NLEV) |
|
./pkg/aim_v23/phy_radiat.F |
347 |
RADSW |
FSFC(J,1)=FLUX(J,1)*(1.-ALB(J,1))+FLUX(J,2) |
|
./pkg/aim_v23/phy_radiat.F |
348 |
RADSW |
FSFC(J,2)=FLUX(J,1)*(1.-ALB(J,2))+FLUX(J,2) |
|
./pkg/aim_v23/phy_radiat.F |
349 |
RADSW |
FSFC(J,3)=FLUX(J,1)*(1.-ALB(J,3))+FLUX(J,2) |
|
./pkg/aim_v23/phy_radiat.F |
351 |
RADSW |
FSFC(J,0)=FLUX(J,1)+FLUX(J,2) |
|
./pkg/aim_v23/phy_radiat.F |
353 |
RADSW |
FSFC(J,0)=FSFC(J,0)-FLUX(J,1) |
|
./pkg/aim_v23/phy_radiat.F |
417 |
RADLW |
& FTOP,FSFC,DFABS, |
|
./pkg/aim_v23/phy_radiat.F |
465 |
RADLW |
_RL FTOP(NGP), FSFC(NGP), DFABS(NGP,NLEV) |
|
./pkg/aim_v23/phy_radiat.F |
522 |
RADLW |
FSFC(J) = STRATC(J) |
|
./pkg/aim_v23/phy_radiat.F |
571 |
RADLW |
FSFC(J)=FSFC(J)+EMISFC*FLUX(J,JB) |
|
./pkg/aim_v23/phy_radiat.F |
595 |
RADLW |
FSFC(J)=ST4S(J)-FSFC(J) |