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

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

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

revision 1.154 by jmc, Tue Nov 29 00:11:22 2016 UTC revision 1.155 by jmc, Fri Mar 24 21:56:45 2017 UTC
# Line 581  c     CALL PRINT_MESSAGE( msgBuf, ioUnit Line 581  c     CALL PRINT_MESSAGE( msgBuf, ioUnit
581       &  ' /* Precision used for reading binary files */')       &  ' /* Precision used for reading binary files */')
582        CALL WRITE_0D_I(writeBinaryPrec, INDEX_NONE, 'writeBinaryPrec =',        CALL WRITE_0D_I(writeBinaryPrec, INDEX_NONE, 'writeBinaryPrec =',
583       &  ' /* Precision used for writing binary files */')       &  ' /* Precision used for writing binary files */')
584    C---
585    c     CALL WRITE_0D_I(rwSuffixType, INDEX_NONE, 'rwSuffixType =',
586    c    &  ' /* Select format of mds file suffix */')
587          WRITE(msgBuf,'(2A)') ' rwSuffixType =  ',
588         &             ' /* select format of mds file suffix */'
589          CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid )
590          buffI(1) = rwSuffixType
591          CALL PRINT_LIST_I( buffI, 1, 1, INDEX_NONE,
592         &                   .FALSE., .TRUE., ioUnit )
593          WRITE(msgBuf,'(2A)') '   = 0 : myIter (I10.10) ;',
594         &                     '   = 1 : 100*myTime (100th sec) ;'
595          CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid )
596          WRITE(msgBuf,'(2A)') '   = 2 : myTime (seconds);',
597         &                     '   = 3 : myTime/360 (10th of hr);'
598          CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid )
599          WRITE(msgBuf,'(2A)') '   = 4 : myTime/3600 (hours)'
600          CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid )
601          CALL PRINT_MESSAGE(endList, ioUnit, SQUEEZE_RIGHT, myThid )
602    C---
603        CALL WRITE_0D_L( globalFiles,  INDEX_NONE,        CALL WRITE_0D_L( globalFiles,  INDEX_NONE,
604       & ' globalFiles =',' /* write "global" (=not per tile) files */')       & ' globalFiles =',' /* write "global" (=not per tile) files */')
605        CALL WRITE_0D_L( useSingleCpuIO,  INDEX_NONE,        CALL WRITE_0D_L( useSingleCpuIO,  INDEX_NONE,
Legend:
Removed from v.1.154  
changed lines
  Added in v.1.155
  ViewVC Help
Powered by ViewVC 1.1.22