FDS Source: Fix bug PART_UVWMAX

Author: mcgratta

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)) PART_UVWMAX = MAX(PART_UVWMAX,MAXVAL(DRAG_MAX))
+   IF (ANY(ABS(DRAG_MAX)>PART_UVWMAX) .AND. PARTICLE_CFL) PART_UVWMAX = MAX(PART_UVWMAX,MAXVAL(DRAG_MAX))
 
 ENDIF PARTICLE_NON_STATIC_IF