| File |
Line number |
Procedure |
Code |
|
./pkg/aim_v23/aim_readparms.F |
203 |
AIM_READPARMS |
& RHCL1, RHCL2, QACL1, QACL2, ALBCL, |
|
./pkg/aim_v23/aim_readparms.F |
567 |
AIM_READPARMS |
CALL WRITE_0D_RL( RHCL1, INDEX_NONE,'AIM_RAD: RHCL1 =', |
|
./pkg/aim_v23/com_radcon.h |
30 |
NO PROCEDURE |
COMMON /RADCON/ RHCL1, RHCL2, QACL1, QACL2, ALBCL, |
|
./pkg/aim_v23/com_radcon.h |
34 |
NO PROCEDURE |
_RL RHCL1, RHCL2, QACL1, QACL2, ALBCL |
|
./pkg/aim_v23/phy_const.h |
38 |
NO PROCEDURE |
RHCL1 = 0.45 _d 0 |
|
./pkg/aim_v23/phy_radiat.F |
252 |
RADSW |
RRCL=1./(RHCL2-RHCL1) |
|
./pkg/aim_v23/phy_radiat.F |
279 |
RADSW |
IF (RH(J,K).GT.RHCL1.AND.QA(J,K).GT.QACL1) THEN |
|
./pkg/aim_v23/phy_radiat.F |
280 |
RADSW |
CLOUDC(J)=MAX(CLOUDC(J),RH(J,K)-RHCL1) |
|
./pkg/aim_v23/phy_radiat.F |
283 |
RADSW |
CLDCLW(J,K)=MAX(0. _d 0,RH(J,K)-RHCL1) |