Changeset deaac29 in flexpart.git for src/advance_rec.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/advance_rec.f90 (modified) (1 diff)

src/advance_rec.f90

@@ -167 +167 @@
   !   this formulation means that prob(n) = 1 - f(0)*...*f(n)
   !   where f(n) is the exponential term
-               prob(ks)=1.+(prob(ks)-1.)* &
-                    exp(-vdepo(ks)*abs(lsynctime)/(2.*href))
+               prob(ks)=vdepo(ks)
+!               prob(ks)=vdepo(ks)/2./href
+! instead of prob - return vdepo -> result kg/m2/s
           endif
         end do