Changeset 92a74b2 in flexpart.git for src/wetdepo.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/wetdepo.f90 (modified) (2 diffs)

src/wetdepo.f90

@@ -103 +103 @@
  33  continue
 
+    do ks=1,nspec      ! loop over species
 
 !**************************************************
 ! CALCULATE DEPOSITION 
 !**************************************************
-      call get_wetscav(itime,ltsample,loutnext,jpart,grfraction,inc_count,blc_count,wetscav)
+      call get_wetscav(itime,ltsample,loutnext,jpart,ks,grfraction,inc_count,blc_count,wetscav)
 
       if (wetscav.gt.0.) then
@@ -136 +137 @@
       endif
 
+    end do ! loop over species
+
 ! Sabine Eckhardt, June 2008 create deposition runs only for forward runs
 ! Add the wet deposition to accumulated amount on output grid and nested output grid