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

Diff of /MITgcm/pkg/compon_communic/mitcplr_init2b.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_init2b( myTypeStr )        subroutine mitcplr_init2b( myTypeStr )
6        implicit none        implicit none
# Line 29  Line 32 
32         if (DEBUG) write(LogUnit,*) 'MITCPLR_init2b: ',         if (DEBUG) write(LogUnit,*) 'MITCPLR_init2b: ',
33       &     ' Rank/Size = ',myid,' /',numprocs       &     ' Rank/Size = ',myid,' /',numprocs
34    
35  !     - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  !     - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
36    
37  ! Assume nothing again  ! Assume nothing again
38         num_coupler_procs=0         num_coupler_procs=0
# Line 53  Line 56 
56          lenbuf=12          lenbuf=12
57          call MPI_Bcast(          call MPI_Bcast(
58       &               ibuf, lenbuf, MPI_INTEGER,       &               ibuf, lenbuf, MPI_INTEGER,
59       &               n,       &               n,
60       &               MPI_COMM_temp, ierr )       &               MPI_COMM_temp, ierr )
61          if (ierr.ne.0) write(LogUnit,*) 'MITCPLR_init2b: ',          if (ierr.ne.0) write(LogUnit,*) 'MITCPLR_init2b: ',
62       &    ' MPI_Bcast from ',ibuf(1),ibuf(2),' ierr=',ierr       &    ' MPI_Bcast from ',ibuf(1),ibuf(2),' ierr=',ierr
# Line 83  Line 86 
86    
87        enddo        enddo
88    
89  !     - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  !     - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
90    
91        do compind = 1,num_components        do compind = 1,num_components
92         write(LogUnit,*) 'MITCPLR_init2b: ',         write(LogUnit,*) 'MITCPLR_init2b: ',
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22