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
 
   !-----------------------------------------------------------------------