/[MITgcm]/MITgcm/pkg/compon_communic/mitcoupler_tile_register.F
ViewVC logotype

Diff of /MITgcm/pkg/compon_communic/mitcoupler_tile_register.F

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

revision 1.1 by jmc, Mon Dec 15 02:35:29 2003 UTC revision 1.2 by jmc, Mon Oct 8 23:58:20 2007 UTC
# Line 1  Line 1 
1    C $Header$
2    C $Name$
3    
4  !=======================================================================  !=======================================================================
5        subroutine MITCOUPLER_tile_register( compName, nnx, nny )        subroutine MITCOUPLER_tile_register( compName, nnx, nny )
6        implicit none        implicit none
# Line 46  Line 49 
49         rank=rank_component_procs(n,compind)         rank=rank_component_procs(n,compind)
50    
51         call MPI_Recv(ibuf, count, dtype, rank, tag, comm, stat, ierr)         call MPI_Recv(ibuf, count, dtype, rank, tag, comm, stat, ierr)
52          
53         if (ierr.ne.0) then         if (ierr.ne.0) then
54          write(LogUnit,*) 'MITCOUPLER_tile_register: rank(W,G)=',          write(LogUnit,*) 'MITCOUPLER_tile_register: rank(W,G)=',
55       &            my_rank_in_world,my_rank_in_global,       &            my_rank_in_world,my_rank_in_global,
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22