FDS Source: fix boundary values for BFX output

Author: rmcdermo

Source/dump.f90

@@ -8582,11 +8582,11 @@ REAL(EB) RECURSIVE FUNCTION GAS_PHASE_OUTPUT(T,DT,NM,II,JJ,KK,IND,IND2,Y_INDEX,Z
    CASE(562) ! BFZ
       GAS_PHASE_OUTPUT_RES = BFZ(II,JJ,KK)
    CASE(563) ! BFX MINUS
-      GAS_PHASE_OUTPUT_RES = BFX(II-1,JJ,KK)
+      GAS_PHASE_OUTPUT_RES = BFX(MAX(0,II-1),JJ,KK)
    CASE(564) ! BFY MINUS
-      GAS_PHASE_OUTPUT_RES = BFY(II,JJ-1,KK)
+      GAS_PHASE_OUTPUT_RES = BFY(II,MAX(0,JJ-1),KK)
    CASE(565) ! BFZ MINUS
-      GAS_PHASE_OUTPUT_RES = BFZ(II,JJ,KK-1)
+      GAS_PHASE_OUTPUT_RES = BFZ(II,JJ,MAX(0,KK-1))
 
  END SELECT IND_SELECT