Merge pull request #3344 from GEOS-ESM/feature/tclune/#3343-NAG+relea…

…se-flags Fixes #3343 - test failures
GEOS-ESM · Jan 17, 2025 · 10e7a14 · 10e7a14
2 parents 9f3c4ce + 7f8de94
commit 10e7a14
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/generic3g/tests/Test_Scenarios.pf b/generic3g/tests/Test_Scenarios.pf
@@ -683,20 +683,20 @@ contains
       integer, intent(out) :: rc
 
       integer :: status
-      character(:), allocatable :: child_name
+      character(:), allocatable :: child_name, new_path
       type(GriddedComponentDriver) :: child
       type(ESMF_GridComp) :: child_gc
       type(OuterMetaComponent), pointer :: outer_meta
       integer :: idx
       type(GriddedComponentDriver), pointer :: user_component
 
+
       rc = 0
 
       if (component_path == '<root>' .or. component_path == '') then
          substates = states
          return
       end if
-
       outer_meta => get_outer_meta(gc, _RC)
 
       ! Parse path
@@ -714,8 +714,9 @@ contains
       child = outer_meta%get_child(child_name, _RC)
 
       child_gc = child%get_gridcomp()
+      new_path = component_path(idx+1:)
 
-      call get_substates(child_gc, child%get_states(), component_path(idx+1:), substates, _RC)
+      call get_substates(child_gc, child%get_states(), new_path, substates, _RC)
 
       return
    end subroutine get_substates