Changeset f06b72a in flexpart.git for src/timemanager_mpi.f90

Timestamp:

Nov 19, 2020, 10:11:13 AM (3 years ago)

Author:

Espen Sollum ATMOS <eso@…>

Branches:

GFS_025, dev

Children:

5635973

Parents:

f04024b

Message:

MPI: Fix for initial condition field

File:

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

src/timemanager_mpi.f90

@@ -894 +894 @@
 !*****************************************************************************
 
-  do j=1,numpart
-    if (linit_cond.ge.1) call initial_cond_calc(itime,j)
-  end do
+  if (linit_cond.ge.1) then
+    do j=1,numpart
+      call initial_cond_calc(itime,j)
+    end do
 
 ! Transfer sum of init_cond field to root process, for output
-  call mpif_tm_reduce_initcond
+    call mpif_tm_reduce_initcond
+  end if
     
   if (ipout.eq.2) then