| File |
Line number |
Procedure |
Code |
|
./pkg/aim/phy_radiat.F |
424 |
RADLW |
_RL FLUX(NGP), BRAD(NGP), STCOR(NGP) |
|
./pkg/aim/phy_radiat.F |
506 |
RADLW |
BRAD(J)=ST4A(J,1,2)+TAU(J,1)*(ST4A(J,1,1)-ST4A(J,1,2)) |
|
./pkg/aim/phy_radiat.F |
507 |
RADLW |
FLUX(J)=(1.-TAU(J,1))*BRAD(J) |
|
./pkg/aim/phy_radiat.F |
516 |
RADLW |
BRAD(J)=ST4A(J,K,2)+TAU(J,K)*(ST4A(J,K,1)-ST4A(J,K,2)) |
|
./pkg/aim/phy_radiat.F |
517 |
RADLW |
FLUX(J)=TAU(J,K)*(FLUX(J)-BRAD(J))+BRAD(J) |
|
./pkg/aim/phy_radiat.F |
581 |
RADLW |
BRAD(J)=ST4A(J,K-1,2)+TAU(J,K)*(ST4A(J,K,1)-ST4A(J,K-1,2)) |
|
./pkg/aim/phy_radiat.F |
582 |
RADLW |
FLUX(J)=TAU(J,K)*(FLUX(J)-BRAD(J))+BRAD(J) |
|
./pkg/aim_v23/phy_radiat.F |
480 |
RADLW |
_RL REFSFC, BRAD, EMIS |
|
./pkg/aim_v23/phy_radiat.F |
542 |
RADLW |
BRAD=ST4A(J,K,2)+TAU2(J,K,JB)*(ST4A(J,K,1)-ST4A(J,K,2)) |
|
./pkg/aim_v23/phy_radiat.F |
544 |
RADLW |
FLUX(J,JB)=EMIS*BRAD |
|
./pkg/aim_v23/phy_radiat.F |
560 |
RADLW |
BRAD=ST4A(J,K,2)+TAU2(J,K,JB)*(ST4A(J,K,1)-ST4A(J,K,2)) |
|
./pkg/aim_v23/phy_radiat.F |
563 |
RADLW |
FLUX(J,JB)=TAU2(J,K,JB)*FLUX(J,JB)+EMIS*BRAD |
|
./pkg/aim_v23/phy_radiat.F |
611 |
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 |
614 |
RADLW |
FLUX(J,JB)=TAU2(J,K,JB)*FLUX(J,JB)+EMIS*BRAD |