Changes in src/init_domainfill.f90 [ffbe224:92fab65] in flexpart.git

File:

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

src/init_domainfill.f90

@@ +1 @@
+! SPDX-FileCopyrightText: FLEXPART 1998-2019, see flexpart_license.txt
+! SPDX-License-Identifier: GPL-3.0-or-later
+
 subroutine init_domainfill
 !
@@ -206 +209 @@
                    ztra1(numpart+jj)=height(nz)-0.5
 
+
 ! Interpolate PV to the particle position
 !****************************************
@@ -212 +216 @@
               ixp=ixm+1
               jyp=jym+1
-              if (jyp.gt.180) then
-                 write (*,*) 'init_domainfill, over: ',jyp,jym,ytra1(numpart+jj),jy,ran1(idummy),ny
-                 jyp=jym
-              endif
               ddx=xtra1(numpart+jj)-real(ixm)
               ddy=ytra1(numpart+jj)-real(jym)