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

src/get_wetscav.f90

@@ -20 +20 @@
 !**********************************************************************
 
-subroutine get_wetscav(itime,ltsample,loutnext,jpart,grfraction,inc_count,blc_count,wetscav)
+subroutine get_wetscav(itime,ltsample,loutnext,jpart,ks,grfraction,inc_count,blc_count,wetscav)
 !                          i      i        i     i     o           o
 !*****************************************************************************
@@ -218 +218 @@
 !**********************************************************
 
-    do ks=1,nspec      ! loop over species
       wetdeposit(ks)=0. 
       wetscav=0.   
@@ -338 +337 @@
       endif !incloud
 
-    end do ! loop over species
 20  continue