| File |
Line number |
Procedure |
Code |
|
./pkg/aim_v23/phy_radiat.F |
111 |
RADSW |
O ICLTOP,CLOUDC,FTOP,FSFC,DFABS, |
|
./pkg/aim_v23/phy_radiat.F |
154 |
RADSW |
INTEGER ICLTOP(NGP) |
|
./pkg/aim_v23/phy_radiat.F |
200 |
RADSW |
makeClouds = ICLTOP(1) .GE. 0 |
|
./pkg/aim_v23/phy_radiat.F |
207 |
RADSW |
ICLTOP(J)=NLEV+1 |
|
./pkg/aim_v23/phy_radiat.F |
222 |
RADSW |
ICLTOP(J)= kGrd(J) |
|
./pkg/aim_v23/phy_radiat.F |
227 |
RADSW |
IF (QA(J,K).GT.QACL3) ICLTOP(J)=K |
|
./pkg/aim_v23/phy_radiat.F |
238 |
RADSW |
ALBTOP(J,ICLTOP(J))=ALBCL*CLOUDC(J) |
|
./pkg/aim_v23/phy_radiat.F |
240 |
RADSW |
ICLTOP(J)=NLEV+1 |
|
./pkg/aim_v23/phy_radiat.F |
269 |
RADSW |
IF (K.EQ.ICLTOP(J)) THEN |
|
./pkg/aim_v23/phy_radiat.F |
272 |
RADSW |
ELSE IF (K.GT.ICLTOP(J)) THEN |
|
./pkg/aim_v23/phy_radiat.F |
396 |
RADSW |
IF ( K.GE.ICLTOP(J).AND.K.NE.kGrd(J) ) THEN |
|
./pkg/aim_v23/phy_driver.F |
142 |
PHY_DRIVER |
O ICLTOP,CBMF(1,myThid),PRECNV(1,myThid), |
|
./pkg/aim_v23/phy_driver.F |
165 |
PHY_DRIVER |
I PSG, dpFac, SE, ICLTOP, |
|
./pkg/aim_v23/phy_driver.F |
201 |
PHY_DRIVER |
ICLTOP(1) = 1 |
|
./pkg/aim_v23/phy_driver.F |
205 |
PHY_DRIVER |
O ICLTOP,CLOUDC(1,myThid), |
|
./pkg/aim_v23/phy_driver.F |
210 |
PHY_DRIVER |
CLTOP(J,myThid)=SIGH(ICLTOP(J)-1)*PSG_1(J) |
|
./pkg/aim_v23/phy_driver.F |
81 |
PHY_DRIVER |
INTEGER ICLTOP(NGP) |