Changeset 1001

Timestamp:

01/10/20 12:20:52 (4 years ago)

Author:

adurocher

Message:

transfert_mpi : fixed sign in vector messages

File:

• codes/icosagcm/trunk/src/parallel/transfert_mpi.f90 (modified) (1 diff)

codes/icosagcm/trunk/src/parallel/transfert_mpi.f90

@@ -565 +565 @@
               !print *, "field", message%message_in(i)%ind_loc, message%message_in(i)%displs(k), d3, d4, "-> buff", message%message_in(i)%remote_rank, k+local_displ, message%mpi_buffer_in(message%message_in(i)%remote_rank)%buff(k+local_displ)
               message%field(message%message_in(i)%ind_loc)%rval4d(message%message_in(i)%displs(k),d3,d4) &
-                  = message%mpi_buffer_in(message%message_in(i)%remote_rank)%buff(k+local_displ)
+                  = message%message_in(i)%sign(k)*message%mpi_buffer_in(message%message_in(i)%remote_rank)%buff(k+local_displ)
             end do
           end do