/[MITgcm]/MITgcm/pkg/aim_ocn_coupler/initialise.F
ViewVC logotype

Diff of /MITgcm/pkg/aim_ocn_coupler/initialise.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:28:01 2003 UTC revision 1.2 by jmc, Sun Nov 7 23:20:35 2004 UTC
# Line 32  C                        Stored internal Line 32  C                        Stored internal
32        INTEGER MPI_COMM_Coupler        INTEGER MPI_COMM_Coupler
33    
34        CALL MPI_Init(iErr)        CALL MPI_Init(iErr)
35    
36    C--   Set the running directory (= rank_0 )
37          CALL SETDIR( 0 )
38    
39  C     Register this process as the "coupler" participant. Currently there can  C     Register this process as the "coupler" participant. Currently there can
40  C     only be one coupler participant all others are "component" participants.  C     only be one coupler participant all others are "component" participants.
41        CALL MITCOUPLER_INIT( cplCompName, MPI_COMM_Coupler )        CALL MITCOUPLER_INIT( cplCompName, MPI_COMM_Coupler )
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22