Removed references ti nlevleaf and nclmax in the restart code

rgknox · Nov 4, 2018 · 1f0db48 · 1f0db48
1 parent e0495bb
commit 1f0db48
Showing 1 changed file with 0 additions and 10 deletions.
diff --git a/main/FatesRestartInterfaceMod.F90 b/main/FatesRestartInterfaceMod.F90
@@ -1028,8 +1028,6 @@ end subroutine set_restart_var
 
  subroutine set_restart_vectors(this,nc,nsites,sites)
 
-   use EDTypesMod, only : nclmax
-   use EDTypesMod, only : nlevleaf
    use FatesInterfaceMod, only : fates_maxElementsPerPatch
    use FatesInterfaceMod, only : numpft
    use EDTypesMod, only : ed_site_type
@@ -1331,10 +1329,6 @@ subroutine set_restart_vectors(this,nc,nsites,sites)
                 io_idx_pa_ib = io_idx_pa_ib + 1
              end do
 
-
-             if ( debug ) write(fates_log(),*) 'CLTV 1186 ',nlevleaf,numpft,nclmax
-
-
              ! Set the first cohort index to the start of the next patch, increment
              ! by the maximum number of cohorts per patch
              io_idx_co_1st = io_idx_co_1st + fates_maxElementsPerPatch
@@ -1416,8 +1410,6 @@ subroutine create_patchcohort_structure(this, nc, nsites, sites, bc_in)
      use EDTypesMod,           only : ed_patch_type
      use EDTypesMod,           only : ncwd
      use EDTypesMod,           only : maxSWb
-     use EDTypesMod,           only : nlevleaf
-     use EDTypesMod,           only : nclmax
      use FatesInterfaceMod,    only : fates_maxElementsPerPatch
      use EDTypesMod,           only : maxpft
      use EDTypesMod,           only : area
@@ -1614,8 +1606,6 @@ subroutine get_restart_vectors(this, nc, nsites, sites)
      use EDTypesMod, only : ed_patch_type
      use EDTypesMod, only : ncwd
      use EDTypesMod, only : maxSWb
-     use EDTypesMod, only : nlevleaf
-     use EDTypesMod, only : nclmax
      use FatesInterfaceMod, only : numpft
      use FatesInterfaceMod, only : fates_maxElementsPerPatch
      use EDTypesMod, only : numWaterMem