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

Diff of /MITgcm/pkg/compon_communic/coupsend_r4tiles.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.3 by jmc, Wed Nov 4 17:04:21 2015 UTC
# Line 1  Line 1 
1    C $Header$
2    C $Name$
3    
4  !=======================================================================  !=======================================================================
5        subroutine coupsend_r4tiles( component, dataname, Nx, Ny, arr )        subroutine coupsend_r4tiles( component, dataname, Nx, Ny, arr )
6        implicit none        implicit none
7    ! Predefined constants/arrays
8    #include "CPLR_SIG.h"
9    ! MPI variables
10    #include "mpif.h"
11  ! Arguments  ! Arguments
12        character*(*) component        character*(*) component
13        character*(*) dataname        character*(*) dataname
14        integer Nx,Ny        integer Nx,Ny
15        real*4 arr(Nx,Ny)        real*4 arr(Nx,Ny)
 ! Predefined constants/arrays  
 #include "CPLR_SIG.h"  
 ! MPI variables  
 #include "mpif.h"  
       integer count,dtype,dest,tag,comm,ierr  
16  ! Functions  ! Functions
17        integer mitcplr_match_comp        integer mitcplr_match_comp
18        integer generate_tag        integer generate_tag
19          external mitcplr_match_comp
20          external generate_tag
21  ! Local  ! Local
22          integer count,dtype,dest,tag,comm,ierr
23        integer compind,numprocs        integer compind,numprocs
24        integer i,j,ij,n,bibj        integer i,j,ij,n,bibj
25        integer Ni,Io,Nj,Jo        integer Ni,Io,Nj,Jo
# Line 80  Line 85 
85           write(LogUnit,*) 'coupsend_r4tiles: rank(W,G)=',           write(LogUnit,*) 'coupsend_r4tiles: rank(W,G)=',
86       &            my_rank_in_world,my_rank_in_global,       &            my_rank_in_world,my_rank_in_global,
87       &            ' ierr=',ierr       &            ' ierr=',ierr
88           stop 'coupsend_r4tiles: MPI_Recv failed'           stop 'coupsend_r4tiles: MPI_Send failed'
89          endif          endif
90    
91         enddo ! bibj         enddo ! bibj
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22