Changeset 0a94e13 in flexpart.git for src/FLEXPART_MPI.f90

Timestamp:

May 6, 2019, 11:43:21 AM (5 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

Children:

0c8c7f2

Parents:

328fdf9

Message:

Added ipout=3 option for time averaged particle output

File:

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

src/FLEXPART_MPI.f90

@@ -77 +77 @@
   if (mp_measure_time) call mpif_mtime('flexpart',0)
 
-  ! Initialize arrays in com_mod 
-  !*****************************
-
-  if(.not.(lmpreader.and.lmp_use_reader)) call com_mod_allocate_part(maxpart_mpi)
-
-
+  
   ! Generate a large number of random numbers
   !******************************************
@@ -180 +175 @@
   endif
 
+  ! Initialize arrays in com_mod 
+  !*****************************
+
+  if(.not.(lmpreader.and.lmp_use_reader)) call com_mod_allocate_part(maxpart_mpi)
+
 
 ! Read the age classes to be used