BUG found in SC-SC grad and FGPROC>1

[unres4.git] / source / unres / control.F90

diff --git a/source/unres/control.F90 b/source/unres/control.F90
index 4c413ec..7160f8f 100644 (file)
--- a/source/unres/control.F90
+++ b/source/unres/control.F90
@@ -1385,6 +1385,9 @@
         call MPI_Type_commit(MPI_UYZGRAD,IERROR)
         call MPI_Type_contiguous(maxcontsshi,MPI_INTEGER,MPI_I50,IERROR)
         call MPI_Type_commit(MPI_I50,IERROR)
+        call MPI_Type_contiguous(maxcontsshi,MPI_DOUBLE_PRECISION,MPI_D50,IERROR)
+        call MPI_Type_commit(MPI_D50,IERROR)
+
          impishi=maxcontsshi*3
         call MPI_Type_contiguous(impishi,MPI_DOUBLE_PRECISION, &
         MPI_SHI,IERROR)