Changeset 1c3c778 in flexpart.git for src/wetdepo.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/wetdepo.f90 (modified) (3 diffs)

src/wetdepo.f90

@@ -143 +143 @@
 ! Determine nested grid coordinates
 !**********************************
+    readclouds_this_nest=.false.
 
     if (ngrid.gt.0) then
@@ -149 +150 @@
       ix=int(xtn)
       jy=int(ytn)
-      if (readclouds_nest(ngrid)) then
-        readclouds_this_nest=.true.
-      else
-        readclouds_this_nest=.false.
-      end if
+      if (readclouds_nest(ngrid)) readclouds_this_nest=.true.
     else
       ix=int(xtra1(jpart))
@@ -364 +361 @@
 !OLD 
           if ((readclouds.and.ngrid.eq.0).or.(readclouds_this_nest.and.ngrid.gt.0)) then
-            wetscav=S_i*(prec(1)/3.6E6)
+            wetscav=incloud_ratio*S_i*(prec(1)/3.6E6)
           else
-            wetscav=S_i*(prec(1)/3.6E6)/clouds_h
+            wetscav=incloud_ratio*S_i*(prec(1)/3.6E6)/clouds_h
           endif