FDS Source: remove unused fix line length

firemodels · Jan 28, 2024 · 8e9af21 · 8e9af21
1 parent 6ced963
commit 8e9af21
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 3 deletions.
diff --git a/Source/read.f90 b/Source/read.f90
@@ -7589,7 +7589,8 @@ SUBROUTINE READ_SURF(QUICK_READ)
                IF (MY_RANK==0) WRITE(LU_ERR,'(A)') TRIM(MESSAGE)
             ENDIF
             IF (REFERENCE_HEAT_FLUX(NN) < REFERENCE_HEAT_FLUX(NN-1)) THEN
-               IF (REFERENCE_THICKNESS(NN) > 0._EB .AND. REFERENCE_THICKNESS(NN) - REFERENCE_THICKNESS(NN-1) <=  TWO_EPSILON_EB) THEN
+               IF (REFERENCE_THICKNESS(NN) > 0._EB .AND. &
+                   (REFERENCE_THICKNESS(NN) - REFERENCE_THICKNESS(NN-1)) <=  TWO_EPSILON_EB) THEN
                   WRITE(MESSAGE,'(A,A,A)') 'ERROR(X02): SURF ',TRIM(SF%ID),&
                                            ' REFERENCE_HEAT_FLUX values must increase for each thickness.'
                   CALL SHUTDOWN(MESSAGE) ; RETURN

diff --git a/Source/wall.f90 b/Source/wall.f90
@@ -1147,8 +1147,8 @@ SUBROUTINE CALCULATE_ZZ_F(WALL_INDEX,CFACE_INDEX)
 USE PHYSICAL_FUNCTIONS, ONLY: GET_SPECIFIC_GAS_CONSTANT, GET_REALIZABLE_MF, GET_AVERAGE_SPECIFIC_HEAT,Q_REF_FIT
 USE MATH_FUNCTIONS, ONLY : EVALUATE_RAMP, BOX_MULLER, INTERPOLATE1D_UNIFORM
 REAL(EB) :: UN,DD,MFT,TSI,RSUM_F,MPUA_SUM,RHO_F_PREVIOUS,RN1,RN2,TWOMFT,Q_NEW(MAX_QDOTPP_REF)
-REAL(EB) :: T_SCALE(MAX_QDOTPP_REF),QDOTPP_REF(MAX_QDOTPP_REF),XVAL,QDOTPP_T(MAX_QDOTPP_REF), &
-            QDOTPP,QDOTPP1,QDOTPP2,DT_SPYRO(MAX_QDOTPP_REF),Q_IN_SMOOTH(MAX_QDOTPP_REF)
+REAL(EB) :: T_SCALE(MAX_QDOTPP_REF),QDOTPP_REF(MAX_QDOTPP_REF),QDOTPP_T(MAX_QDOTPP_REF), &
+            QDOTPP,QDOTPP1,QDOTPP2,DT_SPYRO(MAX_QDOTPP_REF)
 INTEGER :: N,IDX1,IDX2,NQ,ITER,IIO,JJO,KKO,OTHER_MESH_OBST_INDEX,LL
 INTEGER, INTENT(IN), OPTIONAL :: WALL_INDEX,CFACE_INDEX
 TYPE(RAMPS_TYPE), POINTER :: RP=>NULL(),RP_E2T=>NULL(),RP_REF=>NULL()