cleanup no longer needed write statements

thorntonpe · Oct 1, 2024 · 5d18e7e · 5d18e7e
1 parent aeb0bfe
commit 5d18e7e
Show file tree

Hide file tree

Showing 2 changed files with 0 additions and 2 deletions.
diff --git a/components/elm/src/biogeophys/ActiveLayerMod.F90 b/components/elm/src/biogeophys/ActiveLayerMod.F90
@@ -193,7 +193,6 @@ subroutine alt_calc(num_soilc, filter_soilc, &
            melt_profile(:) = 0._r8
 
            do j = nlevgrnd,1,-1 ! note, this will go from bottom to top
-              !write(iulog,*) "processing level j,",j,k_frz,excess_ice(c,j)
               if (j .gt. k_frz + 1) then ! all layers below k_frz + 1 remain frozen
                 melt_profile(j) = 0.0_r8
               else if (j .eq. k_frz + 1) then ! first layer below the 'thawed' layer

diff --git a/components/elm/src/main/surfrdUtilsMod.F90 b/components/elm/src/main/surfrdUtilsMod.F90
@@ -72,7 +72,6 @@ subroutine check_sums_equal_1_3d(arr, lb, name, caller)
     if (found) then
        write(iulog,*) trim(caller), ' ERROR: sum of ', trim(name), ' not 1.0 at nl=', nindx, ' and t=', tindx
        write(iulog,*) 'sum is: ', sum(arr(nindx,t,:))
-       write(iulog,*) arr(nindx,t,:)
        call endrun(msg=errMsg(__FILE__, __LINE__))
     end if