Changeset 92a74b2 in flexpart.git for src/timemanager.f90

Timestamp:

Nov 21, 2016, 10:05:39 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:

3d6060e

Parents:

7062fab

Message:

get_vdep_prob instead of advance

File:

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

src/timemanager.f90

@@ -567 +567 @@
        do ks=1,nspec
          if  ((xscav_frac1(j,ks).lt.0)) then
-            call get_wetscav(itime,lsynctime,loutnext,j,grfraction,idummy,idummy,wetscav)
+            call get_wetscav(itime,lsynctime,loutnext,j,ks,grfraction,idummy,idummy,wetscav)
             if (wetscav(ks).gt.0) then
-                xscav_frac1(j,ks)=wetscav(ks)*(zpoint2(j)-zpoint1(j))
+                xscav_frac1(j,ks)=wetscav(ks)*(zpoint2(npoint(j))-zpoint1(npoint(j)))
             else
                 xmass1(j,ks)=0.