| File |
Line number |
Procedure |
Code |
|
./pkg/aim_v23/com_radvar.h |
27 |
NO PROCEDURE |
_RL TAU2(NGP,NLEV,NBAND), ST4A(NGP,NLEV,2) |
|
./pkg/aim_v23/phy_driver.F |
270 |
PHY_DRIVER |
& OZUPP, STRATC, TAU2, FLUX, ST4A, |
|
./pkg/aim_v23/phy_driver.F |
368 |
PHY_DRIVER |
& OZUPP, STRATC, TAU2, FLUX, ST4A, |
|
./pkg/aim_v23/phy_driver.F |
402 |
PHY_DRIVER |
& OZUPP, STRATC, TAU2, FLUX, ST4A, |
|
./pkg/aim_v23/phy_driver.F |
409 |
PHY_DRIVER |
& OZUPP, STRATC, TAU2, FLUX, ST4A, |
|
./pkg/aim_v23/phy_radiat.F |
499 |
RADLW |
& FLUX, ST4A, |
|
./pkg/aim_v23/phy_radiat.F |
550 |
RADLW |
_RL TAU2(NGP,NLEV,NBAND), FLUX(NGP,NBAND), ST4A(NGP,NLEV,2) |
|
./pkg/aim_v23/phy_radiat.F |
581 |
RADLW |
ST4A(J,K,1)=TA(J,K)*TA(J,K) |
|
./pkg/aim_v23/phy_radiat.F |
582 |
RADLW |
ST4A(J,K,1)=SBC*ST4A(J,K,1)*ST4A(J,K,1) |
|
./pkg/aim_v23/phy_radiat.F |
588 |
RADLW |
ST4A(J,K,2)=TA(J,K)+WVI(K,2)*(TA(J,K+1)-TA(J,K)) |
|
./pkg/aim_v23/phy_radiat.F |
589 |
RADLW |
ST4A(J,K,2)=ST4A(J,K,2)*ST4A(J,K,2) |
|
./pkg/aim_v23/phy_radiat.F |
590 |
RADLW |
ST4A(J,K,2)=SBC*ST4A(J,K,2)*ST4A(J,K,2) |
|
./pkg/aim_v23/phy_radiat.F |
597 |
RADLW |
ST4A(J,K,2)=2.*ST4A(J,K,1)-ST4A(J,NL1(J),2) |
|
./pkg/aim_v23/phy_radiat.F |
625 |
RADLW |
BRAD=ST4A(J,K,2)+TAU2(J,K,JB)*(ST4A(J,K,1)-ST4A(J,K,2)) |
|
./pkg/aim_v23/phy_radiat.F |
643 |
RADLW |
BRAD=ST4A(J,K,2)+TAU2(J,K,JB)*(ST4A(J,K,1)-ST4A(J,K,2)) |
|
./pkg/aim_v23/phy_radiat.F |
694 |
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 |
710 |
RADLW |
FLUX(J,JB)=TAU2(J,K,JB)*FLUX(J,JB)+EMIS*ST4A(J,K,1) |