| File |
Line number |
Procedure |
Code |
|
./pkg/aim/phy_radiat.F |
128 |
RADSW |
_RL FSOL(NGP), OZONE(NGP), ALB(NGP), TAU(NGP,NLEV) |
|
./pkg/aim/phy_radiat.F |
198 |
RADSW |
TAU(J,1)=EXP(-ABSSW*PSA(J)*DSIG(1)) |
|
./pkg/aim/phy_radiat.F |
205 |
RADSW |
TAU(J,K)=EXP(-(ABSSW+ABWSW*QA(J,K) |
|
./pkg/aim/phy_radiat.F |
211 |
RADSW |
TAU(J,NLEVxy(J,myThid))= |
|
./pkg/aim/phy_radiat.F |
222 |
RADSW |
FLUX(J)=TAU(J,1)*TAUOZ(J)*FSOL(J) |
|
./pkg/aim/phy_radiat.F |
243 |
RADSW |
FLUX(J)=TAU(J,K)*FLUX(J) |
|
./pkg/aim/phy_radiat.F |
265 |
RADSW |
FLUX(J)=TAU(J,K)*FLUX(J) |
|
./pkg/aim/phy_radiat.F |
299 |
RADSW |
TAU(J,1)=EXP(-ABSLW*PSA(J)*DSIG(1)) |
|
./pkg/aim/phy_radiat.F |
305 |
RADSW |
TAU(J,K)=EXP(-(ABSLW+ABWLW*QA(J,K) |
|
./pkg/aim/phy_radiat.F |
359 |
RADSW |
TAU(J,NLEVxy(J,myThid))= |
|
./pkg/aim/phy_radiat.F |
373 |
RADLW |
& TAU,ST4A, |
|
./pkg/aim/phy_radiat.F |
415 |
RADLW |
& TAU(NGP,NLEV), ST4A(NGP,NLEV,2) |
|
./pkg/aim/phy_radiat.F |
506 |
RADLW |
BRAD(J)=ST4A(J,1,2)+TAU(J,1)*(ST4A(J,1,1)-ST4A(J,1,2)) |
|
./pkg/aim/phy_radiat.F |
507 |
RADLW |
FLUX(J)=(1.-TAU(J,1))*BRAD(J) |
|
./pkg/aim/phy_radiat.F |
516 |
RADLW |
BRAD(J)=ST4A(J,K,2)+TAU(J,K)*(ST4A(J,K,1)-ST4A(J,K,2)) |
|
./pkg/aim/phy_radiat.F |
517 |
RADLW |
FLUX(J)=TAU(J,K)*(FLUX(J)-BRAD(J))+BRAD(J) |
|
./pkg/aim/phy_radiat.F |
581 |
RADLW |
BRAD(J)=ST4A(J,K-1,2)+TAU(J,K)*(ST4A(J,K,1)-ST4A(J,K-1,2)) |
|
./pkg/aim/phy_radiat.F |
582 |
RADLW |
FLUX(J)=TAU(J,K)*(FLUX(J)-BRAD(J))+BRAD(J) |
|
./pkg/aim/phy_radiat.F |
590 |
RADLW |
FLUX(J)=TAU(J,1)*(FLUX(J)-ST4A(J,1,1))+ST4A(J,1,1) |
|
./pkg/aim/phy_radiat.F |
84 |
RADSW |
* FSOL,OZONE,ALB,TAU, |