Ignore:
Timestamp:
Mar 6, 2016 6:36:17 PM (6 years ago)
Author:
raasch
Message:

NetCDF routines modularized; new parameter netcdf_deflate; further changes in the pmc

File:
1 edited

Legend:

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

    r1765 r1783  
    1919! Current revisions:
    2020! -----------------
    21 !
     21! netcdf module and variable names changed, output of netcdf_deflate
    2222!
    2323! Former revisions:
     
    249249        ONLY:  damp_level_ind_1d, dt_pr_1d, dt_run_control_1d, end_time_1d
    250250       
     251    USE netcdf_interface,                                                      &
     252        ONLY:  netcdf_data_format, netcdf_data_format_string, netcdf_deflate
     253
    251254    USE particle_attributes,                                                   &
    252255        ONLY:  bc_par_b, bc_par_lr, bc_par_ns, bc_par_t, collision_kernel,     &
     
    13151318
    13161319       output_format = ''
    1317        output_format = output_format_netcdf
    1318        WRITE ( io, 344 )  output_format
     1320       output_format = netcdf_data_format_string
     1321       IF ( netcdf_deflate == 0 )  THEN
     1322          WRITE ( io, 344 )  output_format
     1323       ELSE
     1324          WRITE ( io, 354 )  TRIM( output_format ), netcdf_deflate
     1325       ENDIF
    13191326
    13201327       DO  i = 1, dopr_n
     
    13791386
    13801387          output_format = ''
    1381           output_format = output_format_netcdf
    1382           WRITE ( io, 344 )  output_format
     1388          output_format = netcdf_data_format_string
     1389          IF ( netcdf_deflate == 0 )  THEN
     1390             WRITE ( io, 344 )  output_format
     1391          ELSE
     1392             WRITE ( io, 354 )  TRIM( output_format ), netcdf_deflate
     1393          ENDIF
    13831394
    13841395          IF ( do2d_xy /= ''  .AND.  section(1,1) /= -9999 )  THEN
     
    15361547          ENDIF
    15371548
    1538           output_format = output_format_netcdf
    1539           WRITE ( io, 344 )  output_format
     1549          output_format = netcdf_data_format_string
     1550          IF ( netcdf_deflate == 0 )  THEN
     1551             WRITE ( io, 344 )  output_format
     1552          ELSE
     1553             WRITE ( io, 354 )  TRIM( output_format ), netcdf_deflate
     1554          ENDIF
    15401555
    15411556          IF ( do3d_at_begin )  THEN
     
    15951610             ENDIF
    15961611
    1597              output_format = output_format_netcdf
     1612             output_format = netcdf_data_format_string
    15981613!--          Parallel output not implemented for mask data, hence
    15991614!--          output_format must be adjusted.
    16001615             IF ( netcdf_data_format == 5 ) output_format = 'netCDF4/HDF5'
    16011616             IF ( netcdf_data_format == 6 ) output_format = 'netCDF4/HDF5 classic'
    1602              WRITE ( io, 344 )  output_format
     1617             IF ( netcdf_deflate == 0 )  THEN
     1618                WRITE ( io, 344 )  output_format
     1619             ELSE
     1620                WRITE ( io, 354 )  TRIM( output_format ), netcdf_deflate
     1621             ENDIF
    16031622
    16041623             IF ( av == 0 )  THEN
     
    16501669       WRITE ( io, 340 )
    16511670
    1652        output_format = output_format_netcdf
    1653        WRITE ( io, 344 )  output_format
     1671       output_format = netcdf_data_format_string
     1672       IF ( netcdf_deflate == 0 )  THEN
     1673          WRITE ( io, 344 )  output_format
     1674       ELSE
     1675          WRITE ( io, 354 )  TRIM( output_format ), netcdf_deflate
     1676       ENDIF
    16541677       WRITE ( io, 341 )  dt_dots
    16551678    ENDIF
     
    17131736       WRITE ( io, 370 )
    17141737
    1715        output_format = output_format_netcdf
    1716        WRITE ( io, 344 )  output_format
     1738       output_format = netcdf_data_format_string
     1739       IF ( netcdf_deflate == 0 )  THEN
     1740          WRITE ( io, 344 )  output_format
     1741       ELSE
     1742          WRITE ( io, 354 )  TRIM( output_format ), netcdf_deflate
     1743       ENDIF
    17171744       WRITE ( io, 371 )  dt_dosp
    17181745       IF ( skip_time_dosp /= 0.0_wp )  WRITE ( io, 339 )  skip_time_dosp
     
    18641891             output_format = 'netcdf and binary'
    18651892          ENDIF
    1866           WRITE ( io, 344 )  output_format
     1893          IF ( netcdf_deflate == 0 )  THEN
     1894             WRITE ( io, 344 )  output_format
     1895          ELSE
     1896             WRITE ( io, 354 )  TRIM( output_format ), netcdf_deflate
     1897          ENDIF
    18671898       ENDIF
    18681899       IF ( dt_dopts /= 9999999.9_wp )  WRITE ( io, 494 )  dt_dopts
     
    21762207352 FORMAT  (/'       Number of output time levels allowed: ',I3 /)
    21772208353 FORMAT  (/'       Number of output time levels allowed: unlimited' /)
     2209354 FORMAT ('       Output format: ',A, '   compressed with level: ',I1/)
    21782210#if defined( __dvrp_graphics )
    21792211360 FORMAT ('    Plot-Sequence with dvrp-software:'/ &
Note: See TracChangeset for help on using the changeset viewer.