| File |
Line number |
Procedure |
Code |
|
./pkg/aim_v23/phy_radiat.F |
231 |
RADSW |
_RL ABS1, DELTAP |
|
./pkg/aim_v23/phy_radiat.F |
320 |
RADSW |
DELTAP=ZENIT(J)*DSIG(1)*dpFac(J,1) |
|
./pkg/aim_v23/phy_radiat.F |
321 |
RADSW |
TAU2(J,1,1)=EXP(-DELTAP*ABSDRY) |
|
./pkg/aim_v23/phy_radiat.F |
329 |
RADSW |
DELTAP=ZENIT(J)*DSIG(K)*dpFac(J,K) |
|
./pkg/aim_v23/phy_radiat.F |
331 |
RADSW |
TAU2(J,K,1)=EXP(-DELTAP* |
|
./pkg/aim_v23/phy_radiat.F |
334 |
RADSW |
TAU2(J,K,1)=EXP(-DELTAP* |
|
./pkg/aim_v23/phy_radiat.F |
337 |
RADSW |
TAU2(J,K,1)=EXP(-DELTAP*(ABS1+ABSWV1*QA(J,K))) |
|
./pkg/aim_v23/phy_radiat.F |
347 |
RADSW |
DELTAP=ZENIT(J)*DSIG(K)*dpFac(J,K) |
|
./pkg/aim_v23/phy_radiat.F |
348 |
RADSW |
TAU2(J,K,1)=EXP(-DELTAP*(ABS1+ABSWV1*QA(J,K))) |
|
./pkg/aim_v23/phy_radiat.F |
353 |
RADSW |
DELTAP=ZENIT(J)*DSIG(K)*dpFac(J,K) |
|
./pkg/aim_v23/phy_radiat.F |
354 |
RADSW |
TAU2(J,K,2)=EXP(-DELTAP*ABSWV2*QA(J,K)) |
|
./pkg/aim_v23/phy_radiat.F |
463 |
RADSW |
DELTAP=DSIG(1)*dpFac(J,1) |
|
./pkg/aim_v23/phy_radiat.F |
464 |
RADSW |
TAU2(J,1,1)=EXP(-DELTAP*ABLWIN) |
|
./pkg/aim_v23/phy_radiat.F |
465 |
RADSW |
TAU2(J,1,2)=EXP(-DELTAP*ABLCO2) |
|
./pkg/aim_v23/phy_radiat.F |
473 |
RADSW |
DELTAP=DSIG(K)*dpFac(J,K) |
|
./pkg/aim_v23/phy_radiat.F |
476 |
RADSW |
TAU2(J,K,1)=EXP(-DELTAP*(ABLWIN+ACLDLW(J,K))) |
|
./pkg/aim_v23/phy_radiat.F |
478 |
RADSW |
TAU2(J,K,1)=EXP(-DELTAP*(ABLWIN+ACLOUD(J))) |
|
./pkg/aim_v23/phy_radiat.F |
481 |
RADSW |
TAU2(J,K,1)=EXP(-DELTAP*ABLWIN) |
|
./pkg/aim_v23/phy_radiat.F |
483 |
RADSW |
TAU2(J,K,2)=EXP(-DELTAP*ABLCO2) |
|
./pkg/aim_v23/phy_radiat.F |
484 |
RADSW |
TAU2(J,K,3)=EXP(-DELTAP*ABLWV1*QA(J,K)) |
|
./pkg/aim_v23/phy_radiat.F |
485 |
RADSW |
TAU2(J,K,4)=EXP(-DELTAP*ABLWV2*QA(J,K)) |