Symbol Description Uses
NLEVxy 92


File Line number Procedure Code
./pkg/aim/phy_suflux.F 164 SUFLUX 
       IF ( NLEVxy(J,myThid) .GT. 0 ) THEN
./pkg/aim/phy_suflux.F 165 SUFLUX 
        Q0(J)=FHUM0*Q0(J)+GHUM0*QA(J,NLEVxy(J,myThid))
./pkg/aim/phy_suflux.F 219 SUFLUX 
       IF ( NLEVxy(J,myThid) .GT. 0  ) THEN
./pkg/aim/phy_lscond.F 79 LSCOND 
        DO K=2,NLEVxy(J,myThid)
./pkg/aim/phy_convmf.F 110 CONVMF 
        DO K=2,NLEVxy(J,myThid)-1
./pkg/aim/phy_convmf.F 129 CONVMF 
        DO k=1,NLEVxy(J,myThid)
./pkg/aim/phy_convmf.F 136 CONVMF 
        IF ( NLEVxy(J,myThid) .NE. 0 ) THEN
./pkg/aim/phy_convmf.F 137 CONVMF 
         dThdp(J,NLEVxy(J,myThid))=0.
./pkg/aim/phy_convmf.F 139 CONVMF 
        DO k=2,NLEVxy(J,myThid)
./pkg/aim/phy_convmf.F 146 CONVMF 
       IF ( NLEVxy(J,myThid) .NE. 0 ) THEN
./pkg/aim/phy_convmf.F 147 CONVMF 
        dThdpHat(J,NLEVxy(J,myThid))=dThdp(J,NLEVxy(J,myThid))
./pkg/aim/phy_convmf.F 152 CONVMF 
        DO k=NLEVxy(J,myThid)-1,2,-1
./pkg/aim/phy_convmf.F 158 CONVMF 
        DO k=2,NLEVxy(J,myThid)-1
./pkg/aim/phy_convmf.F 160 CONVMF 
     &       dThdpHat(J,K)+ALHC*(QSAT(J,K)-QSAT(J,NLEVxy(J,myThid)))
./pkg/aim/phy_convmf.F 166 CONVMF 
        DO K=NLEVxy(J,myThid)-2,2,-1
./pkg/aim/phy_convmf.F 174 CONVMF 
        IF ( NLEVxy(J,myThid) .NE. 0 ) THEN
./pkg/aim/phy_convmf.F 175 CONVMF 
         IF (QA(J,NLEVxy(J,myThid)).LT.RHBL*QSAT(J,NLEVxy(J,myThid)))
./pkg/aim/phy_convmf.F 176 CONVMF 
     &          ITOP(J)=NLEVxy(J,myThid)
./pkg/aim/phy_convmf.F 178 CONVMF 
        IDEPTH(J)=NLEVxy(J,myThid)-ITOP(J)
./pkg/aim/phy_convmf.F 184 CONVMF 
      IF (ITOP(J).EQ.NLEVxy(J,myThid)) GO TO 300
./pkg/aim/phy_convmf.F 188 CONVMF 
        K =NLEVxy(J,myThid)
./pkg/aim/phy_convmf.F 221 CONVMF 
        DO K=NLEVxy(J,myThid)-1,ITOP(J)+1,-1
./pkg/aim/phy_convmf.F 81 CONVMF 
       IF ( NLEVxy(J,myThid) .NE. 0 ) THEN
./pkg/aim/phy_convmf.F 82 CONVMF 
        FM0(J)=P0*DSIG(NLEVxy(J,myThid))/(GG*TRCNV*3600)
./pkg/aim/phy_convmf.F 96 CONVMF 
        ITOP(J)  =NLEVxy(J,myThid)
./pkg/aim/phy_radiat.F 153 RADSW 
        NL1(J)=NLEVxy(J,myThid)-1
./pkg/aim/phy_radiat.F 210 RADSW 
       IF ( NLEVxy(J,myThid) .GT. 0 ) THEN
./pkg/aim/phy_radiat.F 211 RADSW 
        TAU(J,NLEVxy(J,myThid))=
