| File |
Line number |
Procedure |
Code |
|
./pkg/aim_v23/phy_radiat.F |
170 |
RADSW |
_RL QCLOUD(NGP), ACLOUD(NGP), |
|
./pkg/aim_v23/phy_radiat.F |
210 |
RADSW |
QCLOUD(J)=0. |
|
./pkg/aim_v23/phy_radiat.F |
245 |
RADSW |
& QCLOUD(J)= MAX( QA(J,kGrd(J)), QA(J,NL1(J)) ) |
|
./pkg/aim_v23/phy_radiat.F |
248 |
RADSW |
CLOUDC(J)=CLOUDC(J)*MIN(1. _d 0,QCLOUD(J)*RQCL) |
|
./pkg/aim_v23/phy_radiat.F |
251 |
RADSW |
CLDCLW(J,K)=CLDCLW(J,K)*MIN(1. _d 0,QCLOUD(J)*RQCL) |
|
./pkg/aim_v23/phy_radiat.F |
270 |
RADSW |
ACLOUD(J)=CLOUDC(J)*(ABSCL1+ABSCL2*QCLOUD(J)) |
|
./pkg/aim_v23/phy_radiat.F |
402 |
RADSW |
ACLDLW(J,K)=CLDCLW(J,K)*(ABLCL1+ABLCL2*QCLOUD(J)) |
|
./pkg/aim_v23/phy_radiat.F |
407 |
RADSW |
ACLOUD(J)=CLOUDC(J)*(ABLCL1+ABLCL2*QCLOUD(J)) |