| File |
Line number |
Procedure |
Code |
|
./pkg/aim_v23/phy_radiat.F |
161 |
RADSW |
O ICLTOP,CLOUDC,FTOP,FSFC,UPSWG,DFABS, |
|
./pkg/aim_v23/phy_radiat.F |
201 |
RADSW |
_RL CLOUDC(NGP), FTOP(NGP), FSFC(NGP,0:3), DFABS(NGP,NLEV) |
|
./pkg/aim_v23/phy_radiat.F |
376 |
RADSW |
DFABS(J,1)=FLUX(J,1) |
|
./pkg/aim_v23/phy_radiat.F |
378 |
RADSW |
DFABS(J,1)=DFABS(J,1)-FLUX(J,1) |
|
./pkg/aim_v23/phy_radiat.F |
387 |
RADSW |
DFABS(J,K)=FLUX(J,1) |
|
./pkg/aim_v23/phy_radiat.F |
389 |
RADSW |
DFABS(J,K)=DFABS(J,K)-FLUX(J,1) |
|
./pkg/aim_v23/phy_radiat.F |
395 |
RADSW |
DFABS(J,K)=DFABS(J,K)+FLUX(J,2) |
|
./pkg/aim_v23/phy_radiat.F |
397 |
RADSW |
DFABS(J,K)=DFABS(J,K)-FLUX(J,2) |
|
./pkg/aim_v23/phy_radiat.F |
427 |
RADSW |
DFABS(J,K)=DFABS(J,K)+FLUX(J,1) |
|
./pkg/aim_v23/phy_radiat.F |
429 |
RADSW |
DFABS(J,K)=DFABS(J,K)-FLUX(J,1) |
|
./pkg/aim_v23/phy_radiat.F |
432 |
RADSW |
DFABS(J,K)= 0. _d 0 |
|
./pkg/aim_v23/phy_radiat.F |
510 |
RADLW |
& FTOP,FSFC,DFABS, |
|
./pkg/aim_v23/phy_radiat.F |
552 |
RADLW |
_RL FTOP(NGP), FSFC(NGP), DFABS(NGP,NLEV) |
|
./pkg/aim_v23/phy_radiat.F |
609 |
RADLW |
DFABS(J,1)=-STRATC(J) |
|
./pkg/aim_v23/phy_radiat.F |
614 |
RADLW |
DFABS(J,K)=0. |
|
./pkg/aim_v23/phy_radiat.F |
631 |
RADLW |
DFABS(J,K)=DFABS(J,K)-FLUX(J,JB) |
|
./pkg/aim_v23/phy_radiat.F |
648 |
RADLW |
DFABS(J,K)=DFABS(J,K)+FLUX(J,JB) |
|
./pkg/aim_v23/phy_radiat.F |
650 |
RADLW |
DFABS(J,K)=DFABS(J,K)-FLUX(J,JB) |
|
./pkg/aim_v23/phy_radiat.F |
699 |
RADLW |
DFABS(J,K)=DFABS(J,K)+FLUX(J,JB) |
|
./pkg/aim_v23/phy_radiat.F |
701 |
RADLW |
DFABS(J,K)=DFABS(J,K)-FLUX(J,JB) |
|
./pkg/aim_v23/phy_radiat.F |
712 |
RADLW |
DFABS(J,K)=DFABS(J,K)+FLUX(J,JB) |
|
./pkg/aim_v23/phy_radiat.F |
714 |
RADLW |
DFABS(J,K)=DFABS(J,K)-FLUX(J,JB) |