CALL MNC_CW_SET_UDIM(bfname(nf:nl), 0, myThid)

      CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'rC',rC,myThid)

      CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'rF',rF,myThid)

      CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'drC',drC,myThid)

      CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'drF',drF,myThid)

      CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'xC',xC,myThid)

      CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'yC',yC,myThid)

      CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'xG',xG,myThid)

      CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'yG',yG,myThid)

      CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'dxC',dxC,myThid)

      CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'dyC',dyC,myThid)

      CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'dxF',dxF,myThid)

      CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'dyF',dyF,myThid)

      CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'dxG',dxG,myThid)

      CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'dyG',dyG,myThid)

      CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'dxV',dxV,myThid)

      CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'dyU',dyU,myThid)

      CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'rA',rA,myThid)

      CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'rAw',rAw,myThid)

      CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'rAs',rAs,myThid)

      CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'rAz',rAz,myThid)

      CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'fCori',fCori,myThid)

      CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'fCoriG',fCoriG,myThid)

      CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'R_low',R_low,myThid)

      CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'Ro_surf',Ro_surf,myThid)

      CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'HFacC',HFacC,myThid)

      CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'HFacW',HFacW,myThid)

      CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'HFacS',HFacS,myThid)

      integer nf,nl

      nf = IFNBLNK(bfname)

        write(msgbuf,'(3a)') 'MNC ERROR: file ''', fname(1:nf),

     &             fname(1:nf), ''' and its size cannot be changed'

     &       'dim ''', dname(dnf:dnl), ''' in file ''', fname(1:nf)

      integer i,j, nf, indf, fid, unlimid, err

      nf = ILNBLNK(fname)

        write(msgbuf,'(3a)') 'MNC ERROR: file ''', fname(1:nf),

     &         'determine unlimited dim size in file ''', fname(1:nf)

      integer i,j, indf,indd, n,nf, dnf,dnl

      nf = ILNBLNK(fname)

      integer n, nf, err, fid, ind, n1, lens

        nf = ILNBLNK( fname )

     &       fname(1:nf), ''' must be opened first'

      integer i,j,k,n, err, fid, indf, nf

      nf = ILNBLNK(fname)

        write(msgbuf,'(3a)') 'MNC Warning: file ''', fname(1:nf), 

      write(msgbuf,'(3a)') ' cannot close file ''', fname(1:nf), ''''

      integer n, err, fid, nf

      nf = ILNBLNK(fname)

        write(msgbuf,'(3a)') 'MNC_FILE_OPEN ERROR: ''', fname(1:nf), 

      write(msgbuf,'(3a)') 'opening ''', fname(1:nf), ''''

     &         fname(1:nf), ''''

      integer i,j,k,ii,jj,kk, n,nf, indf,indg,indd, fid, ngrid

      nf = ILNBLNK(fname)

      IF (nf .GT. MNC_MAX_PATH) nf = MNC_MAX_PATH

      file_name(1:nf) = fname(1:nf)

        write(msgbuf,'(3a)') 'MNC ERROR: file ''', file_name(1:nf), 

        nf = ILNBLNK( name_list(i) )

        IF ( nf .EQ. n ) THEN

      integer n, i, nf, ind, lenm

      INTEGER i,j,k, n, nf, indf,indv, fid, nd, ngrid, is,ie, err

        nf = ILNBLNK( fname )

        WRITE(msgBuf,'(3A)') 'MNC ERROR: file ''', fname(1:nf),

           nf = 1 + MOD(1+bi,2)

     &                             + shareBufCS2_R8(nf,bi,bj)

      INTEGER nf

        DO nf = 1,nfields(n),10

          m = MIN(nfields(n),nf+9)

          WRITE(msgBuf,'(21A)') ' Fields:   ',(' ',flds(l,n),l=nf,m)

        DO nf = 1,diagSt_nbFlds(n),10

          m = MIN(diagSt_nbFlds(n),nf+9)

     &                 (' ',diagSt_Flds(l,n),l=nf,m)

      INTEGER j,k,l,n,m,nf