Update get_vec_from_config to use tableEnd for ESMF 8.6.1

GEOS-ESM · Nov 8, 2024 · f75769b · f75769b
1 parent a07e438
commit f75769b
Showing 1 changed file with 6 additions and 3 deletions.
diff --git a/gridcomps/Cap/MAPL_CapGridComp.F90 b/gridcomps/Cap/MAPL_CapGridComp.F90
@@ -1076,19 +1076,22 @@ function get_vec_from_config(config, key) result(vec)
     integer :: status, rc
     character(len=ESMF_MAXSTR) :: cap_import
     type(StringVector) :: vec
+    logical :: tend
 
     call ESMF_ConfigFindLabel(config, key//":", isPresent = present, rc = status)
     _VERIFY(status)
 
     cap_import = ""
+    tend = .false.
     if (present) then
 
-       do while(trim(cap_import) /= "::")
-          call ESMF_ConfigNextLine(config, rc = status)
+       do while(.not. tend)
+          call ESMF_ConfigNextLine(config, tableEnd=tend, rc = status)
           _VERIFY(status)
+          if (tend) exit
           call ESMF_ConfigGetAttribute(config, cap_import, rc = status)
           _VERIFY(status)
-          if (trim(cap_import) /= "::") call vec%push_back(trim(cap_import))
+          call vec%push_back(trim(cap_import))
        end do
     end if