Symbol Description Uses
land_nLev Nunber of soil layers for land model 77



File Line number Procedure Code
./pkg/diagnostics/diagnostics_set_levels.F 52 DIAGNOSTICS_SET_LEVELS
      INTEGER land_nLev
./pkg/diagnostics/diagnostics_set_levels.F 53 DIAGNOSTICS_SET_LEVELS
      PARAMETER ( land_nLev = 0 )
./pkg/diagnostics/diagnostics_set_levels.F 73 DIAGNOSTICS_SET_LEVELS
      nGroundLev = land_nLev
./pkg/diagnostics/diagstats_others_calc.F 196 DIAGSTATS_G_CALC
          kl = MIN(k,land_nLev)
./pkg/aim_v23/aim_land2aim.F 101 AIM_LAND2AIM
        DO k=1,land_nLev
./pkg/aim_v23/aim_land2aim.F 145 AIM_LAND2AIM
        kFillW = land_nLev
./pkg/aim_v23/aim_land2aim.F 161 AIM_LAND2AIM
            DO k=1,land_nLev
./pkg/land/land_initialise.F 64 LAND_INITIALISE
     &       land_nLev, myThid)
./pkg/land/land_impl_temp.F 141 LAND_IMPL_TEMP
          DO k=1,land_nLev
./pkg/land/land_impl_temp.F 345 LAND_IMPL_TEMP
          DO k=1,land_nLev
./pkg/land/land_impl_temp.F 81 LAND_IMPL_TEMP
      _RL tSurf, tg(land_nLev), eg(land_nLev)
./pkg/land/land_impl_temp.F 82 LAND_IMPL_TEMP
      _RL cg(land_nLev), mW(land_nLev)
