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)))