From 74352ada03de2c32b9e577936b8d60bd1642a390 Mon Sep 17 00:00:00 2001 From: mcgratta Date: Thu, 24 Jul 2025 17:29:05 -0400 Subject: [PATCH] FDS Source: Fix bug PART_UVWMAX --- Source/part.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Source/part.f90 b/Source/part.f90 index 216df51b5ec..b58f3229f80 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)) 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