Ignore:
Timestamp:
Oct 19, 2012 2:35:30 PM (9 years ago)
Author:
raasch
Message:

netCDF4 without parallel file support implemented
additional define string netcdf4_parallel is required to switch on parallel file support

File:
1 edited

Legend:

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

    r965 r1031  
    44! Current revisions:
    55! -----------------
    6 !
     6! netCDF4 without parallel file support implemented
    77!
    88! Former revisions:
     
    189189
    190190                IF ( netcdf_output  .AND.  &
    191                      ( myid == 0  .OR.  netcdf_data_format > 2 ) )  THEN
     191                     ( myid == 0  .OR.  netcdf_data_format > 4 ) )  THEN
    192192                   nc_stat = NF90_CLOSE( id_set_xy(0) )
    193193                   CALL handle_netcdf_error( 'close_file', 44 )
     
    197197
    198198                IF ( netcdf_output  .AND.  &
    199                      ( myid == 0  .OR.  netcdf_data_format > 2 ) )  THEN
     199                     ( myid == 0  .OR.  netcdf_data_format > 4 ) )  THEN
    200200                   nc_stat = NF90_CLOSE( id_set_xz(0) )
    201201                   CALL handle_netcdf_error( 'close_file', 45 )
     
    205205
    206206                IF ( netcdf_output  .AND.  &
    207                      ( myid == 0  .OR.  netcdf_data_format > 2 ) )  THEN
     207                     ( myid == 0  .OR.  netcdf_data_format > 4 ) )  THEN
    208208                   nc_stat = NF90_CLOSE( id_set_yz(0) )
    209209                   CALL handle_netcdf_error( 'close_file', 46 )
     
    227227
    228228                IF ( netcdf_output  .AND.  &
    229                      ( myid == 0  .OR.  netcdf_data_format > 2 ) )  THEN
     229                     ( myid == 0  .OR.  netcdf_data_format > 4 ) )  THEN
    230230                   nc_stat = NF90_CLOSE( id_set_3d(0) )
    231231                   CALL handle_netcdf_error( 'close_file', 49 )
     
    256256
    257257                IF ( netcdf_output  .AND.  &
    258                      ( myid == 0  .OR.  netcdf_data_format > 2 ) )  THEN
     258                     ( myid == 0  .OR.  netcdf_data_format > 4 ) )  THEN
    259259                   nc_stat = NF90_CLOSE( id_set_xy(1) )
    260260                   CALL handle_netcdf_error( 'close_file', 52 )
     
    264264
    265265                IF ( netcdf_output  .AND.  &
    266                      ( myid == 0  .OR.  netcdf_data_format > 2 ) )  THEN
     266                     ( myid == 0  .OR.  netcdf_data_format > 4 ) )  THEN
    267267                   nc_stat = NF90_CLOSE( id_set_xz(1) )
    268268                   CALL handle_netcdf_error( 'close_file', 352 )
     
    272272
    273273                IF ( netcdf_output  .AND.  &
    274                      ( myid == 0  .OR.  netcdf_data_format > 2 ) )  THEN
     274                     ( myid == 0  .OR.  netcdf_data_format > 4 ) )  THEN
    275275                   nc_stat = NF90_CLOSE( id_set_yz(1) )
    276276                   CALL handle_netcdf_error( 'close_file', 353 )
     
    280280
    281281                IF ( netcdf_output  .AND.  &
    282                      ( myid == 0  .OR.  netcdf_data_format > 2 ) )  THEN
     282                     ( myid == 0  .OR.  netcdf_data_format > 4 ) )  THEN
    283283                   nc_stat = NF90_CLOSE( id_set_3d(1) )
    284284                   CALL handle_netcdf_error( 'close_file', 353 )
     
    288288             
    289289                IF ( netcdf_output  .AND.  &
    290                      ( myid == 0  .OR.  netcdf_data_format > 2 ) )  THEN
     290                     ( myid == 0  .OR.  netcdf_data_format > 4 ) )  THEN
    291291!
    292292!--                decompose fid into mid and av
Note: See TracChangeset for help on using the changeset viewer.