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

Diff of /MITgcm/pkg/compon_communic/mitcomponent_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 MITCOMPONENT_tile_register( ntx, nty, ireg, rreg )        subroutine MITCOMPONENT_tile_register( ntx, nty, ireg, rreg )
6        implicit none        implicit none
# Line 64  Line 67 
67        comm=MPI_COMM_myglobal        comm=MPI_COMM_myglobal
68    
69        call MPI_Send( ibuf, count, datatype, dest, tag, comm, ierr )        call MPI_Send( ibuf, count, datatype, dest, tag, comm, ierr )
70          
71        if (ierr.ne.0) then        if (ierr.ne.0) then
72         write(LogUnit,*) 'MITCOMPONENT_tile_register: rank(W,G,L)=',         write(LogUnit,*) 'MITCOMPONENT_tile_register: rank(W,G,L)=',
73       &            my_rank_in_world,my_rank_in_global,my_rank_in_local,       &            my_rank_in_world,my_rank_in_global,my_rank_in_local,
# Line 90  Line 93 
93         comm=MPI_COMM_myglobal         comm=MPI_COMM_myglobal
94    
95         call MPI_Send( ibuf, count, datatype, dest, tag, comm, ierr )         call MPI_Send( ibuf, count, datatype, dest, tag, comm, ierr )
96          
97         if (ierr.ne.0) then         if (ierr.ne.0) then
98          write(LogUnit,*) 'MITCOMPONENT_tile_register: rank(W,G,L)=',          write(LogUnit,*) 'MITCOMPONENT_tile_register: rank(W,G,L)=',
99       &           my_rank_in_world,my_rank_in_global,my_rank_in_local,       &           my_rank_in_world,my_rank_in_global,my_rank_in_local,
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22