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

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

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

revision 1.3 by cnh, Thu Apr 23 20:56:54 1998 UTC revision 1.4 by cnh, Sat Aug 22 17:51:06 1998 UTC
# Line 376  C       x-face exchanges for xy real*8 d Line 376  C       x-face exchanges for xy real*8 d
376  C       x-face exchanges for xyz real*4 data  C       x-face exchanges for xyz real*4 data
377          elCount   = myByHi(I)-myByLo(I)+1          elCount   = myByHi(I)-myByLo(I)+1
378          elLen     = 1          elLen     = 1
379          arrElSep  = (sNx+OLx*2)*(sNy+OLy*2)*Nz*nSx          arrElSep  = (sNx+OLx*2)*(sNy+OLy*2)*Nr*nSx
380          arrElSize = 4          arrElSize = 4
381          elStride  = arrElSep*arrElSize          elStride  = arrElSep*arrElSize
382          CALL MPI_TYPE_HVECTOR(elCount,elLen,elStride,mpiTypeXFaceBlock_xyz_r4,          CALL MPI_TYPE_HVECTOR(elCount,elLen,elStride,mpiTypeXFaceBlock_xyz_r4,
# Line 466  C       y-face exchages for xy real*8 da Line 466  C       y-face exchages for xy real*8 da
466  C       y-face exchages for xyz real*4 data  C       y-face exchages for xyz real*4 data
467          elCount   = myBxHi(I)-myBxLo(I)+1          elCount   = myBxHi(I)-myBxLo(I)+1
468          elLen     = 1          elLen     = 1
469          arrElSep  = (sNx+OLx*2)*(sNy+OLy*2)*Nz          arrElSep  = (sNx+OLx*2)*(sNy+OLy*2)*Nr
470          arrElSize = 4          arrElSize = 4
471          elStride  = arrElSep*arrElSize          elStride  = arrElSep*arrElSize
472          CALL MPI_TYPE_HVECTOR(elCount,elLen,elStride,mpiTypeYFaceBlock_xyz_r4,          CALL MPI_TYPE_HVECTOR(elCount,elLen,elStride,mpiTypeYFaceBlock_xyz_r4,
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22