From 7800935866bed2d7e7a8c36f9cff24347e6e3f9a Mon Sep 17 00:00:00 2001 From: rmcdermo Date: Wed, 21 Aug 2024 16:06:49 -0400 Subject: [PATCH] FDS Source: fix default SPREAD_RATE origin for VENTs that cross mesh boundaries --- Source/read.f90 | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/Source/read.f90 b/Source/read.f90 index ce6a1c1a024..89617a1ce99 100644 --- a/Source/read.f90 +++ b/Source/read.f90 @@ -11859,9 +11859,9 @@ SUBROUTINE READ_VENT ! Parameters for specified spread of a fire over a VENT IF (ALL(XYZ<-1.E5_EB) .AND. SPREAD_RATE>0._EB) THEN - XYZ(1)=0.5_EB*(VT%X1+VT%X2) - XYZ(2)=0.5_EB*(VT%Y1+VT%Y2) - XYZ(3)=0.5_EB*(VT%Z1+VT%Z2) + XYZ(1)=0.5_EB*(VT%X1_ORIG+VT%X2_ORIG) + XYZ(2)=0.5_EB*(VT%Y1_ORIG+VT%Y2_ORIG) + XYZ(3)=0.5_EB*(VT%Z1_ORIG+VT%Z2_ORIG) ENDIF VT%X0 = XYZ(1) VT%Y0 = XYZ(2)