| 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 |
270 |
PHY_DRIVER |
& OZUPP, STRATC, TAU2, FLUX, ST4A, |
|
./pkg/aim_v23/phy_driver.F |
368 |
PHY_DRIVER |
& OZUPP, STRATC, TAU2, FLUX, ST4A, |
|
./pkg/aim_v23/phy_driver.F |
402 |
PHY_DRIVER |
& OZUPP, STRATC, TAU2, FLUX, ST4A, |
|
./pkg/aim_v23/phy_driver.F |
409 |
PHY_DRIVER |
& OZUPP, STRATC, TAU2, FLUX, ST4A, |
|
./pkg/aim_v23/phy_radiat.F |
218 |
RADSW |
& ALBTOP(NGP,NLEV), FREFL(NGP,NLEV), FLUX(NGP,2) |
|
./pkg/aim_v23/phy_radiat.F |
367 |
RADSW |
FLUX(J,1)=FSOL(J)*FBAND1-OZUPP(J) |
|
./pkg/aim_v23/phy_radiat.F |
368 |
RADSW |
FLUX(J,2)=FSOL(J)*FBAND2 |
|
./pkg/aim_v23/phy_radiat.F |
376 |
RADSW |
DFABS(J,1)=FLUX(J,1) |
|
./pkg/aim_v23/phy_radiat.F |
377 |
RADSW |
FLUX (J,1)=TAU2(J,1,1)*(FLUX(J,1)-OZONE(J)*PSA(J)) |
|
./pkg/aim_v23/phy_radiat.F |
378 |
RADSW |
DFABS(J,1)=DFABS(J,1)-FLUX(J,1) |
|
./pkg/aim_v23/phy_radiat.F |
385 |
RADSW |
FREFL(J,K)=FLUX(J,1)*ALBTOP(J,K) |
|
./pkg/aim_v23/phy_radiat.F |
386 |
RADSW |
FLUX (J,1)=FLUX(J,1)-FREFL(J,K) |
|
./pkg/aim_v23/phy_radiat.F |
387 |
RADSW |
DFABS(J,K)=FLUX(J,1) |
|
./pkg/aim_v23/phy_radiat.F |
388 |
RADSW |
FLUX (J,1)=TAU2(J,K,1)*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 |
396 |
RADSW |
FLUX (J,2)=TAU2(J,K,2)*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 |
408 |
RADSW |
FSFC(J,1)=FLUX(J,1)*(1.-ALB(J,1))+FLUX(J,2) |
|
./pkg/aim_v23/phy_radiat.F |
409 |
RADSW |
FSFC(J,2)=FLUX(J,1)*(1.-ALB(J,2))+FLUX(J,2) |
|
./pkg/aim_v23/phy_radiat.F |
410 |
RADSW |
FSFC(J,3)=FLUX(J,1)*(1.-ALB(J,3))+FLUX(J,2) |
|
./pkg/aim_v23/phy_radiat.F |
412 |
RADSW |
FSFC(J,0)=FLUX(J,1)+FLUX(J,2) |
|
./pkg/aim_v23/phy_radiat.F |
413 |
RADSW |
FLUX(J,1)=FLUX(J,1)*ALB(J,0) |
|
./pkg/aim_v23/phy_radiat.F |
414 |
RADSW |
FSFC(J,0)=FSFC(J,0)-FLUX(J,1) |
|
./pkg/aim_v23/phy_radiat.F |
419 |
RADSW |
UPSWG(J)=FLUX(J,1) |
|
./pkg/aim_v23/phy_radiat.F |
427 |
RADSW |
DFABS(J,K)=DFABS(J,K)+FLUX(J,1) |
|
./pkg/aim_v23/phy_radiat.F |
428 |
RADSW |
FLUX (J,1)=TAU2(J,K,1)*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)=FLUX(J,1)+FREFL(J,K) |
|
./pkg/aim_v23/phy_radiat.F |
440 |
RADSW |
FTOP(J)=FTOP(J)-FLUX(J,1) |
|
./pkg/aim_v23/phy_radiat.F |
509 |
RADLW |
& FLUX, ST4A, |
|
./pkg/aim_v23/phy_radiat.F |
554 |
RADLW |
_RL TAU2(NGP,NLEV,NBAND), FLUX(NGP,NBAND), ST4A(NGP,NLEV,2) |
|
./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 |
637 |
RADLW |
FLUX(J,JB)=0. |
|
./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 |
657 |
RADLW |
FSFC(J)=FSFC(J)+EMISFC*FLUX(J,JB) |
|
./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 |
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 |
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 |
722 |
RADLW |
FTOP(J)=FTOP(J)+FLUX(J,JB) |