Changeset deaac29 in flexpart.git for src/wetdepo.f90

Timestamp:

Nov 18, 2016, 8:13:26 AM (7 years ago)

Author:

Sabine <sabine.eckhardt@…>

Branches:

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

Children:

c9cf570

Parents:

0ee2193

Message:

simplified version - velocities

File:

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

src/wetdepo.f90

@@ -439 +439 @@
                      firsttimerem=firsttimerem+1
                 endif
-                xscav_frac1(jpart,ks)=xscav_frac1(jpart,ks)*(-1.)* &
-                   wetdeposit(ks)/xmass1(jpart,ks)
+                 !xscav_frac1(jpart,ks)=wetdeposit(ks)/(xmass1(jpart,ks)+wetdeposit(ks))
+                 xscav_frac1(jpart,ks)=wetscav*(zpoint2(jpart)-zpoint1(jpart))
 !                write (*,*) 'paricle kept: ',jpart,ks,wetdeposit(ks),xscav_frac1(jpart,ks),xmass(jpart,ks)
              endif