Merge pull request #3 from glemieux/pr885-manage-externals-update-and…

…-clean

PR882 manage externals update and clean

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]

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

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