Fix some issues that came up after a full rebuild.

esmf-org · Jan 11, 2024 · e0f7f37 · e0f7f37
1 parent ae275e7
commit e0f7f37
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 8 deletions.
diff --git a/src/addon/NUOPC/interface/NUOPC.c → src/addon/NUOPC/interface/NUOPC_F.c b/src/addon/NUOPC/interface/NUOPC.c → src/addon/NUOPC/interface/NUOPC_F.c
diff --git a/src/addon/NUOPC/interface/NUOPC_c.F90 b/src/addon/NUOPC/interface/NUOPC_c.F90
@@ -15,7 +15,7 @@
 ! INCLUDES
 #include "ESMF.h"
 
-subroutine f_nuopc_modelsetservices(compPtr, rc)
+subroutine f_nuopc_modelsetservices(gcomp, rc)
 #undef  ESMF_METHOD
 #define ESMF_METHOD "f_nuopc_modelsetservices"
 
@@ -24,18 +24,14 @@ subroutine f_nuopc_modelsetservices(compPtr, rc)
   use NUOPC_Model, only: SetServices
   implicit none
 
-  type(ESMF_CompClass), pointer :: compPtr   !in
-  integer, intent(out)  :: rc         !out
+  type(ESMF_GridComp)   :: gcomp  !in
+  integer, intent(out)  :: rc     !out
 
-  type(ESMF_GridComp)   :: gcomp
   integer :: localrc
 
   ! Initialize return code; assume routine not implemented
   rc = ESMF_RC_NOT_IMPL
 
-  gcomp%compp = compPtr
-  ESMF_INIT_SET_CREATED(gcomp)
-
   call SetServices(gcomp, rc=localrc)
   if (ESMF_LogFoundError(localrc, ESMF_ERR_PASSTHRU,  &
     ESMF_CONTEXT, rcToReturn=rc)) return

diff --git a/src/addon/NUOPC/interface/makefile b/src/addon/NUOPC/interface/makefile
@@ -2,7 +2,7 @@
 
 ALL: build_here 
 
-SOURCEC	  = NUOPC.c
+SOURCEC	  = NUOPC_F.c
 SOURCEF	  = NUOPC_c.F90
 SOURCEH	  =