Changeset 600 for palm/trunk/SOURCE/check_open.f90
- Timestamp:
- Nov 24, 2010 4:10:51 PM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/check_open.f90
r565 r600 4 4 ! Current revisions: 5 5 ! ----------------- 6 ! 6 ! Bugfix in opening of cross section netcdf-files (parallel opening with 7 ! netcdf4 only works for netcdf_data_format > 2) 7 8 ! 8 9 ! Former revisions: … … 723 724 ! 724 725 !-- Open an existing NetCDF file for output 726 IF ( netcdf_data_format < 3 ) THEN 727 nc_stat = NF90_OPEN( filename, NF90_WRITE, id_set_xy(av) ) 728 ELSE 725 729 #if defined( __netcdf4 ) 726 nc_stat = NF90_OPEN( filename, NF90_WRITE, id_set_xy(av), & 727 COMM = comm2d, INFO = MPI_INFO_NULL ) 728 #else 729 nc_stat = NF90_OPEN( filename, NF90_WRITE, id_set_xy(av) ) 730 #endif 730 nc_stat = NF90_OPEN( filename, NF90_WRITE, id_set_xy(av), & 731 COMM = comm2d, INFO = MPI_INFO_NULL ) 732 #endif 733 ENDIF 731 734 732 735 CALL handle_netcdf_error( 'check_open', 20 ) … … 817 820 IF ( netcdf_extend ) THEN 818 821 ! 819 !-- Open an existing NetCDF file for output 822 !-- Open an existing NetCDF file for output 823 IF ( netcdf_data_format < 3 ) THEN 824 nc_stat = NF90_OPEN( filename, NF90_WRITE, id_set_xz(av) ) 825 ELSE 820 826 #if defined( __netcdf4 ) 821 nc_stat = NF90_OPEN( filename, NF90_WRITE, id_set_xz(av), &822 COMM = comm2d, INFO = MPI_INFO_NULL )823 #e lse824 nc_stat = NF90_OPEN( filename, NF90_WRITE, id_set_xz(av) )825 #endif 827 nc_stat = NF90_OPEN( filename, NF90_WRITE, id_set_xz(av), & 828 COMM = comm2d, INFO = MPI_INFO_NULL ) 829 #endif 830 ENDIF 831 826 832 CALL handle_netcdf_error( 'check_open', 23 ) 827 833 ! … … 911 917 IF ( netcdf_extend ) THEN 912 918 ! 913 !-- Open an existing NetCDF file for output 919 !-- Open an existing NetCDF file for output 920 IF ( netcdf_data_format < 3 ) THEN 921 nc_stat = NF90_OPEN( filename, NF90_WRITE, id_set_yz(av) ) 922 ELSE 914 923 #if defined( __netcdf4 ) 915 nc_stat = NF90_OPEN( filename, NF90_WRITE, id_set_yz(av), &916 COMM = comm2d, INFO = MPI_INFO_NULL )917 #e lse918 nc_stat = NF90_OPEN( filename, NF90_WRITE, id_set_yz(av) )919 #endif 924 nc_stat = NF90_OPEN( filename, NF90_WRITE, id_set_yz(av), & 925 COMM = comm2d, INFO = MPI_INFO_NULL ) 926 #endif 927 ENDIF 928 920 929 CALL handle_netcdf_error( 'check_open', 26 ) 921 930 !
Note: See TracChangeset
for help on using the changeset viewer.