Changeset 1974


Ignore:
Timestamp:
Jul 26, 2016 8:43:25 AM (5 years ago)
Author:
gronemeier
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/check_open.f90

    r1958 r1974  
    1919! Current revisions:
    2020! -----------------
    21 !
     21! Bugfix: MPI barriers after deleting non-extendable files must only be called
     22! in case of parallel I/O
    2223!
    2324! Former revisions:
     
    645646!--       actual run.
    646647          INQUIRE( FILE=filename, EXIST=netcdf_extend )
    647 
    648648          IF ( netcdf_extend )  THEN
    649649!
     
    665665!
    666666!--             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 )
    669670#endif
    670671             ENDIF
     
    728729!--             Set a barrier in order to assure that PE0 deleted the old file
    729730!--             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 )
    731733#endif
    732734             ENDIF
     
    790792!--             Set a barrier in order to assure that PE0 deleted the old file
    791793!--             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 )
    793796#endif
    794797             ENDIF
     
    933936!--             Set a barrier in order to assure that PE0 deleted the old file
    934937!--             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 )
    936940#endif
    937 
    938941             ENDIF
    939942
Note: See TracChangeset for help on using the changeset viewer.