Changeset 5184a7c in flexpart.git for src/com_mod.f90

Timestamp:

Jun 20, 2017, 9:09:35 AM (7 years ago)

Author:

Espen Sollum ATMOS <eso@…>

Branches:

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

Children:

b5127f9

Parents:

a76d954

Message:

Enable settling with multiple species if from separate releases

File:

• src/com_mod.f90 (modified) (1 diff)

src/com_mod.f90

@@ -135 +135 @@
 !ESO DEC 2015 whether or not both clwc and ciwc are present (if so they are summed)
   logical :: sumclouds=.false.
+
+!ESO: Disable settling if more than 1 species per release point
+  logical :: lsettling=.true.
 
   logical,dimension(maxnests) :: readclouds_nest, sumclouds_nest