Changeset f75967d in flexpart.git for src/com_mod.f90

Timestamp:

Jan 5, 2016, 12:20:01 PM (8 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:

d8107c2

Parents:

d6a0977

Message:

Fixed a bug with number of occurances of wet scavenging written to stdout

File:

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

src/com_mod.f90

@@ -132 +132 @@
 !ZHG SEP 2015 wheather or not to read clouds from GRIB
   logical :: readclouds
+!ESO DEC 2015 whether or not both clwc and ciwc are present (if so they are summed)
+  logical :: sumclouds 
+  
 
 !NIK 16.02.2015
-  integer :: tot_blc_count, tot_inc_count
+  integer :: tot_blc_count=0, tot_inc_count=0
 
 
@@ -746 +749 @@
   !*****************************************************************
   integer :: mpi_mode=0 ! .gt. 0 if running MPI version
-  logical :: lroot=.true. ! true if serial version, or if MPI and root process
+  logical :: lroot=.true. ! true if serial version, or if MPI .and. root process
 
   contains