diff --git a/Source/part.f90 b/Source/part.f90 index b58f3229f80..216df51b5ec 100644 --- a/Source/part.f90 +++ b/Source/part.f90 @@ -2979,7 +2979,7 @@ SUBROUTINE MOVE_IN_GAS ACCEL_Y = 0._EB DRAG_MAX(2) = 0._EB ENDIF - IF (ANY(ABS(DRAG_MAX)>PART_UVWMAX) .AND. PARTICLE_CFL) PART_UVWMAX = MAX(PART_UVWMAX,MAXVAL(DRAG_MAX)) + IF (ANY(ABS(DRAG_MAX)>PART_UVWMAX)) PART_UVWMAX = MAX(PART_UVWMAX,MAXVAL(DRAG_MAX)) ENDIF PARTICLE_NON_STATIC_IF