Changeset fdc0f03 in flexpart.git for src/readwind_mpi.f90

Timestamp:

Jan 21, 2016, 10:48:22 AM (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:

fddc6ec

Parents:

41d8574

Message:

Code for cloud water should be correct if the total cw is stored in field clwc (old scheme) or in field qc (new scheme). Minor edits in some files.

File:

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

src/readwind_mpi.f90

@@ -458 +458 @@
 !hg
     call shift_field(clwch,nxfield,ny,nuvzmax,nuvz,numwfmem,n)
-    call shift_field(ciwch,nxfield,ny,nuvzmax,nuvz,numwfmem,n)
+    if (.not.sumclouds) call shift_field(ciwch,nxfield,ny,nuvzmax,nuvz,numwfmem,n)
 !hg end