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

Diff of /MITgcm/pkg/compon_communic/mitcomponent_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_register( nx, ny, i0, j0 )        subroutine MITCOMPONENT_register( nx, ny, i0, j0 )
6        implicit none        implicit none
# Line 43  Line 46 
46        comm=MPI_COMM_myglobal        comm=MPI_COMM_myglobal
47    
48        call MPI_Send( ibuf, count, datatype, dest, tag, comm, ierr )        call MPI_Send( ibuf, count, datatype, dest, tag, comm, ierr )
49          
50        if (ierr.ne.0) then        if (ierr.ne.0) then
51         write(LogUnit,*) 'MITCOMPONENT_register: rank(W,G,L)=',         write(LogUnit,*) 'MITCOMPONENT_register: rank(W,G,L)=',
52       &            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