diff --git a/Externals_CLM.cfg b/Externals_CLM.cfg
index 1307d05c14..9f352ca8dd 100644
--- a/Externals_CLM.cfg
+++ b/Externals_CLM.cfg
@@ -2,7 +2,7 @@
 local_path = src/fates
 protocol = git
 repo_url = https://github.com/NGEET/fates
-tag = sci.1.33.0_api.8.1.0
+tag = sci.1.34.0_api.9.0.0
 required = True
 
 [PTCLM]
diff --git a/src/main/histFileMod.F90 b/src/main/histFileMod.F90
index 4e58e236b5..58b8c11b08 100644
--- a/src/main/histFileMod.F90
+++ b/src/main/histFileMod.F90
@@ -913,7 +913,6 @@ subroutine htape_addfld (t, f, avgflag)
     integer :: numc                 ! total number of columns across all processors
     integer :: nump                 ! total number of pfts across all processors
     integer :: num2d                ! size of second dimension (e.g. .number of vertical levels)
-    character(len=hist_dim_name_length) :: type2d 
     integer :: beg1d_out,end1d_out  ! history output per-proc 1d beginning and ending indices
     integer :: beg1d,end1d          ! beginning and ending indices for this field (assume already set)
     integer :: num1d_out            ! history output 1d size
@@ -1048,9 +1047,6 @@ subroutine htape_addfld (t, f, avgflag)
        tape(t)%hlist(n)%avgflag = avgflag
     end if
 
-    type2d = tape(t)%hlist(n)%field%type2d
-    
-
   end subroutine htape_addfld
 
   !-----------------------------------------------------------------------
diff --git a/src/utils/clmfates_interfaceMod.F90 b/src/utils/clmfates_interfaceMod.F90
index e20dfd25e5..7b7046f681 100644
--- a/src/utils/clmfates_interfaceMod.F90
+++ b/src/utils/clmfates_interfaceMod.F90
@@ -2066,9 +2066,6 @@ subroutine init_history_io(this,bounds_proc)
         dk_index = this%fates_hist%hvars(ivar)%dim_kinds_index
         ioname = trim(this%fates_hist%dim_kinds(dk_index)%name)
         
-        write(iulog,*) 'attempt ioname: ', ioname
-        write(iulog,*) 'dk_index: ', dk_index
-
         select case(trim(ioname))
         case(patch_r8)
            call hist_addfld1d(fname=trim(vname),units=trim(vunits),         &
@@ -2118,7 +2115,6 @@ subroutine init_history_io(this,bounds_proc)
         end select
           
       end associate
-      write(iulog,*)'success: ', ioname
 
    end do
  end subroutine init_history_io