Changeset 22390

Timestamp:

02/05/18 10:39:14 (8 years ago)

Author:

dmenemen

Message:

removing rankzeros array and using
default values for MPI_INTERCOMM_CREATE

File:

• issm/trunk-jpl/test/MITgcm/code/eeboot_minimal.F (modified) (3 diffs)

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

@@ -69 +69 @@
      &     mpiMyWid
       integer :: mpiMyWid, numprocsworld
-      integer icecommsize,rankzeros(2)
       integer my_local_rank,my_local_size
       integer toissmcomm
@@ -187 +186 @@
        call MPI_COMM_SIZE(MPI_COMM_WORLD, numprocsworld, mpiRC)
 
-c     ocean  comm size: 4 (normally should be recovered from list of
-c     arguments after mpirun:) */
-      icecommsize=2
-
-c     Build array of who is rank 0 of their own group:*/
-      rankzeros(1)=0 
-      rankzeros(2)=icecommsize 
-
 c     Split world into sub-communicators for each and every model:*/
       call MPI_COMM_SPLIT(MPI_COMM_WORLD,1,MPIMYWID,
@@ -202 +193 @@
       print*,'Oc My world size:',numprocsworld
 
-cdm      call MPI_INTERCOMM_CREATE(MPI_COMM_MODEL,0,MPI_COMM_WORLD,
-cdm     &                          rankzeros(1),0,toissmcomm,mpiRC)
+      call MPI_INTERCOMM_CREATE(MPI_COMM_MODEL,0,MPI_COMM_WORLD,
+     &                          0,0,toissmcomm,mpiRC)
       
       call MPI_COMM_RANK(MPI_COMM_MODEL, my_local_rank, mpiRC)