| File |
Line number |
Procedure |
Code |
|
./pkg/aim_v23/phy_radiat.F |
214 |
RADSW |
_RL CLDCLW(NGP,NLEV), ACLDLW(NGP,NLEV) |
|
./pkg/aim_v23/phy_radiat.F |
259 |
RADSW |
CLDCLW(J,K)=0. |
|
./pkg/aim_v23/phy_radiat.F |
276 |
RADSW |
CLDCLW(J,K)=MAX(0. _d 0,RH(J,K)-RHCL1) |
|
./pkg/aim_v23/phy_radiat.F |
277 |
RADSW |
CLDCLW(J,K)=MIN(1. _d 0,CLDCLW(J,K)*RRCL) |
|
./pkg/aim_v23/phy_radiat.F |
291 |
RADSW |
CLDCLW(J,K)=CLDCLW(J,K)*MIN(1. _d 0,QCLOUD(J)*RQCL) |
|
./pkg/aim_v23/phy_radiat.F |
447 |
RADSW |
ACLDLW(J,K)=CLDCLW(J,K)*(ABLCL1+ABLCL2*QCLOUD(J)) |
|
./pkg/aim_v23/phy_radiat.F |
485 |
RADSW |
CALL DIAGNOSTICS_FILL( CLDCLW, |