Merge pull request #2673 from GEOS-ESM/feature/bmauer/remove_ffname_b…

…lock remove block that was for debugging
GEOS-ESM · Mar 25, 2024 · c40eb8f · c40eb8f
2 parents 8e44b29 + 811d121
commit c40eb8f
Showing 1 changed file with 0 additions and 4 deletions.
diff --git a/gridcomps/History/MAPL_HistoryGridComp.F90 b/gridcomps/History/MAPL_HistoryGridComp.F90
@@ -2204,10 +2204,6 @@ subroutine Initialize ( gc, import, dumexport, clock, rc )
                AVGINT  = MAPL_nsecf( list(n)%frequency )
                call ESMF_AttributeSet(F_extra, NAME='REFRESH_INTERVAL', VALUE=REFRESH, _RC)
                call ESMF_AttributeSet(F_extra, NAME='AVERAGING_INTERVAL', VALUE=AVGINT, _RC)
-               block
-                  character(len=128) :: ffname
-                  call ESMF_FieldGet(f_extra,name=ffname)
-               end block
                call MAPL_StateAdd(IntState%GIM(N), f_extra, _RC)
 
             endif