/[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.2 by adcroft, Fri Jul 30 15:43:00 1999 UTC revision 1.3 by adcroft, Mon Mar 27 22:25:45 2000 UTC
# Line 45  CEndofinterface Line 45  CEndofinterface
45    
46  C     == Local variables ==  C     == Local variables ==
47  C     suff - Hold suffix part of a filename  C     suff - Hold suffix part of a filename
 C     beginIOErrCount - Begin and end IO error counts  
 C     endIOErrCount  
 C     msgBuf - Error message buffer  
       INTEGER beginIOErrCount  
       INTEGER endIOErrCount  
       CHARACTER*(MAX_LEN_MBUF) msgBuf  
48        CHARACTER*(MAX_LEN_MBUF) suff        CHARACTER*(MAX_LEN_MBUF) suff
       CHARACTER*(80) fName  
49    
50        IF (        IF (
51       &  ( DIFFERENT_MULTIPLE(dumpFreq,myCurrentTime,       &  ( DIFFERENT_MULTIPLE(dumpFreq,myCurrentTime,
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22