Commit 94735e20 authored by Sabine's avatar Sabine
Browse files

added switch turboff to run FLEXPART without turbulence

parent 5f53d0e0
......@@ -473,6 +473,14 @@ subroutine advance(itime,nrelpoint,ldt,up,vp,wp, &
delz=wp*dtf
endif
if (turboff) then
!sec switch off turbulence
up=0.0
vp=0.0
wp=0.0
delz=0.
endif
!****************************************************
! Compute turbulent vertical displacement of particle
!****************************************************
......@@ -674,6 +682,12 @@ subroutine advance(itime,nrelpoint,ldt,up,vp,wp, &
nrand=nrand+1
endif
if (turboff) then
!sec switch off turbulence
ux=0.0
vy=0.0
wp=0.0
endif
! If particle represents only a single species, add gravitational settling
! velocity. The settling velocity is zero for gases
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment