data_file(i:i) = ' '

      WRITE(data_file,'(a)') 'data.mnc'

      nl = ILNBLNK(data_file)

     &       data_file(1:nl), ''''

      CALL OPEN_COPY_DATA_FILE(data_file(1:nl),'MNC_READPARMS',

      CHARACTER*(MAX_LEN_MBUF) data_file

        INQUIRE( FILE=data_file, EXIST=existing )

     &       ': ignores "', data_file(1:iLen3), '" file since'

      CHARACTER*(MAX_LEN_FNAM) data_file

      WRITE(data_file, '(A)') ' '

          WRITE(data_file,'(2A)') 'data.', sw_name(4:iLen1)

        WRITE(data_file,'(2A)') 'data.', pkgLwc(1:iLen)

        WRITE(data_file,'(2A)') 'data.', df_sufx(1:iLen3)

     &                           'from file="', data_file, '".'

     I                              data_file, myThid )

        WRITE(iUnit,'(5A)') ' ',data_file,' , rec >',record(1:i0),'<'

     &                          'from file="', data_file, '".'

     &                          'from file="', data_file, '".'

     &                          'from file="', data_file, '".'

      CHARACTER*(*) data_file

      OPEN(UNIT=modelDataUnit,FILE=data_file,STATUS='OLD',

     I                                data_file, caller_sub,

     &  'Unable to open parameter file: ',data_file

         CALL NML_CHANGE_SYNTAX( RECORD, data_file, myThid )

      WRITE(msgBuf,'(A,A,A)') '// Parameter file "',data_file,'"'

      CHARACTER*(*) data_file

      INQUIRE( FILE=data_file, EXIST=exst )

     &   ' OPEN_COPY_DATA_FILE: opening file ',data_file

     &  'File ',data_file,' does not exist!'

      WRITE(scratchFile1,'(A,A)') 'scratch1_', data_file

      WRITE(scratchFile2,'(A,A)') 'scratch2_', data_file