/[MITgcm]/MITgcm/pkg/compon_communic/mitcplr_init1.F
ViewVC logotype

Diff of /MITgcm/pkg/compon_communic/mitcplr_init1.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.1 by jmc, Mon Dec 15 02:35:29 2003 UTC revision 1.2 by jmc, Mon Oct 8 23:58:21 2007 UTC
# Line 1  Line 1 
1    C $Header$
2    C $Name$
3    
4  !=======================================================================  !=======================================================================
5        subroutine MITCPLR_init1( myTypeStr, couplerFlag )        subroutine MITCPLR_init1( myTypeStr, couplerFlag )
6        implicit none        implicit none
# Line 38  Line 41 
41        if (DEBUG) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr,        if (DEBUG) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr,
42       &     ' Rank/Size = ',myid,' /',numprocs       &     ' Rank/Size = ',myid,' /',numprocs
43    
44  !     - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  !     - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
45    
46  ! Registration: collect/bcast lists of who is who  ! Registration: collect/bcast lists of who is who
47    
# Line 60  Line 63 
63         lenbuf=8+MAXLEN_COMP_NAME         lenbuf=8+MAXLEN_COMP_NAME
64         call MPI_Bcast(         call MPI_Bcast(
65       &               ibuf, lenbuf, MPI_INTEGER,       &               ibuf, lenbuf, MPI_INTEGER,
66       &               n,       &               n,
67       &               MPI_COMM_WORLD, ierr )       &               MPI_COMM_WORLD, ierr )
68         if (DEBUG) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr,         if (DEBUG) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr,
69       &    ' MPI_Bcast from ',ibuf(1),ibuf(2),' ierr=',ierr       &    ' MPI_Bcast from ',ibuf(1),ibuf(2),' ierr=',ierr
# Line 112  Line 115 
115       &    ( rank_compcplr_procs(j,n),j=1,num_compcplr_procs(n) )       &    ( rank_compcplr_procs(j,n),j=1,num_compcplr_procs(n) )
116        enddo        enddo
117    
118  !     - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  !     - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
119    
120  ! Create new groups and communicators  ! Create new groups and communicators
121    
# Line 168  Line 171 
171    
172        enddo        enddo
173    
174  !     - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  !     - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
175    
176        if ( couplerFlag ) then        if ( couplerFlag ) then
177         my_component_ind=-1         my_component_ind=-1
# Line 223  Line 226 
226       & '========================================'       & '========================================'
227        write(LogUnit,*) 'This is "',myTypeStr,'"'        write(LogUnit,*) 'This is "',myTypeStr,'"'
228        write(LogUnit,*) 'myid in MPI_COMM_World = ',myid        write(LogUnit,*) 'myid in MPI_COMM_World = ',myid
229        if (.not.couplerFlag)        if (.not.couplerFlag)
230       &  write(LogUnit,*) 'myid in MPI_COMM_Global = ',j       &  write(LogUnit,*) 'myid in MPI_COMM_Global = ',j
231    
232  !     ------------------------------------------------------------------  !     ------------------------------------------------------------------
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22