diff --git a/Source/read.f90 b/Source/read.f90
index cb70a70e639..f971835f2eb 100644
--- a/Source/read.f90
+++ b/Source/read.f90
@@ -12470,6 +12470,12 @@ SUBROUTINE READ_VENT
          CALL SHUTDOWN(MESSAGE,PROCESS_0_ONLY=.FALSE.) ; RETURN
       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
+      ENDIF
+
    ENDDO VENT_LOOP_2
 
    ! Compute vent areas and check for passive openings