From 64c5d804f4020f4d880c7a0a6c2383b5a5f576b2 Mon Sep 17 00:00:00 2001 From: mcgratta Date: Sun, 27 Jul 2025 14:14:36 -0400 Subject: [PATCH] Revert "FDS Source: Fix bug PART_UVWMAX" This reverts commit 74352ada03de2c32b9e577936b8d60bd1642a390. --- Source/part.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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