Changeset 765 for palm/trunk


Ignore:
Timestamp:
Oct 10, 2011 6:28:24 AM (13 years ago)
Author:
raasch
Message:

Bugfix concerning opening of 3D files in restart runs in case of netCDF4

File:
1 edited

Legend:

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

    r668 r765  
    44! Current revisions:
    55! -----------------
     6! Bugfix concerning opening of 3D files in restart runs in case of netCDF4
    67!
    78! Former revisions:
     
    11171118!
    11181119!--          Open an existing NetCDF file for output
     1120             IF ( netcdf_data_format < 3 )  THEN
     1121                nc_stat = NF90_OPEN( filename, NF90_WRITE, id_set_3d(av) )
     1122             ELSE
    11191123#if defined( __netcdf4 )
    1120              nc_stat = NF90_OPEN( filename, NF90_WRITE, id_set_3d(av), &
    1121                                   COMM = comm2d, INFO = MPI_INFO_NULL )
    1122 #else
    1123              nc_stat = NF90_OPEN( filename, NF90_WRITE, id_set_3d(av) )
    1124 #endif
     1124                nc_stat = NF90_OPEN( filename, NF90_WRITE, id_set_3d(av), &
     1125                                     COMM = comm2d, INFO = MPI_INFO_NULL )
     1126#endif
     1127             ENDIF
    11251128             CALL handle_netcdf_error( 'check_open', 35 )
    11261129!
Note: See TracChangeset for help on using the changeset viewer.