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

Diff of /MITgcm/pkg/compon_communic/mitcplr_init2a.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_init2a( myTypeStr )        subroutine mitcplr_init2a( myTypeStr )
6        implicit none        implicit none
# Line 23  Line 26 
26        if (VERB) write(LogUnit,*) 'MITCPLR_init2a: ',        if (VERB) write(LogUnit,*) 'MITCPLR_init2a: ',
27       &     ' Rank/Size = ',myid,' /',numprocs       &     ' Rank/Size = ',myid,' /',numprocs
28    
29  !     - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  !     - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
30    
31  ! Assume nothing again  ! Assume nothing again
32        num_coupler_procs=0        num_coupler_procs=0
# Line 45  Line 48 
48         lenbuf=12         lenbuf=12
49         call MPI_Bcast(         call MPI_Bcast(
50       &               ibuf, lenbuf, MPI_INTEGER,       &               ibuf, lenbuf, MPI_INTEGER,
51       &               n,       &               n,
52       &               MPI_COMM_myglobal, ierr )       &               MPI_COMM_myglobal, ierr )
53         if (ierr.ne.0) write(LogUnit,*) 'MITCPLR_init2a: ',         if (ierr.ne.0) write(LogUnit,*) 'MITCPLR_init2a: ',
54       &    ' MPI_Bcast from ',ibuf(1),ibuf(2),' ierr=',ierr       &    ' MPI_Bcast from ',ibuf(1),ibuf(2),' ierr=',ierr
# Line 67  Line 70 
70         stop 'MITCPLR_init2a: I can only handle one coupling process'         stop 'MITCPLR_init2a: I can only handle one coupling process'
71        endif        endif
72    
73  !     - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  !     - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
74    
75  ! Find-out my position (rank) in the "world" communicator  ! Find-out my position (rank) in the "world" communicator
76        call MPI_COMM_RANK( MPI_COMM_World, n, ierr )        call MPI_COMM_RANK( MPI_COMM_World, n, ierr )
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22