Changeset 22532

Timestamp:

03/12/18 10:49:04 (7 years ago)

Author:

dmenemen

Message:

moving communication to cpl_issm.F called by do_oceanic_phys.F

Location:

issm/trunk-jpl/test/MITgcm/code

Files:

• EESUPPORT.h (added)
• cpl_issm.F (added)
• do_oceanic_phys.F (added)
• eeboot_minimal.F (modified) (2 diffs)

issm/trunk-jpl/test/MITgcm/code/eeboot_minimal.F

@@ -67 +67 @@
 #ifdef ALLOW_CPL_ISSM
       COMMON /CPL_MPI_ID/
-     &     mpiMyWid
-      integer :: mpiMyWid, numprocsworld
-      integer my_local_rank,my_local_size
-      integer toissmcomm
-      integer  dummy1(1),dummy2(1)
-      integer, dimension(mpi_status_size) :: status
+     &     mpiMyWid, toissmcomm
+      INTEGER mpiMyWid, toissmcomm
+      integer my_local_rank,my_local_size, numprocsworld
+      integer dummy1(1),dummy2(1)
+      integer status(MPI_STATUS_SIZE)
 #endif /* ALLOW_CPL_ISSM */
 #if defined(ALLOW_NEST_PARENT) || defined(ALLOW_NEST_CHILD)
@@ -210 +209 @@
          
       if (my_local_rank .eq. 0) then
-          call MPI_Send(dummy2,1,MPI_INT,0,1,toissmcomm,mpiRC)
-          call MPI_Recv(dummy1,1,MPI_INT,0,1,toissmcomm,status,mpiRC)
+cdb          call MPI_Send(dummy2,1,MPI_INT,0,1,toissmcomm,mpiRC)
+cdb          call MPI_Recv(dummy1,1,MPI_INT,0,1,toissmcomm,status,mpiRC)
       end if
       
-      call MPI_Bcast(dummy1,1,MPI_INT,0,MPI_COMM_MODEL,mpiRC)
-      print*, 'Ocean : dummy received:',dummy1
-
+cdb      call MPI_Bcast(dummy1,1,MPI_INT,0,MPI_COMM_MODEL,mpiRC)
+cdb      print*, 'Ocean : dummy received:',dummy1
 
 #endif /* ALLOW_CPL_ISSM */