Update gridcomps/Cap/MAPL_CapGridComp.F90

GEOS-ESM · Nov 14, 2024 · ce10328 · ce10328
1 parent 84c6832
commit ce10328
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/gridcomps/Cap/MAPL_CapGridComp.F90 b/gridcomps/Cap/MAPL_CapGridComp.F90
@@ -978,7 +978,7 @@ function get_vec_from_config(config, key, rc) result(vec)
     call ESMF_ConfigFindLabel(config, key//":", isPresent = present, _RC)
 
     if (present) then
-       do while(.true.)
+       do
           call ESMF_ConfigNextLine(config, tableEnd=tableEnd, _RC)
           if (tableEnd) exit
           call ESMF_ConfigGetAttribute(config, value, _RC)