| File |
Line number |
Procedure |
Code |
|
./pkg/aim_v23/phy_radiat.F |
183 |
RADSW |
_RL ABS1, DELTAP |
|
./pkg/aim_v23/phy_radiat.F |
267 |
RADSW |
ABS1=ABSDRY+ABSAER*(SIG(K)/PSA(J))**2 |
|
./pkg/aim_v23/phy_radiat.F |
271 |
RADSW |
& (ABS1+ABSWV1*QA(J,K)+2.*ACLOUD(J))) |
|
./pkg/aim_v23/phy_radiat.F |
274 |
RADSW |
& (ABS1+ABSWV1*QA(J,K)+ACLOUD(J))) |
|
./pkg/aim_v23/phy_radiat.F |
276 |
RADSW |
TAU2(J,K,1)=EXP(-DELTAP*(ABS1+ABSWV1*QA(J,K))) |
|
./pkg/aim_v23/phy_radiat.F |
284 |
RADSW |
ABS1=ABSDRY+ABSAER*(SIG(K)/PSA(J))**2 |
|
./pkg/aim_v23/phy_radiat.F |
287 |
RADSW |
TAU2(J,K,1)=EXP(-DELTAP*(ABS1+ABSWV1*QA(J,K))) |