Changes in / [06f094f:ed82e08] in flexpart.git

File:

• src/advance.f90 (modified) (3 diffs)

src/advance.f90

@@ -500 +500 @@
 ! 887     nsp=min(nsp,nspec)
         if (nspec.eq.1.and.density(1).gt.0.) then
-          call get_settling(itime,real(xt),real(yt),zt,nsp,settling)  !bugfix
+          call get_settling(itime,real(xt),real(yt),zt,nspec,settling)  !bugfix
         end if
         w=w+settling
@@ -664 +664 @@
 !        if (density(nsp).gt.0.) then
       if (nspec.eq.1.and.density(1).gt.0.) then
-        call get_settling(itime,real(xt),real(yt),zt,nsp,settling)  !bugfix
+        call get_settling(itime,real(xt),real(yt),zt,nspec,settling)  !bugfix
       end if
       w=w+settling
@@ -870 +870 @@
 !      if (density(nsp).gt.0.) then
     if (nspec.eq.1.and.density(1).gt.0.) then
-      call get_settling(itime+ldt,real(xt),real(yt),zt,nsp,settling)  !bugfix
+      call get_settling(itime+ldt,real(xt),real(yt),zt,nspec,settling)  !bugfix
     end if
     w=w+settling