Commit 658adf3c authored by Keith Bennett's avatar Keith Bennett

Merge branch 'hotfix/1.3.2'

parents 98a14b9d 920465f8
......@@ -1170,7 +1170,8 @@ CONTAINS
b%data_length = sz*len1 + len2
ENDIF
CALL MPI_BCAST(b%data_length, 1, MPI_INTEGER8, 0, h%comm, errcode)
! Since this call is done in serial, we should not use collective comms
!CALL MPI_BCAST(b%data_length, 1, MPI_INTEGER8, 0, h%comm, errcode)
! Write header
CALL sdf_write_block_header(h, id, name)
......@@ -1267,7 +1268,8 @@ CONTAINS
b%data_length = n1 * soi8 - b%padding
ENDIF
CALL MPI_BCAST(b%data_length, 1, MPI_INTEGER8, 0, h%comm, errcode)
! Since this call is done in serial, we should not use collective comms
!CALL MPI_BCAST(b%data_length, 1, MPI_INTEGER8, 0, h%comm, errcode)
b%nelements = b%data_length
CALL sdf_safe_copy_id(h, mimetype, b%mimetype)
......@@ -1331,7 +1333,8 @@ CONTAINS
b%data_length = sz*len1 + len2
ENDIF
CALL MPI_BCAST(b%data_length, 1, MPI_INTEGER8, 0, h%comm, errcode)
! Since this call is done in serial, we should not use collective comms
!CALL MPI_BCAST(b%data_length, 1, MPI_INTEGER8, 0, h%comm, errcode)
b%nelements = b%data_length
CALL sdf_safe_copy_id(h, mimetype, b%mimetype)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment