| File |
Line number |
Procedure |
Code |
|
./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 |
461 |
RADLW |
ST4A(J,K,1)=TA(J,K)*TA(J,K) |
|
./pkg/aim/phy_radiat.F |
462 |
RADLW |
ST4A(J,K,1)=SBC*ST4A(J,K,1)*ST4A(J,K,1) |
|
./pkg/aim/phy_radiat.F |
467 |
RADLW |
ST4A(J,K,2)=TA(J,K)+WVI(K,2)*(TA(J,K+1)-TA(J,K)) |
|
./pkg/aim/phy_radiat.F |
468 |
RADLW |
ST4A(J,K,2)=ST4A(J,K,2)*ST4A(J,K,2) |
|
./pkg/aim/phy_radiat.F |
469 |
RADLW |
ST4A(J,K,2)=SBC*ST4A(J,K,2)*ST4A(J,K,2) |
|
./pkg/aim/phy_radiat.F |
475 |
RADLW |
ST4A(J,NLEVxy(J,myThid),2)= |
|
./pkg/aim/phy_radiat.F |
476 |
RADLW |
& 2.*ST4A(J,NLEVxy(J,myThid),1)-ST4A(J,NL1(J),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 |
516 |
RADLW |
BRAD(J)=ST4A(J,K,2)+TAU(J,K)*(ST4A(J,K,1)-ST4A(J,K,2)) |
|
./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 |
590 |
RADLW |
FLUX(J)=TAU(J,1)*(FLUX(J)-ST4A(J,1,1))+ST4A(J,1,1) |
|
./pkg/aim_v23/com_radvar.h |
27 |
NO PROCEDURE |
_RL TAU2(NGP,NLEV,NBAND), ST4A(NGP,NLEV,2) |
|
./pkg/aim_v23/phy_radiat.F |
416 |
RADLW |
& FLUX, ST4A, |
|
./pkg/aim_v23/phy_radiat.F |
467 |
RADLW |
_RL TAU2(NGP,NLEV,NBAND), FLUX(NGP,NBAND), ST4A(NGP,NLEV,2) |
|
./pkg/aim_v23/phy_radiat.F |
498 |
RADLW |
ST4A(J,K,1)=TA(J,K)*TA(J,K) |
|
./pkg/aim_v23/phy_radiat.F |
499 |
RADLW |
ST4A(J,K,1)=SBC*ST4A(J,K,1)*ST4A(J,K,1) |
|
./pkg/aim_v23/phy_radiat.F |
505 |
RADLW |
ST4A(J,K,2)=TA(J,K)+WVI(K,2)*(TA(J,K+1)-TA(J,K)) |
|
./pkg/aim_v23/phy_radiat.F |
506 |
RADLW |
ST4A(J,K,2)=ST4A(J,K,2)*ST4A(J,K,2) |
|
./pkg/aim_v23/phy_radiat.F |
507 |
RADLW |
ST4A(J,K,2)=SBC*ST4A(J,K,2)*ST4A(J,K,2) |
|
./pkg/aim_v23/phy_radiat.F |
514 |
RADLW |
ST4A(J,K,2)=2.*ST4A(J,K,1)-ST4A(J,NL1(J),2) |
|
./pkg/aim_v23/phy_radiat.F |
542 |
RADLW |
BRAD=ST4A(J,K,2)+TAU2(J,K,JB)*(ST4A(J,K,1)-ST4A(J,K,2)) |
|
./pkg/aim_v23/phy_radiat.F |
560 |
RADLW |
BRAD=ST4A(J,K,2)+TAU2(J,K,JB)*(ST4A(J,K,1)-ST4A(J,K,2)) |
|
./pkg/aim_v23/phy_radiat.F |
611 |
RADLW |
BRAD=ST4A(J,K-1,2)+TAU2(J,K,JB)*(ST4A(J,K,1)-ST4A(J,K-1,2)) |
|
./pkg/aim_v23/phy_radiat.F |
627 |
RADLW |
FLUX(J,JB)=TAU2(J,K,JB)*FLUX(J,JB)+EMIS*ST4A(J,K,1) |
|
./pkg/aim_v23/phy_driver.F |
226 |
PHY_DRIVER |
& OZUPP, STRATC, TAU2, FLUX, ST4A, |
|
./pkg/aim_v23/phy_driver.F |
317 |
PHY_DRIVER |
& OZUPP, STRATC, TAU2, FLUX, ST4A, |
|
./pkg/aim_v23/phy_driver.F |
344 |
PHY_DRIVER |
& OZUPP, STRATC, TAU2, FLUX, ST4A, |
|
./pkg/aim_v23/phy_driver.F |
351 |
PHY_DRIVER |
& OZUPP, STRATC, TAU2, FLUX, ST4A, |