| File |
Line number |
Procedure |
Code |
|
./pkg/aim/phy_radiat.F |
134 |
RADSW |
_RL FLUX(NGP), FREFL(NGP), TAUOZ(NGP) |
|
./pkg/aim/phy_radiat.F |
233 |
RADSW |
FREFL(J)=ALBCL*CLOUDC(J)*FLUX(J) |
|
./pkg/aim/phy_radiat.F |
234 |
RADSW |
FTOP(J) =FSOL(J)-FREFL(J) |
|
./pkg/aim/phy_radiat.F |
235 |
RADSW |
FLUX(J) =FLUX(J)-FREFL(J) |
|
./pkg/aim/phy_radiat.F |
255 |
RADSW |
FREFL(J)=ALB(J)*FLUX(J) |
|
./pkg/aim/phy_radiat.F |
256 |
RADSW |
FSFC(J) =FLUX(J)-FREFL(J) |
|
./pkg/aim/phy_radiat.F |
257 |
RADSW |
FLUX(J) =FREFL(J) |
|
./pkg/aim_v23/phy_radiat.F |
171 |
RADSW |
& ALBTOP(NGP,NLEV), FREFL(NGP,NLEV), FLUX(NGP,2) |
|
./pkg/aim_v23/phy_radiat.F |
208 |
RADSW |
FREFL(J,1)=0. |
|
./pkg/aim_v23/phy_radiat.F |
324 |
RADSW |
FREFL(J,K)=FLUX(J,1)*ALBTOP(J,K) |
|
./pkg/aim_v23/phy_radiat.F |
325 |
RADSW |
FLUX (J,1)=FLUX(J,1)-FREFL(J,K) |
|
./pkg/aim_v23/phy_radiat.F |
363 |
RADSW |
FLUX (J,1)=FLUX(J,1)+FREFL(J,K) |