Changes in src/getfields_mpi.f90 [20963b1:6ecb30a] 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
 
@@ -291 +287 @@
 60  indmin=indj
 
-!   if (WETBKDEP.and.lroot) then
-    if (WETBKDEP.and.(lmpreader.or.(.not.lmp_use_reader.and.lroot))) then
-      call writeprecip(itime,memind(1))
-    endif
+    mind3=memstat
 
   endif