integer n, nvf,nvl, n1,n2, indv, ic

        n1 = IFNBLNK(tname)

        IF ((n2-n1+1) .GT. MNC_MAX_CHAR) THEN

     &         tname(n1:n2), ''' has more than ', MNC_MAX_CHAR,

          n2 = MNC_MAX_CHAR + n1 - 1

        mnc_cw_vtnm(n,indv)(1:(n2-n1+1)) = tname(n1:n2)

        n1 = IFNBLNK(tval)

        IF ((n2-n1+1) .GT. MNC_MAX_CATT) THEN

     &         tval(n1:n2), ''' has more than ', MNC_MAX_CATT,

          n2 = MNC_MAX_CATT + n1 - 1

        IF ((n1 .NE. 0) .AND. (n2 .NE. 0)) THEN

          mnc_cw_vtat(n,indv)(1:(n2-n1+1)) = tval(n1:n2)

        n1 = IFNBLNK(iname)

        mnc_cw_vinm(n,indv)(1:(n2-n1+1)) = iname(n1:n2)

        n1 = IFNBLNK(dname)

        mnc_cw_vdnm(n,indv)(1:(n2-n1+1)) = dname(n1:n2)

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

      n1 = ILNBLNK(atname)

      s1(1:n1) = atname(1:n1)

      integer ndv, did, ns,ne, n1,n2, indg, indv

          n1 = IFNBLNK(mnc_d_names(j))

          IF (((ne-ns) .EQ. (n2-n1)) 

        n1 = IFNBLNK(name)

        mnc_v_names(indv)(1:(n2-n1+1)) = name(n1:n2)

      integer i,j,k,l, n,n1, ngrid, ds,de

          n1 = ILNBLNK(mnc_d_names(l))

          IF ((n .EQ. n1) 

     &         .AND. (mnc_d_names(l)(1:n1) .EQ. dname(1:n))) THEN

          n1 = W2_myTileList(i,j)

          n2 = exch2_neighbourId(4,n1)

          n3 = exch2_neighbourId(2,n1)

          IF ( exch2_pij(3,4,n1).eq.-1 ) THEN

     &       n1,tmpU(1,k,n1,1), n2,tmpV(4,k,n2,1),

     &          tmpU(1,k,n1,1)  -  tmpV(4,k,n2,1)

     &       n1,tmpU(2,k,n1,1), n2,tmpV(3,k,n2,1),

     &          tmpU(2,k,n1,1)  -  tmpV(3,k,n2,1)

          IF ( exch2_pij(4,4,n1).eq.1 ) THEN

     &       n1,tmpU(1,k,n1,1), n2,tmpU(3,k,n2,1),

     &          tmpU(1,k,n1,1)  -  tmpU(3,k,n2,1)

     &       n1,tmpU(2,k,n1,1), n2,tmpU(4,k,n2,1),

     &          tmpU(2,k,n1,1)  -  tmpU(4,k,n2,1)

          IF ( exch2_pij(1,2,n1).eq.1 ) THEN

     &       n1,tmpV(1,k,n1,1), n3,tmpV(3,k,n3,1),

     &          tmpV(1,k,n1,1)  -  tmpV(3,k,n3,1)

     &       n1,tmpV(2,k,n1,1), n3,tmpV(4,k,n3,1),

     &          tmpV(2,k,n1,1)  -  tmpV(4,k,n3,1)

          IF ( exch2_pij(2,2,n1).eq.-1 ) THEN

     &       n1,tmpV(1,k,n1,1), n3,tmpU(4,k,n3,1),

     &          tmpV(1,k,n1,1)  -  tmpU(4,k,n3,1)

     &       n1,tmpV(2,k,n1,1), n3,tmpU(3,k,n3,1),

     &          tmpV(2,k,n1,1)  -  tmpU(3,k,n3,1)

          n1 = i

          IF (MOD(n1,2).EQ.1 ) THEN

           n2=1+mod(n1-2+5,6)

           n3=1+mod(n1-1+5,6)

     &       n1,tmpU(1,k,n1,1), n2,tmpV(4,k,n2,1),

     &          tmpU(1,k,n1,1)  -  tmpV(4,k,n2,1)

     &       n1,tmpU(2,k,n1,1), n2,tmpV(3,k,n2,1),

     &          tmpU(2,k,n1,1)  -  tmpV(3,k,n2,1)

     &       n1,tmpV(1,k,n1,1), n3,tmpV(3,k,n3,1),

     &          tmpV(1,k,n1,1)  -  tmpV(3,k,n3,1)

     &       n1,tmpV(2,k,n1,1), n3,tmpV(4,k,n3,1),

     &          tmpV(2,k,n1,1)  -  tmpV(4,k,n3,1)

           n2=1+mod(n1-1+5,6)

           n3=1+mod(n1-2+5,6)

     &       n1,tmpU(1,k,n1,1), n2,tmpU(3,k,n2,1),

     &          tmpU(1,k,n1,1)  -  tmpU(3,k,n2,1)

     &       n1,tmpU(2,k,n1,1), n2,tmpU(4,k,n2,1),

     &          tmpU(2,k,n1,1)  -  tmpU(4,k,n2,1)

     &       n1,tmpV(1,k,n1,1), n3,tmpU(4,k,n3,1),

     &          tmpV(1,k,n1,1)  -  tmpU(4,k,n3,1)

     &       n1,tmpV(2,k,n1,1), n3,tmpU(3,k,n3,1),

     &          tmpV(2,k,n1,1)  -  tmpU(3,k,n3,1)

      INTEGER n1,n2,n3