renamining + shielding parallel

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

diff --git a/source/unres/control.F90 b/source/unres/control.F90
index 7160f8f..a1e49d3 100644 (file)
--- a/source/unres/control.F90
+++ b/source/unres/control.F90
@@ -1389,10 +1389,10 @@
         call MPI_Type_commit(MPI_D50,IERROR)
 
          impishi=maxcontsshi*3
-        call MPI_Type_contiguous(impishi,MPI_DOUBLE_PRECISION, &
-        MPI_SHI,IERROR)
-        call MPI_Type_commit(MPI_SHI,IERROR)
-
+!        call MPI_Type_contiguous(impishi,MPI_DOUBLE_PRECISION, &
+!        MPI_SHI,IERROR)
+!        call MPI_Type_commit(MPI_SHI,IERROR)
+!        print *,MPI_SHI,"MPI_SHI",MPI_D50
         call MPI_Type_contiguous(2,MPI_DOUBLE_PRECISION,MPI_MU,IERROR)
         call MPI_Type_commit(MPI_MU,IERROR)
         call MPI_Type_contiguous(4,MPI_DOUBLE_PRECISION,MPI_MAT1,IERROR)