Changeset d2a5a83 in flexpart.git for src/partoutput_mpi.f90

Timestamp:

Dec 4, 2017, 1:18:12 PM (6 years ago)

Author:

Espen Sollum ATMOS <eso@…>

Branches:

master, 10.4.1_pesei, GFS_025, bugfixes+enhancements, dev, release-10, release-10.4.1, scaling-bug, univie

Children:

01e6052

Parents:

0ecc1fe

Message:

Fixed an issue with allocation in previous commit

File:

• src/partoutput_mpi.f90 (modified) (1 diff)

src/partoutput_mpi.f90

@@ -115 +115 @@
       p3=rddx*ddy
       p4=ddx*ddy
+
+! eso: Temporary fix for particle exactly at north pole
+      if (jyp >= nymax) then
+      !  write(*,*) 'WARNING: conccalc.f90 jyp >= nymax'
+        jyp=jyp-1
+      end if
 
   ! Topography