| File |
Line number |
Procedure |
Code |
|
./pkg/aim_v23/com_radvar.h |
28 |
NO PROCEDURE |
_RL STRATC(NGP), FLUX(NGP,NBAND) |
|
./pkg/aim_v23/phy_driver.F |
280 |
PHY_DRIVER |
& OZUPP, STRATC, TAU2, FLUX, ST4A, |
|
./pkg/aim_v23/phy_driver.F |
378 |
PHY_DRIVER |
& OZUPP, STRATC, TAU2, FLUX, ST4A, |
|
./pkg/aim_v23/phy_driver.F |
412 |
PHY_DRIVER |
& OZUPP, STRATC, TAU2, FLUX, ST4A, |
|
./pkg/aim_v23/phy_driver.F |
419 |
PHY_DRIVER |
& OZUPP, STRATC, TAU2, FLUX, ST4A, |
|
./pkg/aim_v23/phy_radiat.F |
220 |
RADSW |
& ALBTOP(NGP,NLEV), FREFL(NGP,NLEV), FLUX(NGP,2) |
|
./pkg/aim_v23/phy_radiat.F |
369 |
RADSW |
FLUX(J,1)=FSOL(J)*FBAND1-OZUPP(J) |
|
./pkg/aim_v23/phy_radiat.F |
370 |
RADSW |
FLUX(J,2)=FSOL(J)*FBAND2 |
|
./pkg/aim_v23/phy_radiat.F |
378 |
RADSW |
DFABS(J,1)=FLUX(J,1) |
|
./pkg/aim_v23/phy_radiat.F |
379 |
RADSW |
FLUX (J,1)=TAU2(J,1,1)*(FLUX(J,1)-OZONE(J)*PSA(J)) |
|
./pkg/aim_v23/phy_radiat.F |
380 |
RADSW |
DFABS(J,1)=DFABS(J,1)-FLUX(J,1) |
|
./pkg/aim_v23/phy_radiat.F |
387 |
RADSW |
FREFL(J,K)=FLUX(J,1)*ALBTOP(J,K) |
|
./pkg/aim_v23/phy_radiat.F |
388 |
RADSW |
FLUX (J,1)=FLUX(J,1)-FREFL(J,K) |
|
./pkg/aim_v23/phy_radiat.F |
389 |
RADSW |
DFABS(J,K)=FLUX(J,1) |
|
./pkg/aim_v23/phy_radiat.F |
390 |
RADSW |
FLUX (J,1)=TAU2(J,K,1)*FLUX(J,1) |
|
./pkg/aim_v23/phy_radiat.F |
391 |
RADSW |
DFABS(J,K)=DFABS(J,K)-FLUX(J,1) |
|
./pkg/aim_v23/phy_radiat.F |
397 |
RADSW |
DFABS(J,K)=DFABS(J,K)+FLUX(J,2) |
|
./pkg/aim_v23/phy_radiat.F |
398 |
RADSW |
FLUX (J,2)=TAU2(J,K,2)*FLUX(J,2) |
|
./pkg/aim_v23/phy_radiat.F |
399 |
RADSW |
DFABS(J,K)=DFABS(J,K)-FLUX(J,2) |
|
./pkg/aim_v23/phy_radiat.F |
410 |
RADSW |
FSFC(J,1)=FLUX(J,1)*(1.-ALB(J,1))+FLUX(J,2) |
|
./pkg/aim_v23/phy_radiat.F |
411 |
RADSW |
FSFC(J,2)=FLUX(J,1)*(1.-ALB(J,2))+FLUX(J,2) |
|
./pkg/aim_v23/phy_radiat.F |
412 |
RADSW |
FSFC(J,3)=FLUX(J,1)*(1.-ALB(J,3))+FLUX(J,2) |
|
./pkg/aim_v23/phy_radiat.F |
414 |
RADSW |
FSFC(J,0)=FLUX(J,1)+FLUX(J,2) |
|
./pkg/aim_v23/phy_radiat.F |
415 |
RADSW |
FLUX(J,1)=FLUX(J,1)*ALB(J,0) |
|
./pkg/aim_v23/phy_radiat.F |
416 |
RADSW |
FSFC(J,0)=FSFC(J,0)-FLUX(J,1) |
|
./pkg/aim_v23/phy_radiat.F |
421 |
RADSW |
UPSWG(J)=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 |
430 |
RADSW |
FLUX (J,1)=TAU2(J,K,1)*FLUX(J,1) |
|
./pkg/aim_v23/phy_radiat.F |
431 |
RADSW |
DFABS(J,K)=DFABS(J,K)-FLUX(J,1) |
|
./pkg/aim_v23/phy_radiat.F |
432 |
RADSW |
FLUX (J,1)=FLUX(J,1)+FREFL(J,K) |
|
./pkg/aim_v23/phy_radiat.F |
442 |
RADSW |
FTOP(J)=FTOP(J)-FLUX(J,1) |
|
./pkg/aim_v23/phy_radiat.F |
511 |
RADLW |
& FLUX, ST4A, |
|
./pkg/aim_v23/phy_radiat.F |
556 |
RADLW |
_RL TAU2(NGP,NLEV,NBAND), FLUX(NGP,NBAND), ST4A(NGP,NLEV,2) |
|
./pkg/aim_v23/phy_radiat.F |
632 |
RADLW |
FLUX(J,JB)=EMIS*BRAD |
|
./pkg/aim_v23/phy_radiat.F |
633 |
RADLW |
DFABS(J,K)=DFABS(J,K)-FLUX(J,JB) |
|
./pkg/aim_v23/phy_radiat.F |
639 |
RADLW |
FLUX(J,JB)=0. |
|
./pkg/aim_v23/phy_radiat.F |
650 |
RADLW |
DFABS(J,K)=DFABS(J,K)+FLUX(J,JB) |
|
./pkg/aim_v23/phy_radiat.F |
651 |
RADLW |
FLUX(J,JB)=TAU2(J,K,JB)*FLUX(J,JB)+EMIS*BRAD |
|
./pkg/aim_v23/phy_radiat.F |
652 |
RADLW |
DFABS(J,K)=DFABS(J,K)-FLUX(J,JB) |
|
./pkg/aim_v23/phy_radiat.F |
659 |
RADLW |
FSFC(J)=FSFC(J)+EMISFC*FLUX(J,JB) |
|
./pkg/aim_v23/phy_radiat.F |
689 |
RADLW |
FLUX(J,JB)=FBAND(NINT(TS(J)),JB)*ST4S(J) |
|
./pkg/aim_v23/phy_radiat.F |
690 |
RADLW |
& +REFSFC*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 |
702 |
RADLW |
FLUX(J,JB)=TAU2(J,K,JB)*FLUX(J,JB)+EMIS*BRAD |
|
./pkg/aim_v23/phy_radiat.F |
703 |
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) |
|
./pkg/aim_v23/phy_radiat.F |
715 |
RADLW |
FLUX(J,JB)=TAU2(J,K,JB)*FLUX(J,JB)+EMIS*ST4A(J,K,1) |
|
./pkg/aim_v23/phy_radiat.F |
716 |
RADLW |
DFABS(J,K)=DFABS(J,K)-FLUX(J,JB) |
|
./pkg/aim_v23/phy_radiat.F |
724 |
RADLW |
FTOP(J)=FTOP(J)+FLUX(J,JB) |