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

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

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

revision 1.4 by cnh, Wed Jun 10 15:27:32 1998 UTC revision 1.5 by cnh, Sat Aug 22 17:51:06 1998 UTC
# Line 396  C      xFace (y=constant) for XY arrays Line 396  C      xFace (y=constant) for XY arrays
396  C      xFace (y=constant) for XYZ arrays with real*4 declaration.  C      xFace (y=constant) for XYZ arrays with real*4 declaration.
397         arrElSize = 4         arrElSize = 4
398         arrElSep  = (sNx+OLx*2)*(sNy+OLy*2)         arrElSep  = (sNx+OLx*2)*(sNy+OLy*2)
399         elCount   = Nz         elCount   = Nr
400         elLen     = 1         elLen     = 1
401         elStride  = arrElSize*arrElSep         elStride  = arrElSize*arrElSep
402         CALL MPI_TYPE_HVECTOR(elCount,elLen,elStride,         CALL MPI_TYPE_HVECTOR(elCount,elLen,elStride,
# Line 482  C      yFace (x=constant) for XY arrays Line 482  C      yFace (x=constant) for XY arrays
482  C      yFace (x=constant) for XYZ arrays with real*4 declaration  C      yFace (x=constant) for XYZ arrays with real*4 declaration
483         arrElSize = 4         arrElSize = 4
484         arrElSep  = (sNx+OLx*2)*(sNy+OLy*2)         arrElSep  = (sNx+OLx*2)*(sNy+OLy*2)
485         elCount   = Nz         elCount   = Nr
486         elLen     = 1         elLen     = 1
487         elStride  = arrElSize*arrElSep         elStride  = arrElSize*arrElSep
488         CALL MPI_TYPE_HVECTOR(elCount,elLen,elStride,         CALL MPI_TYPE_HVECTOR(elCount,elLen,elStride,
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22