removing remnant of old code from htape_addfld

ESCOMP · Mar 26, 2020 · c2edc13 · c2edc13
1 parent 5196717
commit c2edc13
Showing 1 changed file with 0 additions and 4 deletions.
diff --git 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
 
   !-----------------------------------------------------------------------