| 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 |
240 |
PHY_DRIVER |
O TAU2, STRATC, |
|
./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 |
387 |
PHY_DRIVER |
O TAU2, STRATC, |
|
./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 |
148 |
RADSW |
O TAU2, STRATC, |
|
./pkg/aim_v23/phy_radiat.F |
198 |
RADSW |
_RL TAU2(NGP,NLEV,NBAND),STRATC(NGP) |
|
./pkg/aim_v23/phy_radiat.F |
316 |
RADSW |
TAU2(J,1,1)=EXP(-DELTAP*ABSDRY) |
|
./pkg/aim_v23/phy_radiat.F |
326 |
RADSW |
TAU2(J,K,1)=EXP(-DELTAP* |
|
./pkg/aim_v23/phy_radiat.F |
329 |
RADSW |
TAU2(J,K,1)=EXP(-DELTAP* |
|
./pkg/aim_v23/phy_radiat.F |
332 |
RADSW |
TAU2(J,K,1)=EXP(-DELTAP*(ABS1+ABSWV1*QA(J,K))) |
|
./pkg/aim_v23/phy_radiat.F |
343 |
RADSW |
TAU2(J,K,1)=EXP(-DELTAP*(ABS1+ABSWV1*QA(J,K))) |
|
./pkg/aim_v23/phy_radiat.F |
349 |
RADSW |
TAU2(J,K,2)=EXP(-DELTAP*ABSWV2*QA(J,K)) |
|
./pkg/aim_v23/phy_radiat.F |
372 |
RADSW |
FLUX (J,1)=TAU2(J,1,1)*(FLUX(J,1)-OZONE(J)*PSA(J)) |
|
./pkg/aim_v23/phy_radiat.F |
383 |
RADSW |
FLUX (J,1)=TAU2(J,K,1)*FLUX(J,1) |
|
./pkg/aim_v23/phy_radiat.F |
391 |
RADSW |
FLUX (J,2)=TAU2(J,K,2)*FLUX(J,2) |
|
./pkg/aim_v23/phy_radiat.F |
423 |
RADSW |
FLUX (J,1)=TAU2(J,K,1)*FLUX(J,1) |
|
./pkg/aim_v23/phy_radiat.F |
459 |
RADSW |
TAU2(J,1,1)=EXP(-DELTAP*ABLWIN) |
|
./pkg/aim_v23/phy_radiat.F |
460 |
RADSW |
TAU2(J,1,2)=EXP(-DELTAP*ABLCO2) |
|
./pkg/aim_v23/phy_radiat.F |
461 |
RADSW |
TAU2(J,1,3)=1. |
|
./pkg/aim_v23/phy_radiat.F |
462 |
RADSW |
TAU2(J,1,4)=1. |
|
./pkg/aim_v23/phy_radiat.F |
471 |
RADSW |
TAU2(J,K,1)=EXP(-DELTAP*(ABLWIN+ACLDLW(J,K))) |
|
./pkg/aim_v23/phy_radiat.F |
473 |
RADSW |
TAU2(J,K,1)=EXP(-DELTAP*(ABLWIN+ACLOUD(J))) |
|
./pkg/aim_v23/phy_radiat.F |
476 |
RADSW |
TAU2(J,K,1)=EXP(-DELTAP*ABLWIN) |
|
./pkg/aim_v23/phy_radiat.F |
478 |
RADSW |
TAU2(J,K,2)=EXP(-DELTAP*ABLCO2) |
|
./pkg/aim_v23/phy_radiat.F |
479 |
RADSW |
TAU2(J,K,3)=EXP(-DELTAP*ABLWV1*QA(J,K)) |
|
./pkg/aim_v23/phy_radiat.F |
480 |
RADSW |
TAU2(J,K,4)=EXP(-DELTAP*ABLWV2*QA(J,K)) |
|
./pkg/aim_v23/phy_radiat.F |
498 |
RADLW |
I OZUPP, STRATC, TAU2, |
|
./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 |
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 |
626 |
RADLW |
EMIS=FBAND(NINT(TA(J,K)),JB)*(1.-TAU2(J,K,JB)) |
|
./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 |
644 |
RADLW |
EMIS=FBAND(NINT(TA(J,K)),JB)*(1.-TAU2(J,K,JB)) |
|
./pkg/aim_v23/phy_radiat.F |
646 |
RADLW |
FLUX(J,JB)=TAU2(J,K,JB)*FLUX(J,JB)+EMIS*BRAD |
|
./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 |
695 |
RADLW |
EMIS=FBAND(NINT(TA(J,K)),JB)*(1.-TAU2(J,K,JB)) |
|
./pkg/aim_v23/phy_radiat.F |
697 |
RADLW |
FLUX(J,JB)=TAU2(J,K,JB)*FLUX(J,JB)+EMIS*BRAD |
|
./pkg/aim_v23/phy_radiat.F |
708 |
RADLW |
EMIS=FBAND(NINT(TA(J,K)),JB)*(1.-TAU2(J,K,JB)) |
|
./pkg/aim_v23/phy_radiat.F |
710 |
RADLW |
FLUX(J,JB)=TAU2(J,K,JB)*FLUX(J,JB)+EMIS*ST4A(J,K,1) |