Changeset a76d954 in flexpart.git

Timestamp:

Jun 20, 2017, 8:56:51 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:

5184a7c

Parents:

db375cc

Message:

bugfix: wetscav was used as array and real at the same time

File:

• src/timemanager.f90 (modified) (2 diffs)

src/timemanager.f90

@@ -107 +107 @@
   integer :: ix,jy,ldeltat,itage,nage,idummy
   integer :: i_nan=0,ii_nan,total_nan_intl=0  !added by mc to check instability in CBL scheme 
-  real :: outnum,weight,prob_rec(maxspec),prob(maxspec),decfact,wetscav(maxspec)
+  real :: outnum,weight,prob_rec(maxspec),prob(maxspec),decfact,wetscav
   ! real :: uap(maxpart),ucp(maxpart),uzp(maxpart)
   ! real :: us(maxpart),vs(maxpart),ws(maxpart)
@@ -571 +571 @@
          if  ((xscav_frac1(j,ks).lt.0)) then
             call get_wetscav(itime,lsynctime,loutnext,j,ks,grfraction,idummy,idummy,wetscav)
-            if (wetscav(ks).gt.0) then
-                xscav_frac1(j,ks)=wetscav(ks)* &
+            if (wetscav.gt.0) then
+                xscav_frac1(j,ks)=wetscav* &
                        (zpoint2(npoint(j))-zpoint1(npoint(j)))*grfraction(1)
             else