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

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

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

revision 1.58 by jmc, Tue Nov 8 02:14:10 2005 UTC revision 1.59 by cnh, Tue Nov 8 23:01:10 2005 UTC
# Line 92  CEOP Line 92  CEOP
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          _BARRIER
95          _BEGIN_MASTER( myThid )  C       _BEGIN_MASTER( myThid )
96    
97  C       Write model fields  C       Write model fields
98          IF (snapshot_mdsio) THEN          IF (snapshot_mdsio) THEN
# Line 151  c         CALL WRITE_FLD_XYZ_RS('hFacS.' Line 151  c         CALL WRITE_FLD_XYZ_RS('hFacS.'
151    
152          ENDIF          ENDIF
153                    
154          _END_MASTER( myThid )  C       _END_MASTER( myThid )
155          _BARRIER          _BARRIER
156    
157  #ifdef ALLOW_MNC  #ifdef ALLOW_MNC
Legend:
Removed from v.1.58  
changed lines
  Added in v.1.59
  ViewVC Help
Powered by ViewVC 1.1.22