/[MITgcm]/MITgcm/pkg/mdsio/mdsio_writemeta.F
ViewVC logotype

Diff of /MITgcm/pkg/mdsio/mdsio_writemeta.F

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

revision 1.1 by adcroft, Tue Mar 6 15:28:54 2001 UTC revision 1.2 by adcroft, Wed Aug 29 14:16:24 2001 UTC
# Line 109  C Write the integer time (integer iterat Line 109  C Write the integer time (integer iterat
109  C keeping. If the timestep number is less than 0 then we assume  C keeping. If the timestep number is less than 0 then we assume
110  C that the information is superfluous and do not write it.  C that the information is superfluous and do not write it.
111        if (myIter .ge. 0)        if (myIter .ge. 0)
112       & write(mUnit,'(x,a,i8,a)') 'timeStepNumber = [ ',myIter,' ];'       & write(mUnit,'(x,a,i10,a)') 'timeStepNumber = [ ',myIter,' ];'
113    
114  C Close meta-file  C Close meta-file
115        close(mUnit)        close(mUnit)
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22