Changeset 2bec33e in flexpart.git for src/wetdepokernel.f90

Timestamp:

May 8, 2017, 5:32:48 PM (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:

6d420c3

Parents:

6985a98

Message:

resolved kernel merge: removed all uskernel

File:

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

src/wetdepokernel.f90

@@ -95 +95 @@
   do ks=1,nspec
 
-  if (.not.usekernel) then
-      wetgridunc(ix,jy,ks,kp,nunc,nage)= &
-           wetgridunc(ix,jy,ks,kp,nunc,nage)+deposit(ks)
-  else
     if ((ix.ge.0).and.(jy.ge.0).and.(ix.le.numxgrid-1).and. &
        (jy.le.numygrid-1)) then
@@ -126 +122 @@
            wetgridunc(ix,jyp,ks,kp,nunc,nage)+deposit(ks)*w
     endif
-  endif 
+
   end do
   end if