| File |
Line number |
Procedure |
Code |
|
./pkg/aim_v23/phy_driver.F |
117 |
PHY_DRIVER |
INTEGER ICLTOP(NGP) |
|
./pkg/aim_v23/phy_driver.F |
180 |
PHY_DRIVER |
O ICLTOP,CBMF(1,myThid),PRECNV(1,myThid), |
|
./pkg/aim_v23/phy_driver.F |
203 |
PHY_DRIVER |
I PSG, dpFac, SE, ICLTOP, |
|
./pkg/aim_v23/phy_driver.F |
247 |
PHY_DRIVER |
ICLTOP(1) = 1 |
|
./pkg/aim_v23/phy_driver.F |
251 |
PHY_DRIVER |
O ICLTOP,CLOUDC(1,myThid), |
|
./pkg/aim_v23/phy_driver.F |
257 |
PHY_DRIVER |
CLTOP(J,myThid)=SIGH(ICLTOP(J)-1)*PSG_1(J) |
|
./pkg/aim_v23/phy_radiat.F |
161 |
RADSW |
O ICLTOP,CLOUDC,FTOP,FSFC,UPSWG,DFABS, |
|
./pkg/aim_v23/phy_radiat.F |
201 |
RADSW |
INTEGER ICLTOP(NGP) |
|
./pkg/aim_v23/phy_radiat.F |
251 |
RADSW |
makeClouds = ICLTOP(1) .GE. 0 |
|
./pkg/aim_v23/phy_radiat.F |
258 |
RADSW |
ICLTOP(J)=NLEV+1 |
|
./pkg/aim_v23/phy_radiat.F |
276 |
RADSW |
ICLTOP(J)= kGrd(J) |
|
./pkg/aim_v23/phy_radiat.F |
281 |
RADSW |
IF (QA(J,K).GT.QACL3) ICLTOP(J)=K |
|
./pkg/aim_v23/phy_radiat.F |
301 |
RADSW |
ALBTOP(J,ICLTOP(J))=ALBCL*CLOUDC(J) |
|
./pkg/aim_v23/phy_radiat.F |
303 |
RADSW |
ICLTOP(J)=NLEV+1 |
|
./pkg/aim_v23/phy_radiat.F |
332 |
RADSW |
IF (K.EQ.ICLTOP(J)) THEN |
|
./pkg/aim_v23/phy_radiat.F |
335 |
RADSW |
ELSE IF (K.GT.ICLTOP(J)) THEN |
|
./pkg/aim_v23/phy_radiat.F |
476 |
RADSW |
IF ( K.GE.ICLTOP(J).AND.K.NE.kGrd(J) ) THEN |