Changeset 0f7835d in flexpart.git for src/init_domainfill_mpi.f90

Timestamp:

Aug 3, 2016, 3:02:42 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:

861805a, 93786a1

Parents:

f28aa0a

Message:

Changed a variable in domain-filling option (MPI). Deleted an unused function from mpi_mod.f90

File:

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

src/init_domainfill_mpi.f90

@@ -305 +305 @@
 
 
-! Check whether numpart is really smaller than maxpart
-!*****************************************************
-
-  if (numpart.gt.maxpart) then
+! Check whether numpart is really smaller than maxpart per process
+!*****************************************************************
+
+  if (numpart.gt.maxpart_mpi) then
     write(*,*) 'numpart too large: change source in init_atm_mass.f'
-    write(*,*) 'numpart: ',numpart,' maxpart: ',maxpart
+    write(*,*) 'numpart: ',numpart,' maxpart: ',maxpart_mpi
   endif