Changeset 1974

Timestamp:

Jul 26, 2016 8:43:25 AM (8 years ago)

Author:

gronemeier

Message:

Bugfix for removing non-extendable files in case of non-parallel I/O

File:

• palm/trunk/SOURCE/check_open.f90 (modified) (6 diffs)

palm/trunk/SOURCE/check_open.f90

@@ -19 +19 @@
 ! Current revisions:
 ! -----------------
-! 
+! Bugfix: MPI barriers after deleting non-extendable files must only be called
+! in case of parallel I/O
 ! 
 ! Former revisions:
@@ -645 +646 @@
 !--       actual run.
           INQUIRE( FILE=filename, EXIST=netcdf_extend )
-
           IF ( netcdf_extend )  THEN
 !
@@ -665 +665 @@
 !
 !--             Set a barrier in order to assure that PE0 deleted the old file
-!--             before any other processor tries to open a new file
-                CALL MPI_BARRIER( comm2d, ierr )
+!--             before any other processor tries to open a new file.
+!--             Barrier is only needed in case of parallel I/O
+                IF ( netcdf_data_format > 4 )  CALL MPI_BARRIER( comm2d, ierr )
 #endif
              ENDIF
@@ -728 +729 @@
 !--             Set a barrier in order to assure that PE0 deleted the old file
 !--             before any other processor tries to open a new file
-                CALL MPI_BARRIER( comm2d, ierr )
+!--             Barrier is only needed in case of parallel I/O
+                IF ( netcdf_data_format > 4 )  CALL MPI_BARRIER( comm2d, ierr )
 #endif
              ENDIF
@@ -790 +792 @@
 !--             Set a barrier in order to assure that PE0 deleted the old file
 !--             before any other processor tries to open a new file
-                CALL MPI_BARRIER( comm2d, ierr )
+!--             Barrier is only needed in case of parallel I/O
+                IF ( netcdf_data_format > 4 )  CALL MPI_BARRIER( comm2d, ierr )
 #endif
              ENDIF
@@ -933 +936 @@
 !--             Set a barrier in order to assure that PE0 deleted the old file
 !--             before any other processor tries to open a new file
-                CALL MPI_BARRIER( comm2d, ierr )
+!--             Barrier is only needed in case of parallel I/O
+                IF ( netcdf_data_format > 4 )  CALL MPI_BARRIER( comm2d, ierr )
 #endif
-
              ENDIF