/[MITgcm]/MITgcm/eesupp/src/dfile.F
ViewVC logotype

Diff of /MITgcm/eesupp/src/dfile.F

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

revision 1.4 by adcroft, Mon Jun 22 15:26:25 1998 UTC revision 1.5 by adcroft, Mon Jun 22 16:24:51 1998 UTC
# Line 325  C--   Check that file is active Line 325  C--   Check that file is active
325         iLo = IFNBLNK(fNam)         iLo = IFNBLNK(fNam)
326         iHi = ILNBLNK(fNam)         iHi = ILNBLNK(fNam)
327         ioUnit = dUnitNumber(fileHandle,myThid)         ioUnit = dUnitNumber(fileHandle,myThid)
328         READ(ioUnit) (ioBuf_R4(I),I=1,lBuffer)         READ(ioUnit,ERR=899) (ioBuf_R4(I),I=1,lBuffer)
329    
330    
331   1000 CONTINUE   1000 CONTINUE
# Line 570  C--   Now write meta information Line 570  C--   Now write meta information
570         WRITE(msgBuf,'(A)') '// START OF META DATA'         WRITE(msgBuf,'(A)') '// START OF META DATA'
571         CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT , 1)         CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT , 1)
572    
573         WRITE(msgBuf,'(A,A)') ' id = ','/* Identifier */'         WRITE(msgBuf,'(A,A)') ' id =[ ','/* Identifier */'
574         CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT , 1)         CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT , 1)
575         CALL PRINT_LIST_I( fileId, 1, INDEX_NONE, ioUnit )         CALL PRINT_LIST_I( fileId, 1, INDEX_NONE, .FALSE., .TRUE., ioUnit )
576         WRITE(msgBuf,'(A)')   '    ;     '         WRITE(msgBuf,'(A)')   '   ];     '
577         CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT , 1)         CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT , 1)
578    
579         WRITE(msgBuf,'(A,A)') ' nDims = ','/* Number of dimensions */'         WRITE(msgBuf,'(A,A)') ' nDims =[ ','/* Number of dimensions */'
580         CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT , 1)         CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT , 1)
581         CALL PRINT_LIST_I( nDims, 1, INDEX_NONE, ioUnit )         CALL PRINT_LIST_I( nDims, 1, INDEX_NONE, .FALSE., .TRUE., ioUnit )
582         WRITE(msgBuf,'(A)')   '    ;     '         WRITE(msgBuf,'(A)')   '   ];     '
583         CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT , 1)         CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT , 1)
584    
585         WRITE(msgBuf,'(A,A)') ' dimList = ',         WRITE(msgBuf,'(A,A)') ' dimList =[ ',
586       &  '/* Global1, local min1, local max1, ... */'       &  '/* Global1, local min1, local max1, ... */'
587         CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT , 1)         CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT , 1)
588         DO I=1,nDims         DO I=1,nDims
589          CALL PRINT_LIST_I( dimList((I-1)*3+1), 3, INDEX_NONE, ioUnit )          CALL PRINT_LIST_I( dimList((I-1)*3+1), 3, INDEX_NONE, I.NE.nDims, .FALSE., ioUnit )
590         ENDDO         ENDDO
591         WRITE(msgBuf,'(A)')   '    ;     '         WRITE(msgBuf,'(A)')   '   ];     '
592           CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT , 1)
593    
594           WRITE(msgBuf,'(A,A)') ' format =[ ','/* Field format */'
595           CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT , 1)
596           WRITE(msgBuf,'(16X,A)')   '''float32'''
597           CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT , 1)
598           WRITE(msgBuf,'(A)')   '   ];     '
599         CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT , 1)         CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT , 1)
600    
601         WRITE(msgBuf,'(A)') '// END OF META DATA'         WRITE(msgBuf,'(A)') '// END OF META DATA'
# Line 692  C--   Now write meta information Line 699  C--   Now write meta information
699         WRITE(msgBuf,'(A)') '// START OF META DATA'         WRITE(msgBuf,'(A)') '// START OF META DATA'
700         CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT , 1)         CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT , 1)
701    
702         WRITE(msgBuf,'(A,A)') ' id = ','/* Identifier */'         WRITE(msgBuf,'(A,A)') ' id =[ ','/* Identifier */'
703         CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT , 1)         CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT , 1)
704         CALL PRINT_LIST_I( fileId, 1, INDEX_NONE, ioUnit )         CALL PRINT_LIST_I( fileId, 1, INDEX_NONE, .FALSE., .TRUE., ioUnit )
705         WRITE(msgBuf,'(A)')   '    ;     '         WRITE(msgBuf,'(A)')   '   ];     '
706         CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT , 1)         CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT , 1)
707    
708         WRITE(msgBuf,'(A,A)') ' nDims = ','/* Number of dimensions */'         WRITE(msgBuf,'(A,A)') ' nDims =[ ','/* Number of dimensions */'
709         CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT , 1)         CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT , 1)
710         CALL PRINT_LIST_I( nDims, 1, INDEX_NONE, ioUnit )         CALL PRINT_LIST_I( nDims, 1, INDEX_NONE, .FALSE., .TRUE., ioUnit )
711         WRITE(msgBuf,'(A)')   '    ;     '         WRITE(msgBuf,'(A)')   '   ];     '
712         CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT , 1)         CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT , 1)
713    
714         WRITE(msgBuf,'(A,A)') ' dimList = ',         WRITE(msgBuf,'(A,A)') ' dimList =[ ',
715       &  '/* Global1, local min1, local max1, ... */'       &  '/* Global1, local min1, local max1, ... */'
716         CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT , 1)         CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT , 1)
717         DO I=1,nDims         DO I=1,nDims
718          CALL PRINT_LIST_I( dimList((I-1)*3+1), 3, INDEX_NONE, ioUnit )          CALL PRINT_LIST_I( dimList((I-1)*3+1), 3, INDEX_NONE, I.NE.nDims, .FALSE., ioUnit )
719         ENDDO         ENDDO
720           WRITE(msgBuf,'(A)')   '   ];     '
721         CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT , 1)         CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT , 1)
722    
723           WRITE(msgBuf,'(A,A)') ' format =[ ','/* Field format */'
724           CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT , 1)
725           WRITE(msgBuf,'(16X,A)')   '''float64'''
726           CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT , 1)
727           WRITE(msgBuf,'(A)')   '   ];     '
728           CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT , 1)
729    
730         WRITE(msgBuf,'(A)') '// END OF META DATA'         WRITE(msgBuf,'(A)') '// END OF META DATA'
731         CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT , 1)         CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT , 1)
732         metaDataStatus(fileHandle,myThid) = metaDataWritten         metaDataStatus(fileHandle,myThid) = metaDataWritten
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22