(mpi) build failure with MPI fixed

danieljprice · Jan 19, 2020 · d17b6f6 · d17b6f6
1 parent 117204e
commit d17b6f6
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/main/mpi_derivs.F90 b/src/main/mpi_derivs.F90
@@ -406,7 +406,7 @@ subroutine recv_cellforce(target_stack,xbuf,irequestrecv)
           iwait = xbuf(iproc)%waiting_index
           do k = 1,xbuf(iproc)%npcell
              target_stack%cells(iwait)%fsums(:,k) = target_stack%cells(iwait)%fsums(:,k) + xbuf(iproc)%fsums(:,k)
-             target_stack%cells(iwait)%dtdrag(k) = min(target_stack%cells(iwait)%dtdrag(k), xbuf(iproc)%dtdrag(k))
+             target_stack%cells(iwait)%tsmin(k) = min(target_stack%cells(iwait)%tsmin(k), xbuf(iproc)%tsmin(k))
              target_stack%cells(iwait)%vsigmax(k) = max(target_stack%cells(iwait)%vsigmax(k), xbuf(iproc)%vsigmax(k))
           enddo
 #ifdef GRAVITY