Ignore:
Timestamp:
Mar 1, 2010 8:30:24 AM (11 years ago)
Author:
raasch
Message:

New:
---
Output in NetCDF4-format. New d3par-parameter netcdf_data_format.

(check_open, check_parameters, close_file, data_output_2d, data_output_3d, header, modules, netcdf, parin)

Modules to be loaded for compilation (mbuild) or job execution (mrun)
can be given in the configuration file using variable modules. Example:

%modules ifort/11.0.069:netcdf lcsgih parallel

This method replaces the (undocumented) mpilib-variable.

WARNING: All fixed settings of modules in the scripts mbuild, mrun, and subjob
have been removed! Please set the modules variable appropriately in your
configuration file. (mbuild, mrun, subjob)

Changed:


Parameters netcdf_64bit and netcdf_64bit_3d have been removed. Use
netcdf_data_format = 2 for choosing the classic 64bit-offset format (this is
the default). The offset-format can not be set independently for the
3d-output-data any more.

Parameters netcdf_format_mask, netcdf_format_mask_av, and variables
nc_format_mask, format_parallel_io removed. They are replaced by the new
parameter netcdf_data_format. (check_open, close_file,
data_output_mask, header, init_masks, modules, parin)

Errors:


bugfix in trunk/UTIL/Makefile: forgot to compile for interpret_config

Bugfix: timeseries data have to be collected by PE0 (user_statistics)

File:
1 edited

Legend:

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

    r449 r493  
    44! Current revisions:
    55! -----------------
    6 !
     6! Adjustments for NetCDF parallel data output
    77!
    88! Former revisions:
     
    409409             CASE ( 101 )
    410410
    411                 IF ( myid == 0  .AND.  netcdf_output )  THEN
     411                IF ( netcdf_output  .AND.  &
     412                     ( myid == 0  .OR.  netcdf_data_format > 2 ) )  THEN
    412413                   nc_stat = NF90_CLOSE( id_set_xy(0) )
    413414                   CALL handle_netcdf_error( 'close_file', 44 )
     
    416417             CASE ( 102 )
    417418
    418                 IF ( myid == 0  .AND.  netcdf_output )  THEN
     419                IF ( netcdf_output  .AND.  &
     420                     ( myid == 0  .OR.  netcdf_data_format > 2 ) )  THEN
    419421                   nc_stat = NF90_CLOSE( id_set_xz(0) )
    420422                   CALL handle_netcdf_error( 'close_file', 45 )
     
    423425             CASE ( 103 )
    424426
    425                 IF ( myid == 0  .AND.  netcdf_output )  THEN
     427                IF ( netcdf_output  .AND.  &
     428                     ( myid == 0  .OR.  netcdf_data_format > 2 ) )  THEN
    426429                   nc_stat = NF90_CLOSE( id_set_yz(0) )
    427430                   CALL handle_netcdf_error( 'close_file', 46 )
     
    444447             CASE ( 106 )
    445448
    446                 IF ( myid == 0  .AND.  netcdf_output )  THEN
     449                IF ( netcdf_output  .AND.  &
     450                     ( myid == 0  .OR.  netcdf_data_format > 2 ) )  THEN
    447451                   nc_stat = NF90_CLOSE( id_set_3d(0) )
    448452                   CALL handle_netcdf_error( 'close_file', 49 )
     
    472476             CASE ( 111 )
    473477
    474                 IF ( myid == 0  .AND.  netcdf_output )  THEN
     478                IF ( netcdf_output  .AND.  &
     479                     ( myid == 0  .OR.  netcdf_data_format > 2 ) )  THEN
    475480                   nc_stat = NF90_CLOSE( id_set_xy(1) )
    476481                   CALL handle_netcdf_error( 'close_file', 52 )
     
    479484             CASE ( 112 )
    480485
    481                 IF ( myid == 0  .AND.  netcdf_output )  THEN
     486                IF ( netcdf_output  .AND.  &
     487                     ( myid == 0  .OR.  netcdf_data_format > 2 ) )  THEN
    482488                   nc_stat = NF90_CLOSE( id_set_xz(1) )
    483489                   CALL handle_netcdf_error( 'close_file', 352 )
     
    486492             CASE ( 113 )
    487493
    488                 IF ( myid == 0  .AND.  netcdf_output )  THEN
     494                IF ( netcdf_output  .AND.  &
     495                     ( myid == 0  .OR.  netcdf_data_format > 2 ) )  THEN
    489496                   nc_stat = NF90_CLOSE( id_set_yz(1) )
    490497                   CALL handle_netcdf_error( 'close_file', 353 )
     
    493500             CASE ( 116 )
    494501
    495                 IF ( myid == 0  .AND.  netcdf_output )  THEN
     502                IF ( netcdf_output  .AND.  &
     503                     ( myid == 0  .OR.  netcdf_data_format > 2 ) )  THEN
    496504                   nc_stat = NF90_CLOSE( id_set_3d(1) )
    497505                   CALL handle_netcdf_error( 'close_file', 353 )
     
    500508             CASE ( 121:160 )
    501509             
    502                 IF ( format_parallel_io ) THEN
     510                IF ( netcdf_output  .AND.  &
     511                     ( myid == 0  .OR.  netcdf_data_format > 2 ) )  THEN
    503512!
    504513!--                decompose fid into mid and av
     
    513522                   CALL handle_netcdf_error( 'close_file', 9998 )
    514523               
    515                 ELSEIF ( myid == 0  .AND.  netcdf_output )  THEN
    516 !
    517 !--                decompose fid into mid and av
    518                    IF ( fid <= 140 )  THEN
    519                       mid = fid - 120
    520                       av = 0
    521                    ELSE
    522                       mid = fid - 140
    523                       av = 1
    524                    ENDIF
    525                    nc_stat = NF90_CLOSE( id_set_mask(mid,av) )
    526                    CALL handle_netcdf_error( 'close_file', 9998 )
    527                    
    528524                ENDIF
    529525
Note: See TracChangeset for help on using the changeset viewer.