From 2ca5d67604f8742e39dcb04d2058ab27aa793b68 Mon Sep 17 00:00:00 2001 From: Pedro Costa Date: Fri, 31 Dec 2021 19:03:32 +0000 Subject: [PATCH] changed default noise level to a more reasonable value --- src/initflow.f90 | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/initflow.f90 b/src/initflow.f90 index 2b82f6c3..97515f04 100644 --- 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)))