/[MITgcm]/MITgcm/eesupp/src/scatter_xz.F
ViewVC logotype

Diff of /MITgcm/eesupp/src/scatter_xz.F

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

revision 1.1 by heimbach, Wed Jun 7 21:29:15 2006 UTC revision 1.3 by jmc, Tue Apr 28 18:28:55 2009 UTC
# Line 1  Line 1 
1  #include "CPP_OPTIONS.h"  C $Header$
2    C $Name$
3    
4    #include "CPP_EEOPTIONS.h"
5    
6        SUBROUTINE SCATTER_XZ( global, local, myThid )        SUBROUTINE SCATTER_XZ( global, local, myThid )
7  C     Scatter elements of a x-z array from mpi process 0 to all processes.  C     Scatter elements of a x-z array from mpi process 0 to all processes.
# Line 8  C     Scatter elements of a x-z array fr Line 11  C     Scatter elements of a x-z array fr
11  #include "EESUPPORT.h"  #include "EESUPPORT.h"
12  C     mythid - thread number for this instance of the routine.  C     mythid - thread number for this instance of the routine.
13  C     global,local - working arrays used to transfer 2-D fields  C     global,local - working arrays used to transfer 2-D fields
14        INTEGER mythid        INTEGER mythid
15        Real*8  global(Nx)        Real*8  global(Nx)
16        _RL     local(1-OLx:sNx+OLx,nSx,nSy)        _RL     local(1-OLx:sNx+OLx,nSx,nSy)
17    
# Line 84  C--   All proceses except 0 receive loca Line 87  C--   All proceses except 0 receive loca
87        _BARRIER        _BARRIER
88    
89  C--   Fill in edges.  C--   Fill in edges.
90  CMM      _EXCH_XY_R8( local, myThid )  CMM      _EXCH_XY_RL( local, myThid )
91    
92        RETURN        RETURN
93        END        END
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22