Changeset 5844866 in flexpart.git for src/advance.f90

Timestamp:

Oct 12, 2016, 1:14:19 PM (8 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:

df4a68e

Parents:

0581cac

Message:

first working version with backward deposition

File:

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

src/advance.f90

@@ -569 +569 @@
                prob(ks)=1.+(prob(ks)-1.)* &
                     exp(-vdepo(ks)*abs(dt)/(2.*href))
+!              write(*,*) 'Prob calc: ',zt,href,prob(ks)
           endif
         end do