| File |
Line number |
Procedure |
Code |
|
./pkg/aim/phy_radiat.F |
129 |
RADSW |
_RL CLOUDC(NGP), FTOP(NGP), FSFC(NGP), DFABS(NGP,NLEV) |
|
./pkg/aim/phy_radiat.F |
172 |
RADSW |
DFABS(J,K)=0. |
|
./pkg/aim/phy_radiat.F |
223 |
RADSW |
DFABS(J,1)=FSOL(J)-FLUX(J) |
|
./pkg/aim/phy_radiat.F |
242 |
RADSW |
DFABS(J,K)=FLUX(J) |
|
./pkg/aim/phy_radiat.F |
244 |
RADSW |
DFABS(J,K)=DFABS(J,K)-FLUX(J) |
|
./pkg/aim/phy_radiat.F |
264 |
RADSW |
DFABS(J,K)=DFABS(J,K)+FLUX(J) |
|
./pkg/aim/phy_radiat.F |
266 |
RADSW |
DFABS(J,K)=DFABS(J,K)-FLUX(J) |
|
./pkg/aim/phy_radiat.F |
374 |
RADLW |
* FTOP,FSFC,DFABS,FDOWN, |
|
./pkg/aim/phy_radiat.F |
416 |
RADLW |
_RL FTOP(NGP), FSFC(NGP), DFABS(NGP,NLEV) |
|
./pkg/aim/phy_radiat.F |
449 |
RADLW |
DFABS(J,K)=0. |
|
./pkg/aim/phy_radiat.F |
508 |
RADLW |
DFABS(J,1)=STCOR(J)-FLUX(J) |
|
./pkg/aim/phy_radiat.F |
515 |
RADLW |
DFABS(J,K)=FLUX(J) |
|
./pkg/aim/phy_radiat.F |
518 |
RADLW |
DFABS(J,K)=DFABS(J,K)-FLUX(J) |
|
./pkg/aim/phy_radiat.F |
580 |
RADLW |
DFABS(J,K)=DFABS(J,K)+FLUX(J) |
|
./pkg/aim/phy_radiat.F |
583 |
RADLW |
DFABS(J,K)=DFABS(J,K)-FLUX(J) |
|
./pkg/aim/phy_radiat.F |
589 |
RADLW |
DFABS(J,1)=DFABS(J,1)+FLUX(J) |
|
./pkg/aim/phy_radiat.F |
591 |
RADLW |
DFABS(J,1)=DFABS(J,1)-FLUX(J) |
|
./pkg/aim/phy_radiat.F |
85 |
RADSW |
* CLOUDC,FTOP,FSFC,DFABS, |
|
./pkg/aim_v23/phy_radiat.F |
111 |
RADSW |
O ICLTOP,CLOUDC,FTOP,FSFC,DFABS, |
|
./pkg/aim_v23/phy_radiat.F |
155 |
RADSW |
_RL CLOUDC(NGP), FTOP(NGP), FSFC(NGP,0:3), DFABS(NGP,NLEV) |
|
./pkg/aim_v23/phy_radiat.F |
315 |
RADSW |
DFABS(J,1)=FLUX(J,1) |
|
./pkg/aim_v23/phy_radiat.F |
317 |
RADSW |
DFABS(J,1)=DFABS(J,1)-FLUX(J,1) |
|
./pkg/aim_v23/phy_radiat.F |
326 |
RADSW |
DFABS(J,K)=FLUX(J,1) |
|
./pkg/aim_v23/phy_radiat.F |
328 |
RADSW |
DFABS(J,K)=DFABS(J,K)-FLUX(J,1) |
|
./pkg/aim_v23/phy_radiat.F |
334 |
RADSW |
DFABS(J,K)=DFABS(J,K)+FLUX(J,2) |
|
./pkg/aim_v23/phy_radiat.F |
336 |
RADSW |
DFABS(J,K)=DFABS(J,K)-FLUX(J,2) |
|
./pkg/aim_v23/phy_radiat.F |
360 |
RADSW |
DFABS(J,K)=DFABS(J,K)+FLUX(J,1) |
|
./pkg/aim_v23/phy_radiat.F |
362 |
RADSW |
DFABS(J,K)=DFABS(J,K)-FLUX(J,1) |
|
./pkg/aim_v23/phy_radiat.F |
417 |
RADLW |
& FTOP,FSFC,DFABS, |
|
./pkg/aim_v23/phy_radiat.F |
465 |
RADLW |
_RL FTOP(NGP), FSFC(NGP), DFABS(NGP,NLEV) |
|
./pkg/aim_v23/phy_radiat.F |
523 |
RADLW |
DFABS(J,1)=-STRATC(J) |
|
./pkg/aim_v23/phy_radiat.F |
528 |
RADLW |
DFABS(J,K)=0. |
|
./pkg/aim_v23/phy_radiat.F |
545 |
RADLW |
DFABS(J,K)=DFABS(J,K)-FLUX(J,JB) |
|
./pkg/aim_v23/phy_radiat.F |
562 |
RADLW |
DFABS(J,K)=DFABS(J,K)+FLUX(J,JB) |
|
./pkg/aim_v23/phy_radiat.F |
564 |
RADLW |
DFABS(J,K)=DFABS(J,K)-FLUX(J,JB) |
|
./pkg/aim_v23/phy_radiat.F |
613 |
RADLW |
DFABS(J,K)=DFABS(J,K)+FLUX(J,JB) |
|
./pkg/aim_v23/phy_radiat.F |
615 |
RADLW |
DFABS(J,K)=DFABS(J,K)-FLUX(J,JB) |
|
./pkg/aim_v23/phy_radiat.F |
626 |
RADLW |
DFABS(J,K)=DFABS(J,K)+FLUX(J,JB) |
|
./pkg/aim_v23/phy_radiat.F |
628 |
RADLW |
DFABS(J,K)=DFABS(J,K)-FLUX(J,JB) |