Fixes #2686

GEOS-ESM · Mar 28, 2024 · 714cc08 · 714cc08
1 parent 761fc2b
commit 714cc08
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 1 deletion.
diff --git a/CHANGELOG.md b/CHANGELOG.md
@@ -13,6 +13,8 @@ and this project adheres to [Semantic Versioning](https://semver.org/spec/v2.0.0
 
 ### Fixed
 
+- The bundle I/O unit test was failing on NAG.  Partly due to an untrapped return code, but also some weird issue with setting values in ESMF Config. Probably not a bug in the compiler but something in  ESMF or MAPL handling line continuations.
+
 ### Removed
 
 ### Deprecated

diff --git a/base/MAPL_CubedSphereGridFactory.F90 b/base/MAPL_CubedSphereGridFactory.F90
@@ -691,7 +691,7 @@ subroutine verify(n, m_world, ms, rc)
          else
 
             _ASSERT(n /= MAPL_UNDEFINED_INTEGER,'n not specified')
-            _ASSERT(m_world /= MAPL_UNDEFINED_INTEGER,'m_wold not specified')
+            _ASSERT(m_world /= MAPL_UNDEFINED_INTEGER,'m_world not specified')
             allocate(ms(n), stat=status)
             _VERIFY(status)
 

diff --git a/base/tests/mapl_bundleio_test.F90 b/base/tests/mapl_bundleio_test.F90
@@ -128,6 +128,7 @@ function create_cf(grid_name,im_world,jm_world,nx,ny,lm,cs_stretch_param,rc) res
        pole=grid_name(1:2)
 
        cf = MAPL_ConfigCreate(_RC)
+       call MAPL_ConfigSetAttribute(cf,value=NX, label=trim(grid_name)//".other:",_RC)
        call MAPL_ConfigSetAttribute(cf,value=NX, label=trim(grid_name)//".NX:",_RC)
        call MAPL_ConfigSetAttribute(cf,value=lm, label=trim(grid_name)//".LM:",_RC)
        if (jm_world==6*im_world) then