Changeset 16b61a5 in flexpart.git for src/timemanager_mpi.f90

Timestamp:

Oct 14, 2016, 3:19:00 PM (8 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:

4c64400

Parents:

861805a

Message:

Reworked the domain-filling option (MPI). Fixed a slow loop which had errors in loop counter (MPI)

File:

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

src/timemanager_mpi.f90

@@ -578 +578 @@
         end if
 
-        ! Write particles for all processes
+        ! Write number of particles for all processes
         if (mp_dev_mode) write(*,*) "PID, itime, numpart", mp_pid,itime,numpart
 
@@ -870 +870 @@
   endif
   deallocate(gridunc)
-  deallocate(xpoint1,xpoint2,ypoint1,ypoint2,zpoint1,zpoint2,xmass, checklifetime)
+  deallocate(xpoint1,xpoint2,ypoint1,ypoint2,zpoint1,zpoint2,xmass)
+  if (allocated(checklifetime)) deallocate(checklifetime)
   deallocate(ireleasestart,ireleaseend,npart,kindz)
   deallocate(xmasssave)