/[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.2 by jmc, Mon Oct 8 23:58:21 2007 UTC revision 1.3 by jmc, Wed Nov 27 21:48:30 2013 UTC
# Line 3  C $Name$ Line 3  C $Name$
3    
4  !=======================================================================  !=======================================================================
5        subroutine mitcplr_init2b( myTypeStr )        subroutine mitcplr_init2b( myTypeStr )
6    
7        implicit none        implicit none
 ! Arguments  
       character*(*) myTypeStr  
8  ! Predefined constants/arrays  ! Predefined constants/arrays
9  #include "CPLR_SIG.h"  #include "CPLR_SIG.h"
10  ! MPI variables  ! MPI variables
11  #include "mpif.h"  #include "mpif.h"
12    
13    ! Arguments
14          character*(*) myTypeStr
15    ! Local
16        integer myid, numprocs, ierr        integer myid, numprocs, ierr
17        integer MPI_COMM_temp        integer MPI_COMM_temp
 ! Local  
18        integer n,j,lenbuf,compind        integer n,j,lenbuf,compind
19          integer ibuf(MAX_IBUF)
20  !     ------------------------------------------------------------------  !     ------------------------------------------------------------------
21    
22  ! Foreach component type  ! Foreach component type
# Line 81  C $Name$ Line 84  C $Name$
84         enddo         enddo
85    
86         if (num_coupler_procs .ne. 1) then         if (num_coupler_procs .ne. 1) then
87          stop 'MITCPLR_init2b: I can only handle one coupling process'          STOP 'MITCPLR_init2b: I can only handle one coupling process'
88         endif         endif
89    
90        enddo        enddo
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22