Ignore:
Timestamp:
Mar 19, 2010 5:30:02 AM (14 years ago)
Author:
raasch
Message:

NetCDF4 support for particle data; special character allowed for NetCDF variable names

File:
1 edited

Legend:

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

    r494 r519  
    44! Current revisions:
    55! -----------------
    6 !
     6! NetCDF4 support for particle data
    77!
    88! Former revisions:
     
    12751275
    12761276!
    1277 !--          Create a new NetCDF output file
    1278              IF ( netcdf_data_format > 1 )  THEN
     1277!--          Create a new NetCDF output file with requested NetCDF format
     1278             IF ( netcdf_data_format == 1 )  THEN
     1279!
     1280!--             Classic NetCDF format
     1281                nc_stat = NF90_CREATE( filename, NF90_NOCLOBBER, id_set_prt )
     1282
     1283             ELSEIF ( netcdf_data_format == 2 )  THEN
     1284!
     1285!--             64bit-offset format
    12791286                nc_stat = NF90_CREATE( filename,                               &
    12801287                                       OR( NF90_NOCLOBBER, NF90_64BIT_OFFSET ),&
    12811288                                       id_set_prt )
    1282              ELSE
    1283                 nc_stat = NF90_CREATE( filename, NF90_NOCLOBBER, id_set_prt )
    1284              ENDIF
     1289
     1290#if defined( __netcdf4 )
     1291             ELSEIF ( netcdf_data_format == 3 )  THEN
     1292!
     1293!--             NetCDF4/HDF5 format, but no parallel output into a single file!
     1294                nc_stat = NF90_CREATE( filename,                               &
     1295                                       OR( NF90_NOCLOBBER, NF90_NETCDF4 ),     &
     1296                                       id_set_prt )
     1297
     1298             ELSEIF ( netcdf_data_format == 4 )  THEN
     1299!
     1300!--             NetCDF4/HDF5 format with classic model flag, but no parallel
     1301!--             output into a single file!
     1302                nc_stat = NF90_CREATE( filename,                               &
     1303                                       OR( NF90_NOCLOBBER,                     &
     1304                                        OR( NF90_CLASSIC_MODEL, NF90_HDF5 ) ), &
     1305                                       id_set_prt )
     1306#endif
     1307             ENDIF
     1308
    12851309             CALL handle_netcdf_error( 'check_open', 43 ) 
    12861310
Note: See TracChangeset for help on using the changeset viewer.