Changeset 0ee2193 in flexpart.git for src/advance.f90

Timestamp:

Oct 24, 2016, 1:03:58 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:

deaac29

Parents:

d4a4250

Message:

BUGFIX: advance_rec lsynctime instead if ideltas

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