| File |
Line number |
Procedure |
Code |
|
./pkg/aim_v23/phy_radiat.F |
219 |
RADSW |
_RL QCLOUD(NGP), ACLOUD(NGP), |
|
./pkg/aim_v23/phy_radiat.F |
257 |
RADSW |
QCLOUD(J)=0. |
|
./pkg/aim_v23/phy_radiat.F |
292 |
RADSW |
& QCLOUD(J)= MAX( QA(J,kGrd(J)), QA(J,NL1(J)) ) |
|
./pkg/aim_v23/phy_radiat.F |
295 |
RADSW |
CLOUDC(J)=CLOUDC(J)*MIN(1. _d 0,QCLOUD(J)*RQCL) |
|
./pkg/aim_v23/phy_radiat.F |
298 |
RADSW |
CLDCLW(J,K)=CLDCLW(J,K)*MIN(1. _d 0,QCLOUD(J)*RQCL) |
|
./pkg/aim_v23/phy_radiat.F |
317 |
RADSW |
ACLOUD(J)=CLOUDC(J)*(ABSCL1+ABSCL2*QCLOUD(J)) |
|
./pkg/aim_v23/phy_radiat.F |
454 |
RADSW |
ACLDLW(J,K)=CLDCLW(J,K)*(ABLCL1+ABLCL2*QCLOUD(J)) |
|
./pkg/aim_v23/phy_radiat.F |
459 |
RADSW |
ACLOUD(J)=CLOUDC(J)*(ABLCL1+ABLCL2*QCLOUD(J)) |