/[MITgcm]/MITgcm/pkg/mnc/mnc_readparms.F
ViewVC logotype

Diff of /MITgcm/pkg/mnc/mnc_readparms.F

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

revision 1.37 by jmc, Tue Feb 24 19:59:22 2015 UTC revision 1.38 by mlosch, Wed Aug 9 15:23:37 2017 UTC
# Line 131  C     Set the file name Line 131  C     Set the file name
131        CALL OPEN_COPY_DATA_FILE(data_file(1:nl),'MNC_READPARMS',        CALL OPEN_COPY_DATA_FILE(data_file(1:nl),'MNC_READPARMS',
132       &     ku, myThid )       &     ku, myThid )
133        READ(ku,NML=MNC_01)        READ(ku,NML=MNC_01)
134    #ifdef SINGLE_DISK_IO
135        CLOSE(ku)        CLOSE(ku)
136    #else
137          CLOSE(ku,STATUS='DELETE')
138    #endif /* SINGLE_DISK_IO */
139    
140        WRITE(msgBuf,'(a)') ' MNC_READPARMS: finished reading data.mnc'        WRITE(msgBuf,'(a)') ' MNC_READPARMS: finished reading data.mnc'
141        CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,        CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,
Legend:
Removed from v.1.37  
changed lines
  Added in v.1.38
  ViewVC Help
Powered by ViewVC 1.1.22