From 1f0db48bfbc83ba20ef91e529f4a304240fdd067 Mon Sep 17 00:00:00 2001 From: Ryan Knox Date: Sat, 3 Nov 2018 17:45:23 -0700 Subject: [PATCH] Removed references ti nlevleaf and nclmax in the restart code --- main/FatesRestartInterfaceMod.F90 | 10 ---------- 1 file changed, 10 deletions(-) diff --git a/main/FatesRestartInterfaceMod.F90 b/main/FatesRestartInterfaceMod.F90 index 7378650697..ca4ad69c47 100644 --- 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