Merge pull request #3245 from GEOS-ESM/feature/pchakrab/update-config…

…urable-gridcomp-follow-up Follow up for #3231
GEOS-ESM · Dec 12, 2024 · 0d4ae10 · 0d4ae10
2 parents e2aceda + b85db7a
commit 0d4ae10
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 4 deletions.
diff --git a/generic3g/vertical/BasicVerticalGrid.F90 b/generic3g/vertical/BasicVerticalGrid.F90
@@ -87,7 +87,7 @@ logical function can_connect_to(this, dst, rc)
          _RETURN(_SUCCESS)
       end if
 
-      _RETURN(_SUCCESS)
+      _FAIL("BasicVerticalGrid::can_connect_to - NOT implemented yet")
    end function can_connect_to
 
    logical function is_identical_to(this, that, rc)

diff --git a/gridcomps/configurable/ConfigurableGridComp.F90 b/gridcomps/configurable/ConfigurableGridComp.F90
@@ -35,6 +35,10 @@ subroutine init(gridcomp, importState, exportState, clock, rc)
       integer :: status
 
       _RETURN(_SUCCESS)
+      _UNUSED_DUMMY(gridcomp)
+      _UNUSED_DUMMY(importState)
+      _UNUSED_DUMMY(exportState)
+      _UNUSED_DUMMY(clock)
    end subroutine init
 
    recursive subroutine run(gridcomp, importState, exportState, clock, rc)
@@ -45,12 +49,13 @@ recursive subroutine run(gridcomp, importState, exportState, clock, rc)
       integer, intent(out) :: rc
 
       integer :: status
-      character(len=ESMF_MAXSTR) :: gc_name
 
-      call ESMF_GridCompGet(gridcomp, name=gc_name, _RC)
       call MAPL_RunChildren(gridcomp, phase_name="run", _RC)
 
       _RETURN(_SUCCESS)
+      _UNUSED_DUMMY(importState)
+      _UNUSED_DUMMY(exportState)
+      _UNUSED_DUMMY(clock)
    end subroutine run
 
 end module ConfigurableGridComp
@@ -64,6 +69,7 @@ subroutine setServices(gridcomp, rc)
 
    integer :: status
 
-   call Configurable_setServices(gridcomp,_RC)
+   call Configurable_setServices(gridcomp, _RC)
+
    _RETURN(_SUCCESS)
 end subroutine setServices