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

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

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

revision 1.3 by jmc, Wed Nov 27 21:48:30 2013 UTC revision 1.4 by jmc, Mon Dec 2 21:37:53 2013 UTC
# Line 2  C $Header$ Line 2  C $Header$
2  C $Name$  C $Name$
3    
4  !=======================================================================  !=======================================================================
5        subroutine MITCOUPLER_init( myTypeStr, MPI_COMM_local )        subroutine MITCOUPLER_init(
6         I                      myTypeStr,
7         O                      MPI_COMM_local, msgUnit )
8        implicit none        implicit none
9    
10  ! MPI variables  ! MPI variables
# Line 14  C $Name$ Line 16  C $Name$
16  ! Arguments  ! Arguments
17        character*(*) myTypeStr        character*(*) myTypeStr
18        integer MPI_COMM_local        integer MPI_COMM_local
19          integer msgUnit
20    
21  ! Functions  ! Functions
22    
# Line 23  C $Name$ Line 26  C $Name$
26  !     ------------------------------------------------------------------  !     ------------------------------------------------------------------
27    
28  ! Homogeneous registration phase (every process Bcasts)  ! Homogeneous registration phase (every process Bcasts)
29        couplerFlag=.TRUE.  !  also open a coupling log file (.clog) with I/O unit: LogUnit
30          couplerFlag = .TRUE.
31        call MITCPLR_init1( myTypeStr, couplerFlag )        call MITCPLR_init1( myTypeStr, couplerFlag )
32          msgUnit = LogUnit
33    
34  ! Return the communicator for my component  ! Return the communicator for my component
35        MPI_COMM_local = MPI_COMM_mylocal        MPI_COMM_local = MPI_COMM_mylocal
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22