Merge pull request #14732 from rmcdermo/master

FDS Source: remove old code related to first attempt at HVAC on GEOM

Author: rmcdermo

Source/dump.f90

@@ -2349,10 +2349,6 @@ SUBROUTINE WRITE_SMOKEVIEW_FILE
          ENDIF
       ENDIF
 
-      ! Render GEOM vents using SURF properties (that is, do not draw GEOM vents in Smokeview)
-
-      IF (VT%GEOM) VT%TYPE_INDICATOR = -2
-
    ENDDO VENT_LOOP
 
    ! Look for interpolated mesh boundaries and ensure that Smokeview leaves these blank (VENT_INDICES=-1).

Source/read.f90

@@ -12143,10 +12143,6 @@ SUBROUTINE READ_VENT
                   IF (BLOCKED) REJECT_VENT = .TRUE.
                ENDIF
 
-               ! If the VENT is on a GEOM do not reject (further setup in READ_GEOM)
-
-               IF (GEOM .AND. .NOT.(TERRAIN_CASE .AND. ALL(XB(1:6)>-1.01E6_EB))) REJECT_VENT = .FALSE.
-
                ! If the VENT is rejected, cycle
 
                IF (REJECT_VENT) THEN
@@ -12452,7 +12448,7 @@ SUBROUTINE READ_VENT
          ENDDO
       ENDIF
 
-      IF (VT%IOR==0 .AND. .NOT. VT%GEOM) THEN
+      IF (VT%IOR==0) THEN
          WRITE(MESSAGE,'(3A)')  'ERROR(818): VENT ',TRIM(VT%ID),' requires an orientation index, IOR.'
          CALL SHUTDOWN(MESSAGE,PROCESS_0_ONLY=.FALSE.) ; RETURN
       ENDIF
@@ -12500,17 +12496,9 @@ SUBROUTINE READ_VENT
 
       ! Check UVW
 
-      IF (.NOT.VT%GEOM) THEN
-         IF (ABS(VT%UVW(ABS(VT%IOR))) < TWO_EPSILON_EB) THEN
-            WRITE(MESSAGE,'(3A)')  'ERROR(821): VENT ',TRIM(VT%ID),' cannot have normal component of UVW equal to 0.'
-            CALL SHUTDOWN(MESSAGE,PROCESS_0_ONLY=.FALSE.) ; RETURN
-         ENDIF
-      ENDIF
-
-      ! Special treatment for coloring GEOM surface with HVAC_BOUNDARY
-
-      IF (VT%GEOM .AND. VT%BOUNDARY_TYPE==HVAC_BOUNDARY) THEN
-         SURFACE(VT%SURF_INDEX)%RGB = (/0,128,0/) ! green
+      IF (ABS(VT%UVW(ABS(VT%IOR))) < TWO_EPSILON_EB) THEN
+         WRITE(MESSAGE,'(3A)')  'ERROR(821): VENT ',TRIM(VT%ID),' cannot have normal component of UVW equal to 0.'
+         CALL SHUTDOWN(MESSAGE,PROCESS_0_ONLY=.FALSE.) ; RETURN
       ENDIF
 
    ENDDO VENT_LOOP_2