Changeset 94735e2 in flexpart.git for src

Timestamp:

May 4, 2017, 9:08:07 AM (7 years ago)

Author:

Sabine <sabine.eckhardt@…>

Branches:

master, 10.4.1_pesei, GFS_025, bugfixes+enhancements, dev, release-10, release-10.4.1, scaling-bug, univie

Children:

5888298

Parents:

5f53d0e

Message:

added switch turboff to run FLEXPART without turbulence

File:

• src/advance.f90 (modified) (2 diffs)

src/advance.f90

@@ -474 +474 @@
         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
@@ -675 +683 @@
   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