Merge pull request #12170 from drjfloyd/master

FDS Source: fix different debug vs release behavior Issue #12160
firemodels · Oct 4, 2023 · 736d40d · 736d40d
2 parents 522ae58 + 87c963e
commit 736d40d
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/Source/func.f90 b/Source/func.f90
@@ -2729,7 +2729,8 @@ SUBROUTINE GET_WALL_NODE_COORDINATES(N_CELLS,N_CELLS_OLD,N_LAYERS,N_LAYER_CELLS,
    ENDDO
    IF (N_LAYER_CELLS(NL) > 0) THEN
       II = II + 1
-      X_S(II) = X_S(II-1) + LAYER_THICKNESS(NL) - DX_SUM
+      DX_S = LAYER_THICKNESS(NL) - DX_SUM
+      X_S(II) = X_S(II-1) + DX_S
    ENDIF
    IL = IL + N_LAYER_CELLS_OLD(NL)
 ENDDO