Changeset 1745 for palm/trunk/SOURCE/check_open.f90
- Timestamp:
- Feb 5, 2016 1:06:51 PM (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/check_open.f90
r1683 r1745 19 19 ! Current revisions: 20 20 ! ----------------- 21 ! 21 ! Bugfix: added MPI barrier after deleting existing non-extendable file by PE0 22 22 ! 23 23 ! Former revisions: … … 647 647 CALL handle_netcdf_error( 'check_open', 21 ) 648 648 IF ( myid == 0 ) CALL local_system( 'rm ' // TRIM( filename ) ) 649 ENDIF 650 651 ENDIF 649 #if defined( __parallel ) && ! defined ( __check ) 650 ! 651 !-- Set a barrier in order to assure that PE0 deleted the old file 652 !-- before any other processor tries to open a new file 653 CALL MPI_BARRIER( comm2d, ierr ) 654 #endif 655 ENDIF 656 657 ENDIF 652 658 653 659 IF ( .NOT. netcdf_extend ) THEN … … 703 709 CALL handle_netcdf_error( 'check_open', 24 ) 704 710 IF ( myid == 0 ) CALL local_system( 'rm ' // TRIM( filename ) ) 705 ENDIF 706 707 ENDIF 711 #if defined( __parallel ) && ! defined ( __check ) 712 ! 713 !-- Set a barrier in order to assure that PE0 deleted the old file 714 !-- before any other processor tries to open a new file 715 CALL MPI_BARRIER( comm2d, ierr ) 716 #endif 717 ENDIF 718 719 ENDIF 708 720 709 721 IF ( .NOT. netcdf_extend ) THEN … … 759 771 CALL handle_netcdf_error( 'check_open', 27 ) 760 772 IF ( myid == 0 ) CALL local_system( 'rm ' // TRIM( filename ) ) 761 ENDIF 762 763 ENDIF 773 #if defined( __parallel ) && ! defined ( __check ) 774 ! 775 !-- Set a barrier in order to assure that PE0 deleted the old file 776 !-- before any other processor tries to open a new file 777 CALL MPI_BARRIER( comm2d, ierr ) 778 #endif 779 ENDIF 780 781 ENDIF 764 782 765 783 IF ( .NOT. netcdf_extend ) THEN … … 895 913 nc_stat = NF90_CLOSE( id_set_3d(av) ) 896 914 CALL handle_netcdf_error( 'check_open', 36 ) 897 CALL local_system('rm ' // TRIM( filename ) ) 898 ENDIF 899 900 ENDIF 915 IF ( myid == 0 ) CALL local_system( 'rm ' // TRIM( filename ) ) 916 #if defined( __parallel ) && ! defined ( __check ) 917 ! 918 !-- Set a barrier in order to assure that PE0 deleted the old file 919 !-- before any other processor tries to open a new file 920 CALL MPI_BARRIER( comm2d, ierr ) 921 #endif 922 923 ENDIF 924 925 ENDIF 901 926 902 927 IF ( .NOT. netcdf_extend ) THEN … … 991 1016 nc_stat = NF90_CLOSE( id_set_prt ) 992 1017 CALL handle_netcdf_error( 'check_open', 42 ) 993 CALL local_system( 'rm ' // filename)1018 CALL local_system( 'rm ' // TRIM( filename ) ) 994 1019 ENDIF 995 1020
Note: See TracChangeset
for help on using the changeset viewer.