FDS Source : Add VENT_ID option in geometry line, WIP.

Author: marcosvanella

Source/dump.f90

@@ -8772,7 +8772,11 @@ REAL(EB) FUNCTION SOLID_PHASE_OUTPUT(INDX,Y_INDEX,Z_INDEX,PART_INDEX,OPT_WALL_IN
          CASE( 3) ; SOLID_PHASE_OUTPUT = -W(BC%IIG,BC%JJG,BC%KKG-1)
          CASE(-3) ; SOLID_PHASE_OUTPUT =  W(BC%IIG,BC%JJG,BC%KKG  )
       END SELECT
-      IF (ICF>0) THEN
+      IF(PRESENT(OPT_CFACE_INDEX)) THEN
+         IND1 = CFA%CUT_FACE_IND1
+         IND2 = CFA%CUT_FACE_IND2
+         SOLID_PHASE_OUTPUT = CUT_FACE(IND1)%VEL(IND2)
+      ELSEIF (ICF>0) THEN
          SOLID_PHASE_OUTPUT_CTF = 0._EB
          CUT_FACE_AREA = 0._EB
          NFACE=CUT_FACE(ICF)%NFACE