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

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

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

revision 1.19 by jmc, Fri Nov 4 01:19:24 2005 UTC revision 1.20 by cnh, Tue Nov 8 23:01:10 2005 UTC
# Line 159  CEOP Line 159  CEOP
159    
160  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.
161        _BARRIER        _BARRIER
162        _BEGIN_MASTER( myThid )  C     _BEGIN_MASTER( myThid )
163    
164        prec = precFloat64        prec = precFloat64
165        lgf = globalFile        lgf = globalFile
# Line 246  C     Write pickup file for diagnostics Line 246  C     Write pickup file for diagnostics
246        ENDIF        ENDIF
247  #endif  /* ALLOW_GGL90 */  #endif  /* ALLOW_GGL90 */
248    
249        _END_MASTER( myThid )  C     _END_MASTER( myThid )
250        _BARRIER        _BARRIER
251    
252  #ifdef ALLOW_PTRACERS  #ifdef ALLOW_PTRACERS
Legend:
Removed from v.1.19  
changed lines
  Added in v.1.20
  ViewVC Help
Powered by ViewVC 1.1.22