File |
Line number |
Procedure |
Code |
./pkg/aim_v23/phy_radiat.F |
233 |
RADSW |
_RL ABS1, DELTAP |
./pkg/aim_v23/phy_radiat.F |
330 |
RADSW |
ABS1=ABSDRY+ABSAER*(SIG(K)/PSA(J))**2 |
./pkg/aim_v23/phy_radiat.F |
334 |
RADSW |
& (ABS1+ABSWV1*QA(J,K)+2.*ACLOUD(J))) |
./pkg/aim_v23/phy_radiat.F |
337 |
RADSW |
& (ABS1+ABSWV1*QA(J,K)+ACLOUD(J))) |
./pkg/aim_v23/phy_radiat.F |
339 |
RADSW |
TAU2(J,K,1)=EXP(-DELTAP*(ABS1+ABSWV1*QA(J,K))) |
./pkg/aim_v23/phy_radiat.F |
347 |
RADSW |
ABS1=ABSDRY+ABSAER*(SIG(K)/PSA(J))**2 |
./pkg/aim_v23/phy_radiat.F |
350 |
RADSW |
TAU2(J,K,1)=EXP(-DELTAP*(ABS1+ABSWV1*QA(J,K))) |