Changeset a756649 in flexpart.git for src/timemanager.f90

Timestamp:

Aug 10, 2020, 10:21:22 AM (4 years ago)

Author:

Espen Sollum <eso@…>

Branches:

GFS_025, dev

Children:

f3054ea

Parents:

c56da45

Message:

Minor modifications in dev branch

File:

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

src/timemanager.f90

@@ -112 +112 @@
 ! integer :: ksp
   integer :: loutnext,loutstart,loutend
-  integer :: ix,jy,ldeltat,itage,nage,idummy
+  integer :: ix,jy,ldeltat,itage,nage,idummy,idummy2
   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
@@ -599 +599 @@
        do ks=1,nspec
          if  ((xscav_frac1(j,ks).lt.0)) then
-            call get_wetscav(itime,lsynctime,loutnext,j,ks,grfraction,idummy,idummy,wetscav)
+            call get_wetscav(itime,lsynctime,loutnext,j,ks,grfraction,idummy,idummy2,wetscav)
             if (wetscav.gt.0) then
                 xscav_frac1(j,ks)=wetscav* &