Changes in src/getfields_mpi.f90 [6ecb30a:20963b1] in flexpart.git

File:

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

src/getfields_mpi.f90

@@ -233 +233 @@
 40  indmin=indj
 
+   if (WETBKDEP.and.(lmpreader.or.(.not.lmp_use_reader.and.lroot))) then
+        call writeprecip(itime,memind(1))
+      endif
+
   else
 
@@ -287 +291 @@
 60  indmin=indj
 
-    mind3=memstat
+!   if (WETBKDEP.and.lroot) then
+    if (WETBKDEP.and.(lmpreader.or.(.not.lmp_use_reader.and.lroot))) then
+      call writeprecip(itime,memind(1))
+    endif
 
   endif