Changeset 1c3c778 in flexpart.git for src/mpi_mod.f90

Timestamp:

Mar 14, 2016, 11:06:31 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:

7e52e2e

Parents:

c2162ce

Message:

Added 'incloud_ratio' for wet deposition

File:

• src/mpi_mod.f90 (modified) (4 diffs)

src/mpi_mod.f90

@@ -61 +61 @@
 
   use mpi 
-  use par_mod, only: dp, sp
+  use par_mod, only: dp,sp
   use com_mod, only: lroot
 
@@ -1409 +1409 @@
     integer :: d2s1 = nxmax*nymax
     integer :: d2s2 = nxmax*nymax*maxspec
-    integer :: d1_size1 = maxwf
+    !integer :: d1_size1 = maxwf
 
 !    integer :: d3s1,d3s2,d2s1,d2s2
@@ -2154 +2154 @@
 
     pv(:,:,:,li:ui)=1.0
-    clouds(:,:,:,li:ui)=0.0
+    clouds(:,:,:,li:ui)=0
 
     clwc(:,:,:,li:ui)=0.0
@@ -2161 +2161 @@
 ! 2D fields
 
-    cloudsh(:,:,li:ui)=0.0
+    cloudsh(:,:,li:ui)=0
     vdep(:,:,:,li:ui)=0.0
     ps(:,:,:,li:ui)=1.0e5