From 89c21c4b27380798dfd5f167a2f102a061e0ff05 Mon Sep 17 00:00:00 2001 From: Jason Floyd Date: Fri, 29 Nov 2024 12:59:54 -0500 Subject: [PATCH] FDS Source: Fix issue #13815 --- Source/wall.f90 | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/Source/wall.f90 b/Source/wall.f90 index bee06939fc5..7c4fd128d87 100644 --- a/Source/wall.f90 +++ b/Source/wall.f90 @@ -2379,8 +2379,9 @@ SUBROUTINE SOLID_HEAT_TRANSFER(NM,T,DT_BC,PARTICLE_INDEX,WALL_INDEX,CFACE_INDEX, ! Check for layers that are too small, layer thickness dropping too much, or couldn't drop enough nodes last remesh I = 0 DO NL=1,ONE_D%N_LAYERS + IF (ONE_D%N_LAYER_CELLS(NL) == 0) CYCLE ONE_D%LAYER_THICKNESS(NL) = X_S_NEW(I+ONE_D%N_LAYER_CELLS(NL)) - X_S_NEW(I) - IF (ONE_D%N_LAYER_CELLS(NL) > 0 .AND. ONE_D%LAYER_THICKNESS(NL) < 0.1_EB*ONE_D%MINIMUM_LAYER_THICKNESS(NL)) THEN + IF (ONE_D%LAYER_THICKNESS(NL) < 0.1_EB*ONE_D%MINIMUM_LAYER_THICKNESS(NL)) THEN REMESH_LAYER(NL) = .TRUE. ELSE IF (.NOT. TMP_CHECK(NL) .AND. ONE_D%LAYER_THICKNESS_OLD(NL)-ONE_D%LAYER_THICKNESS(NL) > &