| File |
Line number |
Procedure |
Code |
|
./pkg/aim_v23/phy_radiat.F |
562 |
RADLW |
INTEGER K, J, JB |
|
./pkg/aim_v23/phy_radiat.F |
626 |
RADLW |
DO JB=1,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 |
630 |
RADLW |
FLUX(J,JB)=EMIS*BRAD |
|
./pkg/aim_v23/phy_radiat.F |
631 |
RADLW |
DFABS(J,K)=DFABS(J,K)-FLUX(J,JB) |
|
./pkg/aim_v23/phy_radiat.F |
635 |
RADLW |
DO JB=3,NBAND |
|
./pkg/aim_v23/phy_radiat.F |
637 |
RADLW |
FLUX(J,JB)=0. |
|
./pkg/aim_v23/phy_radiat.F |
643 |
RADLW |
DO JB=1,NBAND |
|
./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 |
648 |
RADLW |
DFABS(J,K)=DFABS(J,K)+FLUX(J,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 |
650 |
RADLW |
DFABS(J,K)=DFABS(J,K)-FLUX(J,JB) |
|
./pkg/aim_v23/phy_radiat.F |
655 |
RADLW |
DO JB=1,NBAND |
|
./pkg/aim_v23/phy_radiat.F |
657 |
RADLW |
FSFC(J)=FSFC(J)+EMISFC*FLUX(J,JB) |
|
./pkg/aim_v23/phy_radiat.F |
685 |
RADLW |
DO JB=1,NBAND |
|
./pkg/aim_v23/phy_radiat.F |
687 |
RADLW |
FLUX(J,JB)=FBAND(NINT(TS(J)),JB)*ST4S(J) |
|
./pkg/aim_v23/phy_radiat.F |
688 |
RADLW |
& +REFSFC*FLUX(J,JB) |
|
./pkg/aim_v23/phy_radiat.F |
694 |
RADLW |
DO JB=1,NBAND |
|
./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 |
699 |
RADLW |
DFABS(J,K)=DFABS(J,K)+FLUX(J,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 |
701 |
RADLW |
DFABS(J,K)=DFABS(J,K)-FLUX(J,JB) |
|
./pkg/aim_v23/phy_radiat.F |
709 |
RADLW |
DO JB=1,2 |
|
./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 |
712 |
RADLW |
DFABS(J,K)=DFABS(J,K)+FLUX(J,JB) |
|
./pkg/aim_v23/phy_radiat.F |
713 |
RADLW |
FLUX(J,JB)=TAU2(J,K,JB)*FLUX(J,JB)+EMIS*ST4A(J,K,1) |
|
./pkg/aim_v23/phy_radiat.F |
714 |
RADLW |
DFABS(J,K)=DFABS(J,K)-FLUX(J,JB) |
|
./pkg/aim_v23/phy_radiat.F |
720 |
RADLW |
DO JB=1,NBAND |
|
./pkg/aim_v23/phy_radiat.F |
722 |
RADLW |
FTOP(J)=FTOP(J)+FLUX(J,JB) |
|
./pkg/aim_v23/phy_radiat.F |
764 |
RADSET |
INTEGER JTEMP, JB |
|
./pkg/aim_v23/phy_radiat.F |
780 |
RADSET |
DO JB=0,NBAND |
|
./pkg/aim_v23/phy_radiat.F |
782 |
RADSET |
FBAND(JTEMP,JB)=FBAND(200,JB) |
|
./pkg/aim_v23/phy_radiat.F |
785 |
RADSET |
FBAND(JTEMP,JB)=FBAND(320,JB) |