| File |
Line number |
Procedure |
Code |
|
./pkg/aim_v23/phy_driver.F |
116 |
PHY_DRIVER |
INTEGER ICLTOP(NGP) |
|
./pkg/aim_v23/phy_driver.F |
177 |
PHY_DRIVER |
O ICLTOP,CBMF(1,myThid),PRECNV(1,myThid), |
|
./pkg/aim_v23/phy_driver.F |
200 |
PHY_DRIVER |
I PSG, dpFac, SE, ICLTOP, |
|
./pkg/aim_v23/phy_driver.F |
236 |
PHY_DRIVER |
ICLTOP(1) = 1 |
|
./pkg/aim_v23/phy_driver.F |
240 |
PHY_DRIVER |
O ICLTOP,CLOUDC(1,myThid), |
|
./pkg/aim_v23/phy_driver.F |
245 |
PHY_DRIVER |
CLTOP(J,myThid)=SIGH(ICLTOP(J)-1)*PSG_1(J) |
|
./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 |
204 |
RADSW |
makeClouds = ICLTOP(1) .GE. 0 |
|
./pkg/aim_v23/phy_radiat.F |
211 |
RADSW |
ICLTOP(J)=NLEV+1 |
|
./pkg/aim_v23/phy_radiat.F |
229 |
RADSW |
ICLTOP(J)= kGrd(J) |
|
./pkg/aim_v23/phy_radiat.F |
234 |
RADSW |
IF (QA(J,K).GT.QACL3) ICLTOP(J)=K |
|
./pkg/aim_v23/phy_radiat.F |
254 |
RADSW |
ALBTOP(J,ICLTOP(J))=ALBCL*CLOUDC(J) |
|
./pkg/aim_v23/phy_radiat.F |
256 |
RADSW |
ICLTOP(J)=NLEV+1 |
|
./pkg/aim_v23/phy_radiat.F |
285 |
RADSW |
IF (K.EQ.ICLTOP(J)) THEN |
|
./pkg/aim_v23/phy_radiat.F |
288 |
RADSW |
ELSE IF (K.GT.ICLTOP(J)) THEN |
|
./pkg/aim_v23/phy_radiat.F |
424 |
RADSW |
IF ( K.GE.ICLTOP(J).AND.K.NE.kGrd(J) ) THEN |