Do not depend on explicit F90 interface via keywords since there appears

to be some disagreement on the ierror vs ierr keyword used.
esmf-org · Oct 26, 2023 · 087f34a · 087f34a
1 parent eb7f4c2
commit 087f34a
Showing 1 changed file with 4 additions and 4 deletions.
diff --git 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