From dd642ead59b36a28c45feef2312ffa52ab6a2e58 Mon Sep 17 00:00:00 2001 From: mcgratta Date: Mon, 2 Feb 2026 15:31:30 -0500 Subject: [PATCH] FDS Source: Truncate long lines --- Source/dump.f90 | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/Source/dump.f90 b/Source/dump.f90 index 14b67aac99..d016d96a68 100644 --- a/Source/dump.f90 +++ b/Source/dump.f90 @@ -3310,7 +3310,8 @@ SUBROUTINE INITIALIZE_DIAGNOSTIC_FILE(DT) IF (SF%THERMAL_BC_INDEX==SPECIFIED_TEMPERATURE .AND. SF%TMP_FRONT>0._EB) & WRITE(LU_OUTPUT,'(A,F8.1)') ' Wall or Vent Temperature (C)', SF%TMP_FRONT - TMPM IF (ABS(SF%VEL)>TWENTY_EPSILON_EB) WRITE(LU_OUTPUT,'(A,F8.3)') ' Normal Velocity (m/s) ', SF%VEL - IF (ABS(SF%MASS_FLUX_TOTAL)>TWENTY_EPSILON_EB) WRITE(LU_OUTPUT,'(A,ES10.3)') ' Total Mass Flux (kg/m^2/s) ', SF%MASS_FLUX_TOTAL + IF (ABS(SF%MASS_FLUX_TOTAL)>TWENTY_EPSILON_EB) WRITE(LU_OUTPUT,'(A,ES10.3)') & + ' Total Mass Flux (kg/m^2/s) ', SF%MASS_FLUX_TOTAL IF (ABS(SF%VOLUME_FLOW)>TWENTY_EPSILON_EB) WRITE(LU_OUTPUT,'(A,ES10.3)') ' Volume Flow (m^3/s) ', SF%VOLUME_FLOW IF (SF%HRRPUA>0._EB .AND. .NOT.SF%VEG_LSET_SPREAD) & @@ -7957,8 +7958,8 @@ REAL(EB) RECURSIVE FUNCTION GAS_PHASE_OUTPUT(T,DT,NM,II,JJ,KK,IND,IND2,Y_INDEX,Z ENDIF ENDDO ENDDO - IF (ZZ_FUEL < TWENTY_EPSILON_EB .OR. ZZ_OX < TWENTY_EPSILON_EB .OR. Q(II,JJ,KK) < TWENTY_EPSILON_EB) GAS_PHASE_OUTPUT_RES = -1._EB - IF (ZZ_FUEL > ZZ_MIN_GLOBAL .AND. ZZ_OX > ZZ_MIN_GLOBAL .AND. Q(II,JJ,KK) < TWENTY_EPSILON_EB) GAS_PHASE_OUTPUT_RES = 1._EB + IF (ZZ_FUELZZ_MIN_GLOBAL .AND. ZZ_OX > ZZ_MIN_GLOBAL .AND. Q(II,JJ,KK) < TWENTY_EPSILON_EB) GAS_PHASE_OUTPUT_RES = 1._EB CASE(131) ! CHEMISTRY SUBITERATIONS GAS_PHASE_OUTPUT_RES = CHEM_SUBIT(II,JJ,KK)