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

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

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

revision 1.4 by jmc, Sun Aug 24 21:38:19 2008 UTC revision 1.5 by jmc, Sun Jun 14 21:45:12 2009 UTC
# Line 91  C     Suffix for pickup files Line 91  C     Suffix for pickup files
91        WRITE(fn,'(A,A10)') 'pickup.',suff        WRITE(fn,'(A,A10)') 'pickup.',suff
92    
93  C     Going to really do some IO. Make everyone except master thread wait.  C     Going to really do some IO. Make everyone except master thread wait.
94        _BARRIER  C     this is done within IO routines => no longer needed
95    c     _BARRIER
96    
97        IF (pickup_read_mdsio) THEN        IF (pickup_read_mdsio) THEN
98    
# Line 441  c         CALL MNC_CW_RL_R('D',fn,0,0,'g Line 442  c         CALL MNC_CW_RL_R('D',fn,0,0,'g
442        ENDIF        ENDIF
443  #endif /*  ALLOW_MNC  */  #endif /*  ALLOW_MNC  */
444    
       _BARRIER  
   
445  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
446    
447  C     Fill in edge regions  C     Fill in edge regions
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22