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/init_masks.f90

    r997 r1031  
    44! Current revisions:
    55! -----------------
    6 !
     6! netCDF4 without parallel file support implemented
    77!
    88! Former revisions:
     
    8282!
    8383!-- Parallel mask output not yet tested
    84     IF ( netcdf_data_format > 2 )  THEN
     84    IF ( netcdf_data_format > 4 )  THEN
    8585       message_string = 'netCDF file formats '//                         &
    8686                        '3 (netCDF 4) and 4 (netCDF 4 Classic model)'//  &
     
    127127!
    128128!-- Global arrays are required by define_netcdf_header.
    129     IF ( myid == 0  .OR.  netcdf_data_format > 2 )  THEN
     129    IF ( myid == 0  .OR.  netcdf_data_format > 4 )  THEN
    130130       ALLOCATE( mask_i_global(max_masks,nx+1), &
    131131                 mask_j_global(max_masks,ny+1), &
     
    412412       CALL MPI_BARRIER( comm2d, ierr )
    413413       
    414        IF ( netcdf_data_format > 2 )  THEN 
     414       IF ( netcdf_data_format > 4 )  THEN
    415415         
    416416          CALL MPI_BCAST( mask_i_global(mid,:), nx+1, MPI_INTEGER, 0, comm2d, &
Note: See TracChangeset for help on using the changeset viewer.