| 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 |
509 |
RADLW |
& FLUX, ST4A, |
|
./pkg/aim_v23/phy_radiat.F |
554 |
RADLW |
_RL TAU2(NGP,NLEV,NBAND), FLUX(NGP,NBAND), ST4A(NGP,NLEV,2) |
|
./pkg/aim_v23/phy_radiat.F |
584 |
RADLW |
ST4A(J,K,1)=TA(J,K)*TA(J,K) |
|
./pkg/aim_v23/phy_radiat.F |
585 |
RADLW |
ST4A(J,K,1)=SBC*ST4A(J,K,1)*ST4A(J,K,1) |
|
./pkg/aim_v23/phy_radiat.F |
591 |
RADLW |
ST4A(J,K,2)=TA(J,K)+WVI(K,2)*(TA(J,K+1)-TA(J,K)) |
|
./pkg/aim_v23/phy_radiat.F |
592 |
RADLW |
ST4A(J,K,2)=ST4A(J,K,2)*ST4A(J,K,2) |
|
./pkg/aim_v23/phy_radiat.F |
593 |
RADLW |
ST4A(J,K,2)=SBC*ST4A(J,K,2)*ST4A(J,K,2) |
|
./pkg/aim_v23/phy_radiat.F |
600 |
RADLW |
ST4A(J,K,2)=2.*ST4A(J,K,1)-ST4A(J,NL1(J),2) |
|
./pkg/aim_v23/phy_radiat.F |
628 |
RADLW |
BRAD=ST4A(J,K,2)+TAU2(J,K,JB)*(ST4A(J,K,1)-ST4A(J,K,2)) |
|
./pkg/aim_v23/phy_radiat.F |
646 |
RADLW |
BRAD=ST4A(J,K,2)+TAU2(J,K,JB)*(ST4A(J,K,1)-ST4A(J,K,2)) |
|
./pkg/aim_v23/phy_radiat.F |
697 |
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 |
713 |
RADLW |
FLUX(J,JB)=TAU2(J,K,JB)*FLUX(J,JB)+EMIS*ST4A(J,K,1) |