Skip to content

Commit 476295b

Browse files
Merge pull request #14643 from marcosvanella/master
FDS Source : Init I_VN,J_VN,K_VN,ICFL,JCFL,KCFL in CHECK_STABILITY.
2 parents b8b323c + 71ba59a commit 476295b

File tree

1 file changed

+2
-0
lines changed

1 file changed

+2
-0
lines changed

Source/velo.f90

Lines changed: 2 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -2973,6 +2973,8 @@ SUBROUTINE CHECK_STABILITY(DT,DT_NEW,T,NM)
29732973
VN = 0._EB
29742974
MUTRM = 1.E-9_EB
29752975
R_DX2 = 1.E-9_EB
2976+
ICFL = 0; JCFL = 0; KCFL = 0
2977+
I_VN = 0; J_VN = 0; K_VN = 0
29762978

29772979
! Determine max CFL number from all grid cells
29782980

0 commit comments

Comments
 (0)