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


Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed

  • src/advance_rec.f90

    r5844866 r0ee2193  
    168168  !   where f(n) is the exponential term
    169169               prob(ks)=1.+(prob(ks)-1.)* &
    170                     exp(-vdepo(ks)*abs(ideltas)/(2.*href))
     170                    exp(-vdepo(ks)*abs(lsynctime)/(2.*href))
    171171          endif
    172172        end do
Note: See TracChangeset for help on using the changeset viewer.
hosted by ZAMG