From eb3f4dea074f9796fe9a92f4f5c1fd766558e9fe Mon Sep 17 00:00:00 2001
From: ericvmueller <ericvmueller@gmail.com>
Date: Mon, 6 Jan 2025 15:25:33 -0500
Subject: [PATCH] FDS Source: use Z_LS to build terrain files for both OBST and
 GEOM cases

---
 Source/dump.f90 | 6 +-----
 1 file changed, 1 insertion(+), 5 deletions(-)

diff --git a/Source/dump.f90 b/Source/dump.f90
index 29fc93f83f..5bf9a6fcd4 100644
--- a/Source/dump.f90
+++ b/Source/dump.f90
@@ -988,11 +988,7 @@ SUBROUTINE INITIALIZE_MESH_DUMPS(NM)
    ALLOCATE(OUT_OF_MESH(0:M%IBAR,0:M%JBAR)) ; OUT_OF_MESH = .FALSE.
    DO J=0,M%JBAR
       DO I=0,M%IBAR
-         IF (CC_IBM) THEN
-            Z_TERRAIN(I,J) = REAL(M%GEOM_ZMAX(I,J),FB)
-         ELSE
-            Z_TERRAIN(I,J) = REAL(0.25_EB*(M%Z_LS(I,J)+M%Z_LS(I+1,J)+M%Z_LS(I,J+1)+M%Z_LS(I+1,J+1)),FB)
-         ENDIF
+         Z_TERRAIN(I,J) = REAL(0.25_EB*(M%Z_LS(I,J)+M%Z_LS(I+1,J)+M%Z_LS(I,J+1)+M%Z_LS(I+1,J+1)),FB)
          IF (Z_TERRAIN(I,J)<M%ZS .OR. Z_TERRAIN(I,J)>M%ZF) OUT_OF_MESH(I,J) = .TRUE.
       ENDDO
    ENDDO