From 56c0f30687e6ec4818581dffac60c7e90d6fb14e Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Sun, 29 Sep 2019 10:34:55 -0700 Subject: [PATCH] tried to send to much data --- src/grid/spectral_utilities.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/grid/spectral_utilities.f90 b/src/grid/spectral_utilities.f90 index 97eb6207d..1905d68c7 100644 --- a/src/grid/spectral_utilities.f90 +++ b/src/grid/spectral_utilities.f90 @@ -1083,7 +1083,7 @@ subroutine utilities_updateCoords(F) !-------------------------------------------------------------------------------------------------- ! calculate nodal displacements IPfluct_padded(1:3,1:grid(1),1:grid(2),2:grid3+1) = vectorField_real(1:3,1:grid(1),1:grid(2),1:grid3) - c = product(shape(nodeCoords(:,:,:,1))) + c = product(shape(IPfluct_padded(:,:,:,1))) rank_t = modulo(worldrank+1,worldsize) rank_b = modulo(worldrank-1,worldsize) call MPI_Isend(IPfluct_padded(:,:,:,2), c,MPI_DOUBLE,rank_b,0,PETSC_COMM_WORLD,r,ierr)