/[MITgcm]/MITgcm/model/src/initialise_fixed.F
ViewVC logotype

Diff of /MITgcm/model/src/initialise_fixed.F

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

revision 1.45 by jmc, Fri Mar 17 16:12:55 2006 UTC revision 1.46 by jmc, Sat Jul 29 21:02:12 2006 UTC
# Line 85  C     == Routine arguments == Line 85  C     == Routine arguments ==
85        INTEGER myThid        INTEGER myThid
86  CEOP  CEOP
87    
88    C-    here is a way to deliberately break the barrier syncronization
89    C     by adding a BARRIER on thread XXX only ; Used to test BAR_CHECK.
90    c     IF ( myThid.EQ.XXX ) THEN
91    c       _BARRIER
92    c       CALL SYSTEM('sleep 1')
93    c     ENDIF
94    C--   Check barrier synchronization:
95          CALL BAR_CHECK( 2, myThid )
96    
97  C--   Set model parameters.  C--   Set model parameters.
98  C     Parameters are set to defaults and then updates are read from  C     Parameters are set to defaults and then updates are read from
99  C     an input file called data.  C     an input file called data.
# Line 170  C     and get config. info for other com Line 179  C     and get config. info for other com
179        IF ( useCoupler ) CALL CPL_EXCH_CONFIGS( myThid )        IF ( useCoupler ) CALL CPL_EXCH_CONFIGS( myThid )
180  #endif  #endif
181    
182    C--   Check barrier synchronization:
183          CALL BAR_CHECK( 3, myThid )
184    
185  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
186    
187        RETURN        RETURN
Legend:
Removed from v.1.45  
changed lines
  Added in v.1.46
  ViewVC Help
Powered by ViewVC 1.1.22