Remove keywords from calls into InternalState API to support compilers

that do not support deferred type interfaces yet.
esmf-org · Oct 17, 2023 · 5cd9f55 · 5cd9f55
1 parent 3013ec2
commit 5cd9f55
Showing 1 changed file with 7 additions and 7 deletions.
diff --git a/src/addon/ESMX/Comps/ESMX_Data/ESMX_Data.F90 b/src/addon/ESMX/Comps/ESMX_Data/ESMX_Data.F90
@@ -105,7 +105,7 @@ subroutine SetServices(xdata, rc)
       line=__LINE__, &
       file=__FILE__, &
       rcToReturn=rc)) return
-    call ESMF_GridCompSetInternalState(xdata, is, rc=rc)
+    call ESMF_GridCompSetInternalState(xdata, is, rc)
     if (ESMF_LogFoundError(rcToCheck=rc, msg=ESMF_LOGERR_PASSTHRU, &
       line=__LINE__, file=__FILE__)) return
     xstate => is%ptr
@@ -211,7 +211,7 @@ subroutine Advertise(xdata, rc)
 
     ! query component for internal state
     nullify(is%ptr)
-    call ESMF_GridCompGetInternalState(xdata, is, rc=rc)
+    call ESMF_GridCompGetInternalState(xdata, is, rc)
     if (ESMF_LogFoundError(rcToCheck=rc, msg=ESMF_LOGERR_PASSTHRU, &
       line=__LINE__, file=__FILE__)) return
     xstate => is%ptr
@@ -275,7 +275,7 @@ subroutine Realize(xdata, rc)
 
     ! query component for internal state
     nullify(is%ptr)
-    call ESMF_GridCompGetInternalState(xdata, is, rc=rc)
+    call ESMF_GridCompGetInternalState(xdata, is, rc)
     if (ESMF_LogFoundError(rcToCheck=rc, msg=ESMF_LOGERR_PASSTHRU, &
       line=__LINE__, file=__FILE__)) return
     xstate => is%ptr
@@ -354,7 +354,7 @@ subroutine DataInitialize(xdata, rc)
 
     ! query component for internal state
     nullify(is%ptr)
-    call ESMF_GridCompGetInternalState(xdata, is, rc=rc)
+    call ESMF_GridCompGetInternalState(xdata, is, rc)
     if (ESMF_LogFoundError(rcToCheck=rc, msg=ESMF_LOGERR_PASSTHRU, &
       line=__LINE__, file=__FILE__)) return
     xstate => is%ptr
@@ -431,7 +431,7 @@ subroutine CheckImport(xdata, rc)
 
     ! query component for internal State
     nullify(is%ptr)
-    call ESMF_GridCompGetInternalState(xdata, is, rc=rc)
+    call ESMF_GridCompGetInternalState(xdata, is, rc)
     if (ESMF_LogFoundError(rcToCheck=rc, msg=ESMF_LOGERR_PASSTHRU, &
       line=__LINE__, file=__FILE__)) return
     xstate => is%ptr
@@ -489,7 +489,7 @@ subroutine ModelAdvance(xdata, rc)
 
     ! query component for internal state
     nullify(is%ptr)
-    call ESMF_GridCompGetInternalState(xdata, is, rc=rc)
+    call ESMF_GridCompGetInternalState(xdata, is, rc)
     if (ESMF_LogFoundError(rcToCheck=rc, msg=ESMF_LOGERR_PASSTHRU, &
       line=__LINE__, file=__FILE__)) return
     xstate => is%ptr
@@ -602,7 +602,7 @@ subroutine ModelFinalize(xdata, rc)
 
     ! query component for internal state
     nullify(is%ptr)
-    call ESMF_GridCompGetInternalState(xdata, is, rc=rc)
+    call ESMF_GridCompGetInternalState(xdata, is, rc)
     if (ESMF_LogFoundError(rcToCheck=rc, msg=ESMF_LOGERR_PASSTHRU, &
       line=__LINE__, file=__FILE__)) return
     xstate => is%ptr