./pkg/land/land_write_pickup.F 69 LAND_WRITE_PICKUP
      CALL MDSWRITEFIELD(fn,prec,lgf,'RL',land_nLev,
./pkg/land/land_write_pickup.F 71 LAND_WRITE_PICKUP
      CALL MDSWRITEFIELD(fn,prec,lgf,'RL',land_nLev,
./pkg/land/land_write_pickup.F 73 LAND_WRITE_PICKUP
      k=2*land_nLev
./pkg/land/land_monitor.F 172 LAND_MONITOR
     I                land_nLev, 1, 0, nLatBnd, yBand,
./pkg/land/land_monitor.F 217 LAND_MONITOR
     I                land_nLev, 1, 1, nLatBnd, yBand,
./pkg/land/land_monitor.F 245 LAND_MONITOR
     I                land_nLev, 1, 2, nLatBnd, yBand,
./pkg/land/land_monitor.F 273 LAND_MONITOR
     I                land_nLev, 1, 0, nLatBnd, yBand,
./pkg/land/land_monitor.F 68 LAND_MONITOR
      _RS yBand(nLatBnd), locDr(land_nLev)
./pkg/land/land_monitor.F 82 LAND_MONITOR
        DO k=1,land_nLev
./pkg/land/land_readparms.F 157 LAND_READPARMS
      DO k=1,land_nLev
./pkg/land/land_readparms.F 191 LAND_READPARMS
      DO k=1,land_nLev
./pkg/land/land_readparms.F 204 LAND_READPARMS
      IF ( land_nLev.NE.2 .AND. land_impl_grT ) THEN
./pkg/land/land_readparms.F 206 LAND_READPARMS
     &  ' land_impl_grT=.T. but land_nLev=',land_nLev
./pkg/land/land_readparms.F 335 LAND_READPARMS
       CALL WRITE_1D_R8( land_dzF,land_nLev, INDEX_K,'land_dzF = ',
./pkg/land/land_readparms.F 337 LAND_READPARMS
       CALL WRITE_1D_R8(land_rec_dzC,land_nLev,INDEX_K,'land_rec_dzC= '
./pkg/land/LAND_TAVE.h 34 NO PROCEDURE
      _RL land_grTtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,land_nLev,nSx,nSy)
./pkg/land/LAND_TAVE.h 35 NO PROCEDURE
      _RL land_entave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,land_nLev,nSx,nSy)
./pkg/land/LAND_TAVE.h 36 NO PROCEDURE
      _RL land_grWtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,land_nLev,nSx,nSy)
./pkg/land/land_read_pickup.F 53 LAND_READ_PICKUP
      CALL MDSREADFIELD(fn,prec,'RL',land_nLev,land_groundT,1,myThid)
./pkg/land/land_read_pickup.F 54 LAND_READ_PICKUP
      CALL MDSREADFIELD(fn,prec,'RL',land_nLev,land_groundW,2,myThid)
./pkg/land/land_read_pickup.F 59 LAND_READ_PICKUP
      CALL MDSREADFIELD(fn,prec,'RL',land_nLev,land_enthalp,1,myThid)
./pkg/land/land_read_pickup.F 60 LAND_READ_PICKUP
      CALL MDSREADFIELD(fn,prec,'RL',land_nLev,land_groundW,2,myThid)
./pkg/land/land_read_pickup.F 61 LAND_READ_PICKUP
      k=2*land_nLev
./pkg/land/LAND_SIZE.h 17 NO PROCEDURE
      INTEGER land_nLev
./pkg/land/LAND_SIZE.h 18 NO PROCEDURE
      PARAMETER ( land_nLev=2 ) 
./pkg/land/land_do_diags.F 161 LAND_DO_DIAGS
      CALL TIMEAVE_CUMULATE(land_grTtave,land_groundT,land_nLev,
./pkg/land/land_do_diags.F 163 LAND_DO_DIAGS
      CALL TIMEAVE_CUMULATE(land_entave, land_enthalp,land_nLev,
./pkg/land/land_do_diags.F 165 LAND_DO_DIAGS
      CALL TIMEAVE_CUMULATE(land_grWtave,land_groundW,land_nLev,
./pkg/land/land_do_diags.F 73 LAND_DO_DIAGS
       DO k=1,land_nLev
./pkg/land/land_diagnostics_fill.F 53 LAND_DIAGNOSTICS_FILL
        CALL DIAGNOSTICS_FILL(land_groundT,'GrdTemp ',0,land_nLev,
./pkg/land/land_diagnostics_fill.F 55 LAND_DIAGNOSTICS_FILL
        CALL DIAGNOSTICS_FILL(land_enthalp,'GrdEnth ',0,land_nLev,
./pkg/land/land_diagnostics_fill.F 57 LAND_DIAGNOSTICS_FILL
        CALL DIAGNOSTICS_FILL(land_groundW,'GrdWater',0,land_nLev,
./pkg/land/land_ini_vars.F 102 LAND_INI_VARS
     &                     land_nLev, land_groundW, 1, myThid)
./pkg/land/land_ini_vars.F 131 LAND_INI_VARS
            DO k=1,land_nLev
./pkg/land/land_ini_vars.F 148 LAND_INI_VARS
            DO k=1,land_nLev
./pkg/land/land_ini_vars.F 62 LAND_INI_VARS
        DO k=1,land_nLev
./pkg/land/land_ini_vars.F 98 LAND_INI_VARS
     &                     land_nLev, land_groundT, 1, myThid)
./pkg/land/LAND_PARAMS.h 97 NO PROCEDURE
      _RL land_dzF(land_nLev), land_rec_dzC(land_nLev)
./pkg/land/land_stepfwd.F 149 LAND_STEPFWD
        DO k=1,land_nLev
./pkg/land/land_stepfwd.F 271 LAND_STEPFWD
      DO k=1,land_nLev
./pkg/land/land_stepfwd.F 272 LAND_STEPFWD
       IF (k.EQ.land_nLev) THEN
./pkg/land/land_stepfwd.F 290 LAND_STEPFWD
           IF ( k.EQ.land_nLev ) THEN
./pkg/land/land_stepfwd.F 316 LAND_STEPFWD
           IF ( k.EQ.land_nLev .OR.
./pkg/land/land_stepfwd.F 397 LAND_STEPFWD
       DO k=1,land_nLev
./pkg/land/land_stepfwd.F 93 LAND_STEPFWD
      DO k=1,land_nLev
./pkg/land/land_stepfwd.F 94 LAND_STEPFWD
       kp1 = MIN(k+1,land_nLev)
./pkg/land/LAND_VARS.h 30 NO PROCEDURE
      _RL land_groundT(1-OLx:sNx+OLx,1-OLy:sNy+OLy,land_nLev,nSx,nSy)
./pkg/land/LAND_VARS.h 31 NO PROCEDURE
      _RL land_enthalp(1-OLx:sNx+OLx,1-OLy:sNy+OLy,land_nLev,nSx,nSy)
./pkg/land/LAND_VARS.h 32 NO PROCEDURE
      _RL land_groundW(1-OLx:sNx+OLx,1-OLy:sNy+OLy,land_nLev,nSx,nSy)
./pkg/land/land_write_diags.F 119 LAND_WRITE_DIAGS
     &        'RL',land_nLev,land_grTtave, 1, myIter,myThid)
./pkg/land/land_write_diags.F 121 LAND_WRITE_DIAGS
     &        'RL',land_nLev,land_entave,  2, myIter,myThid)
./pkg/land/land_write_diags.F 123 LAND_WRITE_DIAGS
     &        'RL',land_nLev,land_grWtave, 3, myIter,myThid)
./pkg/land/land_write_diags.F 124 LAND_WRITE_DIAGS
        nrec = 3*land_nLev
./pkg/land/land_write_diags.F 184 LAND_WRITE_DIAGS
         CALL TIMEAVE_RESET(land_grTtave,land_nLev, bi, bj, myThid)
./pkg/land/land_write_diags.F 185 LAND_WRITE_DIAGS
         CALL TIMEAVE_RESET(land_entave, land_nLev, bi, bj, myThid)
./pkg/land/land_write_diags.F 186 LAND_WRITE_DIAGS
         CALL TIMEAVE_RESET(land_grWtave,land_nLev, bi, bj, myThid)
./pkg/land/land_write_diags.F 73 LAND_WRITE_DIAGS
         CALL TIMEAVE_RESET(land_grTtave,land_nLev, bi, bj, myThid)
./pkg/land/land_write_diags.F 74 LAND_WRITE_DIAGS
         CALL TIMEAVE_RESET(land_entave, land_nLev, bi, bj, myThid)
./pkg/land/land_write_diags.F 75 LAND_WRITE_DIAGS
         CALL TIMEAVE_RESET(land_grWtave,land_nLev, bi, bj, myThid)
./pkg/land/land_write_diags.F 95 LAND_WRITE_DIAGS
         CALL TIMEAVE_NORMALIZ(land_grTtave,land_timeAve,land_nLev,
./pkg/land/land_write_diags.F 97 LAND_WRITE_DIAGS
         CALL TIMEAVE_NORMALIZ(land_entave, land_timeAve,land_nLev,
./pkg/land/land_write_diags.F 99 LAND_WRITE_DIAGS
         CALL TIMEAVE_NORMALIZ(land_grWtave,land_timeAve,land_nLev,