Changeset ffbe224 in flexpart.git for src/init_domainfill.f90

Timestamp:

Jan 20, 2020, 10:01:44 AM (4 years ago)

Author:

Sabine <sabine.eckhardt@…>

Branches:

dev

Children:

11d86e7

Parents:

95a8cb6

Message:

first version for fluxoutput in netcdf

File:

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

src/init_domainfill.f90

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