FDS Source: comment VEL_GHOST change in VELOCITY_BC temporarily

Author: rmcdermo

Source/velo.f90

@@ -2341,7 +2341,7 @@ SUBROUTINE VELOCITY_BC(T,NM,APPLY_TO_ESTIMATED_VARIABLES)
                   MU_DUIDXJ(ICD_SGN) = RHO_WALL*U_TAU**2 * SIGN(1._EB,DUIDXJ(ICD_SGN))
                   ALTERED_GRADIENT(ICD_SGN) = .TRUE.
                   ! After stress and velocity gradient have been computed, reset VEL_GHOST to NO_SLIP for visualizaiton
-                  VEL_GHOST = 2._EB*VEL_T - VEL_GAS
+                  ! VEL_GHOST = 2._EB*VEL_T - VEL_GAS
 
                CASE (BOUNDARY_FUEL_MODEL_BC) BOUNDARY_CONDITION