From 087f34a89acb0d381e934c763fe6164874bbf6bb Mon Sep 17 00:00:00 2001
From: Gerhard Theurich <theurich@sourcespring.net>
Date: Thu, 26 Oct 2023 09:02:00 -0700
Subject: [PATCH] Do not depend on explicit F90 interface via keywords since
 there appears to be some disagreement on the ierror vs ierr keyword used.

---
 ExternalDriverAPIWeakCplDAProto/externalApp.F90 | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/ExternalDriverAPIWeakCplDAProto/externalApp.F90 b/ExternalDriverAPIWeakCplDAProto/externalApp.F90
index 7c4d2392..000fddb4 100644
--- a/ExternalDriverAPIWeakCplDAProto/externalApp.F90
+++ b/ExternalDriverAPIWeakCplDAProto/externalApp.F90
@@ -42,15 +42,15 @@ program externalApp
 
   ! Split up the MPI_COMM_WORLD into atmDA (first half) and ocnDA (second half)
   ! of MPI ranks. Call into the respective DA routine
-  call MPI_Comm_size(MPI_COMM_WORLD, size, ierror=rc)
-  call MPI_Comm_rank(MPI_COMM_WORLD, rank, ierror=rc)
+  call MPI_Comm_size(MPI_COMM_WORLD, size, rc)
+  call MPI_Comm_rank(MPI_COMM_WORLD, rank, rc)
   if (rank < size/2) then
     ! atm DA processes
-    call MPI_Comm_split(MPI_COMM_WORLD, 1, rank, splitComm, ierror=rc)
+    call MPI_Comm_split(MPI_COMM_WORLD, 1, rank, splitComm, rc)
     call atmDAexec(comm=splitComm)
   else
     ! ocn DA processes
-    call MPI_Comm_split(MPI_COMM_WORLD, 2, rank, splitComm, ierror=rc)
+    call MPI_Comm_split(MPI_COMM_WORLD, 2, rank, splitComm, rc)
     call ocnDAexec(comm=splitComm)
   endif