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


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

Legend:

Unmodified
Added
Removed

  • src/timemanager.f90

    r0ee2193 rdeaac29  
    560560            endif
    561561            if (DRYDEPSPEC(ks)) then        ! dry deposition
    562                drydeposit(ks)=xmass1(j,ks)*prob_rec(ks)*decfact
    563                xscav_frac1(j,ks)=xscav_frac1(j,ks)*(-1.)* &
    564                drydeposit(ks)/xmass1(j,ks)
     562               xscav_frac1(j,ks)=prob_rec(ks)
    565563             else
    566564                xmass1(j,ks)=0
Note: See TracChangeset for help on using the changeset viewer.
hosted by ZAMG