integer i,j,ij,n,bibj

      do n=1,numprocs

       do bibj=1,component_num_tiles(n,compind)

        Io=component_tile_i0(bibj,n,compind)

        Jo=component_tile_j0(bibj,n,compind)

        Ni=component_tile_nx(bibj,n,compind)

        Nj=component_tile_ny(bibj,n,compind)

        dest=rank_component_procs(n,compind)

     &     dest,' proc=',n,'/',numprocs,' tile=',bibj

      integer i,j,ij,n

      do n=1,numprocs

       tag=generate_tag(102,n,dataname)

       rank=rank_component_procs(n,compind)

     &    ' proc=',n,'/',numprocs

      integer i,j,ij,n,bibj

      do n=1,numprocs

       do bibj=1,component_num_tiles(n,compind)

        Io=component_tile_i0(bibj,n,compind)

        Jo=component_tile_j0(bibj,n,compind)

        Ni=component_tile_nx(bibj,n,compind)

        Nj=component_tile_ny(bibj,n,compind)

        dest=rank_component_procs(n,compind)

     &     dest,' proc=',n,'/',numprocs,' tile=',bibj

      integer i,j,ij,n,bibj

      do n=1,numprocs

       do bibj=1,component_num_tiles(n,compind)

       rank=rank_component_procs(n,compind)

     &    ' proc=',n,'/',numprocs,' tile=',bibj

       if (Io.ne.component_tile_i0(bibj,n,compind))

       if (Jo.ne.component_tile_j0(bibj,n,compind))

       if (Ni.ne.component_tile_nx(bibj,n,compind))

       if (Nj.ne.component_tile_ny(bibj,n,compind))

      integer i,j,ij,n

      do n=1,numprocs

       Io=component_tile_i0(1,n,compind)

       Jo=component_tile_j0(1,n,compind)

       Ni=component_tile_nx(1,n,compind)

       Nj=component_tile_ny(1,n,compind)

       tag=generate_tag(121,n,dataname)

       dest=rank_component_procs(n,compind)

     &    ' proc=',n,'/',numprocs

      integer n,j,lenbuf

      do n=0,numprocs-1

     &               n, 

      call MPI_COMM_RANK( MPI_COMM_World, n, ierr )

      my_rank_in_world=n

      integer n,numprocs

      do n=1,numprocs

       tag=generate_tag(112,n,'Register Tiles')

       rank=rank_component_procs(n,compind)

       component_num_tiles(n,compind)=numtiles

        rank=rank_component_procs(n,compind)

        component_tile_nx(j,n,compind)=ibuf(1)

        component_tile_ny(j,n,compind)=ibuf(2)

        component_tile_i0(j,n,compind)=ibuf(3)

        component_tile_j0(j,n,compind)=ibuf(4)

     &   ' proc,tile,nx,ny,i0,j0 = ',n,j,ibuf(1),ibuf(2),ibuf(3),ibuf(4)

      integer i,j,ij,n,bibj

      do n=1,numprocs

       do bibj=1,component_num_tiles(n,compind)

       rank=rank_component_procs(n,compind)

     &    ' proc=',n,'/',numprocs,' tile=',bibj

       if (Io.ne.component_tile_i0(bibj,n,compind))

       if (Jo.ne.component_tile_j0(bibj,n,compind))

       if (Ni.ne.component_tile_nx(bibj,n,compind))

       if (Nj.ne.component_tile_ny(bibj,n,compind))

      integer n,j

      integer i,j,ij,n

      do n=1,numprocs

       tag=generate_tag(102,n,dataname)

       rank=rank_component_procs(n,compind)

     &    ' proc=',n,'/',numprocs

      integer i,j,ij,n

      do n=1,numprocs

       Io=component_tile_i0(1,n,compind)

       Jo=component_tile_j0(1,n,compind)

       Ni=component_tile_nx(1,n,compind)

       Nj=component_tile_ny(1,n,compind)

       tag=generate_tag(121,n,dataname)

       dest=rank_component_procs(n,compind)

     &    ' proc=',n,'/',numprocs

      do n=1,num_components

     &    ' component=',component_Name(n),

     &    ( rank_component_procs(j,n),j=1,num_component_procs(n) )

     &    ' comp+cplr=',component_Name(n),

     &    ( rank_compcplr_procs(j,n),j=1,num_compcplr_procs(n) )

      do n=1,num_components

     &   num_component_procs(n),

     &   rank_component_procs(1,n),

     &   MPI_COMM_component(n),

     &   ' MPI_Comm_create MPI_COMM_component=',MPI_COMM_component(n),

     &   num_compcplr_procs(n),

     &   rank_compcplr_procs(1,n),

     &   MPI_COMM_compcplr(n),

     &   ' MPI_Comm_create MPI_COMM_compcplr=',MPI_COMM_compcplr(n),

       do n=1,num_components

        call MPI_COMM_RANK( MPI_COMM_compcplr(n), j, ierr )

        call MPI_COMM_SIZE( MPI_COMM_compcplr(n), numprocs, ierr )

     &     ' in Component =',n

      integer n,j

      do n=0,numprocs-1

     &               n, 

      integer n,j,lenbuf,compind

       do n=0,numprocs-1

     &               n, 

      integer n,j

      do n=1,numprocs

       write(LogUnit,*) 'MITCOUPLER_register: proc,nx,ny = ',n,

     &    component_tile_nx(1,n,compind),component_tile_ny(1,n,compind)

      integer n,numprocs

      do n=1,numprocs

       tag=generate_tag(115,n,'Register')

       rank=rank_component_procs(n,compind)

       component_num_tiles(n,compind)=1

       component_tile_nx(1,n,compind)=nx

       component_tile_ny(1,n,compind)=ny

       component_tile_i0(1,n,compind)=i0

       component_tile_j0(1,n,compind)=j0

      DO n=1,nSepBnd

       _GLOBAL_SUM_R8(theVol(n), myThid)

       _GLOBAL_SUM_R8(theMean(n),myThid)

       _GLOBAL_SUM_R8(theVar(n), myThid)

      DO n=1,nSepBnd

       IF (theVol(n).GT.0.) THEN

        theMean(n)= theMean(n)/theVol(n)

        theVar(n) = theVar(n) /theVol(n)

        theVar(n) = theVar(n) -theMean(n)*theMean(n)

        IF ( noPnts(n) ) theMin(n) = theMean(n)

        theMin(n) = -theMin(n)

        _GLOBAL_MAX_R8(theMin(n), myThid)

        theMin(n)=-theMin(n)

        IF ( noPnts(n) ) theMax(n) = theMin(n)

        _GLOBAL_MAX_R8(theMax(n), myThid)

      INTEGER n

      DO n=2,nBnd

       IF (yLoc .GT. yBnd(n)) NLATBND = n

      INTEGER bi,bj,i,j,k,n

      DO n=1,nSepBnd

       noPnts(n)=.TRUE.

       theMin(n)=0.

       theMax(n)=0.

       theMean(n)=0.

       theVar(n)=0.

       theVol(n)=0.

           n = NLATBND(nSepBnd, ySepBnd, arrY(i,j,bi,bj) )

           IF (arrMask(i,j,km,bi,bj).NE.0. .AND. noPnts(n)) THEN

            theMin(n)=tmpVal

            theMax(n)=tmpVal

            noPnts(n)=.FALSE.

            theMin(n)=MIN(theMin(n),tmpVal)

            theMax(n)=MAX(theMax(n),tmpVal)

            theVol(n) = theVol(n) + tmpVol

            theMean(n)= theMean(n)+ tmpVol*tmpVal

            theVar(n) = theVar(n) + tmpVol*tmpVal*tmpVal