Changeset 1974 for palm/trunk
- Timestamp:
- Jul 26, 2016 8:43:25 AM (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/check_open.f90
r1958 r1974 19 19 ! Current revisions: 20 20 ! ----------------- 21 ! 21 ! Bugfix: MPI barriers after deleting non-extendable files must only be called 22 ! in case of parallel I/O 22 23 ! 23 24 ! Former revisions: … … 645 646 !-- actual run. 646 647 INQUIRE( FILE=filename, EXIST=netcdf_extend ) 647 648 648 IF ( netcdf_extend ) THEN 649 649 ! … … 665 665 ! 666 666 !-- Set a barrier in order to assure that PE0 deleted the old file 667 !-- before any other processor tries to open a new file 668 CALL MPI_BARRIER( comm2d, ierr ) 667 !-- before any other processor tries to open a new file. 668 !-- Barrier is only needed in case of parallel I/O 669 IF ( netcdf_data_format > 4 ) CALL MPI_BARRIER( comm2d, ierr ) 669 670 #endif 670 671 ENDIF … … 728 729 !-- Set a barrier in order to assure that PE0 deleted the old file 729 730 !-- before any other processor tries to open a new file 730 CALL MPI_BARRIER( comm2d, ierr ) 731 !-- Barrier is only needed in case of parallel I/O 732 IF ( netcdf_data_format > 4 ) CALL MPI_BARRIER( comm2d, ierr ) 731 733 #endif 732 734 ENDIF … … 790 792 !-- Set a barrier in order to assure that PE0 deleted the old file 791 793 !-- before any other processor tries to open a new file 792 CALL MPI_BARRIER( comm2d, ierr ) 794 !-- Barrier is only needed in case of parallel I/O 795 IF ( netcdf_data_format > 4 ) CALL MPI_BARRIER( comm2d, ierr ) 793 796 #endif 794 797 ENDIF … … 933 936 !-- Set a barrier in order to assure that PE0 deleted the old file 934 937 !-- before any other processor tries to open a new file 935 CALL MPI_BARRIER( comm2d, ierr ) 938 !-- Barrier is only needed in case of parallel I/O 939 IF ( netcdf_data_format > 4 ) CALL MPI_BARRIER( comm2d, ierr ) 936 940 #endif 937 938 941 ENDIF 939 942
Note: See TracChangeset
for help on using the changeset viewer.