changed default noise level to a more reasonable value

CaNS-World · Dec 31, 2021 · 2ca5d67 · 2ca5d67
1 parent fdd65e0
commit 2ca5d67
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/initflow.f90 b/src/initflow.f90
@@ -124,9 +124,9 @@ subroutine initflow(inivel,ng,lo,zclzi,dzclzi,dzflzi,visc,u,v,w,p)
       end do
     end if
     if(is_noise) then
-      call add_noise(ng,lo,123,.5_rp,u(1:n(1),1:n(2),1:n(3)))
-      call add_noise(ng,lo,456,.5_rp,v(1:n(1),1:n(2),1:n(3)))
-      call add_noise(ng,lo,789,.5_rp,w(1:n(1),1:n(2),1:n(3)))
+      call add_noise(ng,lo,123,.05_rp,u(1:n(1),1:n(2),1:n(3)))
+      call add_noise(ng,lo,456,.05_rp,v(1:n(1),1:n(2),1:n(3)))
+      call add_noise(ng,lo,789,.05_rp,w(1:n(1),1:n(2),1:n(3)))
     end if
     if(is_mean) then
       call set_mean(n,ubulk,dzflzi*(dx/lx)*(dy/ly),u(1:n(1),1:n(2),1:n(3)))