./pkg/aim/phy_radiat.F 212 RADSW 
     &    EXP(-(ABSSW+ABWSW*QA(J,NLEVxy(J,myThid)))
./pkg/aim/phy_radiat.F 213 RADSW 
     &                           *PSA(J)*DSIG(NLEVxy(J,myThid)))
./pkg/aim/phy_radiat.F 241 RADSW 
      DO 332 K=2,NLEVxy(J,myThid)
./pkg/aim/phy_radiat.F 263 RADSW 
      DO 422 K=NLEVxy(J,myThid),1,-1
./pkg/aim/phy_radiat.F 357 RADSW 
       IF ( NLEVxy(J,myThid) .GT. 0 ) THEN
./pkg/aim/phy_radiat.F 359 RADSW 
        TAU(J,NLEVxy(J,myThid))=
./pkg/aim/phy_radiat.F 360 RADSW 
     &   EXP(-(ABSLW+ABWLW*QA(J,NLEVxy(J,myThid)))*PSA(J)
./pkg/aim/phy_radiat.F 361 RADSW 
     &                     *DSIG(NLEVxy(J,myThid)))
./pkg/aim/phy_radiat.F 443 RADLW 
        NL1(J)=NLEVxy(J,myThid)-1
./pkg/aim/phy_radiat.F 460 RADLW 
      DO 102 K=1,NLEVxy(J,myThid)
./pkg/aim/phy_radiat.F 474 RADLW 
       IF ( NLEVxy(J,myThid) .GT. 0 ) THEN
./pkg/aim/phy_radiat.F 475 RADLW 
        ST4A(J,NLEVxy(J,myThid),2)=
./pkg/aim/phy_radiat.F 476 RADLW 
     &     2.*ST4A(J,NLEVxy(J,myThid),1)-ST4A(J,NL1(J),2)
./pkg/aim/phy_radiat.F 514 RADLW 
      DO 322 K=2,NLEVxy(J,myThid)
./pkg/aim/phy_radiat.F 579 RADLW 
      DO 422 K=NLEVxy(J,myThid),2,-1
./pkg/aim/phy_driver.F 222 PDRIVER 
       IF ( NLEVxy(J,myThid) .GT. 0 ) THEN
./pkg/aim/phy_driver.F 223 PDRIVER 
        UT_PBL(J,NLEVxy(J,myThid),myThid)=
./pkg/aim/phy_driver.F 224 PDRIVER 
     &        UT_PBL(J,NLEVxy(J,myThid),myThid)+ USTR(J,3,myThid)
./pkg/aim/phy_driver.F 225 PDRIVER 
        VT_PBL(J,NLEVxy(J,myThid),myThid)=
./pkg/aim/phy_driver.F 226 PDRIVER 
     &        VT_PBL(J,NLEVxy(J,myThid),myThid)+ VSTR(J,3,myThid)
./pkg/aim/phy_driver.F 227 PDRIVER 
        TT_PBL(J,NLEVxy(J,myThid),myThid)=
./pkg/aim/phy_driver.F 228 PDRIVER 
     &        TT_PBL(J,NLEVxy(J,myThid),myThid)+ SHF(J,3,myThid)
./pkg/aim/phy_driver.F 229 PDRIVER 
        QT_PBL(J,NLEVxy(J,myThid),myThid)=
./pkg/aim/phy_driver.F 230 PDRIVER 
     &        QT_PBL(J,NLEVxy(J,myThid),myThid)+ EVAP(J,3,myThid)
./pkg/aim/phy_driver.F 236 PDRIVER 
       IF ( NLEVxy(J,myThid) .GT. 0 ) THEN
./pkg/aim/phy_driver.F 237 PDRIVER 
        DO K=NLEVxy(J,myThid)-1,NLEVxy(J,myThid)
./pkg/aim/AIM_GRID.h 14 NO PROCEDURE 
      COMMON /NB_LEVELS/ NLEVxy, NLEVxyU, NLEVxyV
./pkg/aim/AIM_GRID.h 15 NO PROCEDURE 
      INTEGER NLEVxy  (NGP, MAX_NO_THREADS)