| 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 |
160 |
RADSW |
O TAU2, STRATC, |
|
./pkg/aim_v23/phy_radiat.F |
205 |
RADSW |
_RL TAU2(NGP,NLEV,NBAND),STRATC(NGP) |
|
./pkg/aim_v23/phy_radiat.F |
321 |
RADSW |
TAU2(J,1,1)=EXP(-DELTAP*ABSDRY) |
|
./pkg/aim_v23/phy_radiat.F |
331 |
RADSW |
TAU2(J,K,1)=EXP(-DELTAP* |
|
./pkg/aim_v23/phy_radiat.F |
334 |
RADSW |
TAU2(J,K,1)=EXP(-DELTAP* |
|
./pkg/aim_v23/phy_radiat.F |
337 |
RADSW |
TAU2(J,K,1)=EXP(-DELTAP*(ABS1+ABSWV1*QA(J,K))) |
|
./pkg/aim_v23/phy_radiat.F |
348 |
RADSW |
TAU2(J,K,1)=EXP(-DELTAP*(ABS1+ABSWV1*QA(J,K))) |
|
./pkg/aim_v23/phy_radiat.F |
354 |
RADSW |
TAU2(J,K,2)=EXP(-DELTAP*ABSWV2*QA(J,K)) |
|
./pkg/aim_v23/phy_radiat.F |
377 |
RADSW |
FLUX (J,1)=TAU2(J,1,1)*(FLUX(J,1)-OZONE(J)*PSA(J)) |
|
./pkg/aim_v23/phy_radiat.F |
388 |
RADSW |
FLUX (J,1)=TAU2(J,K,1)*FLUX(J,1) |
|
./pkg/aim_v23/phy_radiat.F |
396 |
RADSW |
FLUX (J,2)=TAU2(J,K,2)*FLUX(J,2) |
|
./pkg/aim_v23/phy_radiat.F |
428 |
RADSW |
FLUX (J,1)=TAU2(J,K,1)*FLUX(J,1) |
|
./pkg/aim_v23/phy_radiat.F |
464 |
RADSW |
TAU2(J,1,1)=EXP(-DELTAP*ABLWIN) |
|
./pkg/aim_v23/phy_radiat.F |
465 |
RADSW |
TAU2(J,1,2)=EXP(-DELTAP*ABLCO2) |
|
./pkg/aim_v23/phy_radiat.F |
466 |
RADSW |
TAU2(J,1,3)=1. |
|
./pkg/aim_v23/phy_radiat.F |
467 |
RADSW |
TAU2(J,1,4)=1. |
|
./pkg/aim_v23/phy_radiat.F |
476 |
RADSW |
TAU2(J,K,1)=EXP(-DELTAP*(ABLWIN+ACLDLW(J,K))) |
|
./pkg/aim_v23/phy_radiat.F |
478 |
RADSW |
TAU2(J,K,1)=EXP(-DELTAP*(ABLWIN+ACLOUD(J))) |
|
./pkg/aim_v23/phy_radiat.F |
481 |
RADSW |
TAU2(J,K,1)=EXP(-DELTAP*ABLWIN) |
|
./pkg/aim_v23/phy_radiat.F |
483 |
RADSW |
TAU2(J,K,2)=EXP(-DELTAP*ABLCO2) |
|
./pkg/aim_v23/phy_radiat.F |
484 |
RADSW |
TAU2(J,K,3)=EXP(-DELTAP*ABLWV1*QA(J,K)) |
|
./pkg/aim_v23/phy_radiat.F |
485 |
RADSW |
TAU2(J,K,4)=EXP(-DELTAP*ABLWV2*QA(J,K)) |
|
./pkg/aim_v23/phy_radiat.F |
508 |
RADLW |
I OZUPP, STRATC, TAU2, |
|
./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 |
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 |
629 |
RADLW |
EMIS=FBAND(NINT(TA(J,K)),JB)*(1.-TAU2(J,K,JB)) |
|
./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 |
647 |
RADLW |
EMIS=FBAND(NINT(TA(J,K)),JB)*(1.-TAU2(J,K,JB)) |
|
./pkg/aim_v23/phy_radiat.F |
649 |
RADLW |
FLUX(J,JB)=TAU2(J,K,JB)*FLUX(J,JB)+EMIS*BRAD |
|
./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 |
698 |
RADLW |
EMIS=FBAND(NINT(TA(J,K)),JB)*(1.-TAU2(J,K,JB)) |
|
./pkg/aim_v23/phy_radiat.F |
700 |
RADLW |
FLUX(J,JB)=TAU2(J,K,JB)*FLUX(J,JB)+EMIS*BRAD |
|
./pkg/aim_v23/phy_radiat.F |
711 |
RADLW |
EMIS=FBAND(NINT(TA(J,K)),JB)*(1.-TAU2(J,K,JB)) |
|
./pkg/aim_v23/phy_radiat.F |
713 |
RADLW |
FLUX(J,JB)=TAU2(J,K,JB)*FLUX(J,JB)+EMIS*ST4A(J,K,1) |