/[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.2 by jmc, Sun Sep 23 22:52:50 2007 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    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22