Changeset 4c52d0b in flexpart.git for src/init_domainfill.f90

Timestamp:

Apr 8, 2021, 9:27:43 AM (3 years ago)

Author:

Espen Sollum <eso@…>

Branches:

dev

Children:

b1f28c3

Parents:

aa939a9 (diff), 4138764 (diff)
Note: this is a merge changeset, the changes displayed below correspond to the merge itself.
Use the (diff) links above to see all the changes relative to each parent.

Message:

Merge branch 'dev' into GFS_025

File:

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

src/init_domainfill.f90

@@ -209 +209 @@
                    ztra1(numpart+jj)=height(nz)-0.5
 
-
 ! Interpolate PV to the particle position
 !****************************************
@@ -216 +215 @@
               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)