Changes in src/init_domainfill.f90 [92fab65:ffbe224] 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
 !
@@ -209 +206 @@
                    ztra1(numpart+jj)=height(nz)-0.5
 
-
 ! Interpolate PV to the particle position
 !****************************************
@@ -216 +212 @@
               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)