FDS Source : Init I_VN,J_VN,K_VN,ICFL,JCFL,KCFL in CHECK_STABILITY.

Author: Vanella

Source/velo.f90

@@ -2973,6 +2973,8 @@ SUBROUTINE CHECK_STABILITY(DT,DT_NEW,T,NM)
 VN     = 0._EB
 MUTRM  = 1.E-9_EB
 R_DX2  = 1.E-9_EB
+ICFL   = 0; JCFL   = 0; KCFL   = 0
+I_VN   = 0; J_VN   = 0; K_VN   = 0
 
 ! Determine max CFL number from all grid cells