Changes in src/wetdepokernel.f90 [e200b7a:4c64400] in flexpart.git

File:

• src/wetdepokernel.f90 (modified) (3 diffs)

src/wetdepokernel.f90

@@ -40 +40 @@
   !                                                                            *
   !*****************************************************************************
+  ! Changes:
+  ! eso 10/2016: Added option to disregard kernel 
+  ! 
+  !*****************************************************************************
 
   use unc_mod
@@ -73 +77 @@
   endif
 
+  ! If no kernel is used, direct attribution to grid cell
+  !******************************************************
 
+  if (lnokernel) then
+    do ks=1,nspec
+      if ((ix.ge.0).and.(jy.ge.0).and.(ix.le.numxgrid-1).and. &
+           (jy.le.numygrid-1)) then
+        wetgridunc(ix,jy,ks,kp,nunc,nage)= &
+             wetgridunc(ix,jy,ks,kp,nunc,nage)+deposit(ks)
+      end if
+    end do
+  else ! use kernel 
+    
   ! Determine mass fractions for four grid points
   !**********************************************
@@ -107 +123 @@
   endif
   end do
+  end if
 
 end subroutine wetdepokernel