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

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

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

revision 1.4 by jmc, Fri May 29 16:05:41 2009 UTC revision 1.5 by jmc, Thu Jan 7 23:41:35 2010 UTC
# Line 174  C     for now, comment out this line for Line 174  C     for now, comment out this line for
174        IF ( nTimRec.GT.0 ) THEN        IF ( nTimRec.GT.0 ) THEN
175         ii = MIN(nTimRec,20)         ii = MIN(nTimRec,20)
176         WRITE(msgBuf,'(1P20E20.12)') (timList(i),i=1,ii)         WRITE(msgBuf,'(1P20E20.12)') (timList(i),i=1,ii)
177         WRITE(mUnit,'(3A)')' /* modelTime = [', msgBuf(1:20*ii),' ];*/'  c      WRITE(mUnit,'(3A)')' /* modelTime = [', msgBuf(1:20*ii),' ];*/'
178  c      iL = ILNBLNK(msgBuf)         WRITE(mUnit,'(1X,3A)') 'timeInterval = [', msgBuf(1:20*ii),' ];'
 c      WRITE(mUnit,'(1X,3A)') 'modelTime = [', msgBuf(1:iL),' ];'  
179        ENDIF        ENDIF
180    
181  C-    Write list of Fields  C-    Write list of Fields
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22