Changes in src/conccalc.f90 [fdc0f03:4c64400] in flexpart.git

File:

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

src/conccalc.f90

@@ -126 +126 @@
   !*****************************************************************************
       do ind=indz,indzp
-        rhoprof(ind-indz+1)=p1*rho(ix ,jy ,ind,2) &
+        rhoprof(ind-indz+1)=p1*rho(ix ,jy ,ind,memind(2)) &
              +p2*rho(ixp,jy ,ind,2) &
              +p3*rho(ix ,jyp,ind,2) &
@@ -181 +181 @@
   !*****************************************************************************
 
-      if ((itage.lt.10800).or.(xl.lt.0.5).or.(yl.lt.0.5).or. &
+      if (lnokernel.or.(itage.lt.10800).or.(xl.lt.0.5).or.(yl.lt.0.5).or. &
            (xl.gt.real(numxgrid-1)-0.5).or. &
            (yl.gt.real(numygrid-1)-0.5)) then             ! no kernel, direct attribution to grid cell