Fix line length

firemodels · Jan 28, 2024 · 6ced963 · 6ced963
1 parent 19f9dfc
commit 6ced963
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/Source/wall.f90 b/Source/wall.f90
@@ -1326,7 +1326,8 @@ SUBROUTINE CALCULATE_ZZ_F(WALL_INDEX,CFACE_INDEX)
                   IF (B1%Q_IN_SMOOTH <= QDOTPP_REF(NQ)) THEN
                      QDOTPP1 = MAX(0._EB,(Q_NEW(NQ-1)- B1%QDOTPP_INT(NQ-1))/DT_SPYRO(N))
                      QDOTPP2 = MAX(0._EB,(Q_NEW(NQ)  - B1%QDOTPP_INT(NQ))/DT_SPYRO(N))
-                     QDOTPP_T(N) = QDOTPP1 + (QDOTPP2 - QDOTPP1)*(B1%Q_IN_SMOOTH - QDOTPP_REF(NQ-1))/(QDOTPP_REF(NQ)-QDOTPP_REF(NQ-1))
+                     QDOTPP_T(N) = QDOTPP1 + (QDOTPP2 - QDOTPP1)*(B1%Q_IN_SMOOTH - QDOTPP_REF(NQ-1))/&
+                                   (QDOTPP_REF(NQ)-QDOTPP_REF(NQ-1))
                      EXIT
                   ENDIF
                ENDDO