From 5bed1473a33b3a24165d932565e23ae57bef5eed Mon Sep 17 00:00:00 2001
From: Pedro Costa
Date: Thu, 4 Jan 2024 19:15:07 +0100
Subject: [PATCH] Add noise to `tbl` case by default.
---
src/initflow.f90 | 1 +
1 file changed, 1 insertion(+)
diff --git a/src/initflow.f90 b/src/initflow.f90
index 80112856..0f36a2dd 100644
--- a/src/initflow.f90
+++ b/src/initflow.f90
@@ -57,6 +57,7 @@ subroutine initflow(inivel,bcvel,ng,lo,l,dl,zc,zf,dzc,dzf,visc, &
is_mean = .true.
case('tbl')
call temporal_bl(n(3),zc,1._rp,visc,uref,u1d)
+ is_noise = .true.
case('iop') ! reversed 'poi'
!
! convective reference frame moving with velocit `ubulk`;