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

    r1746 r1783  
    1919! Current revisions:
    2020! -----------------
    21 !
     21! name change of netcdf routines and module + related changes
    2222!
    2323! Former revisions:
     
    141141               do2d_yz_last_time, do2d_yz_n, do2d_yz_time_count,               &
    142142               ibc_uv_b, icloud_scheme, io_blocks, io_group,                   &
    143                message_string, netcdf_data_format,                             &
     143               message_string,                             &
    144144               ntdim_2d_xy, ntdim_2d_xz, ntdim_2d_yz, psolver, section,        &
    145145               simulated_time,  simulated_time_chr, time_since_reference_point
     
    165165               shf_eb_av, t_soil, t_soil_av, zs
    166166   
    167     USE netcdf_control
     167#if defined( __netcdf )
     168    USE NETCDF
     169#endif
     170
     171    USE netcdf_interface,                                                      &
     172        ONLY:  id_set_xy, id_set_xz, id_set_yz, id_var_do2d, id_var_time_xy,   &
     173               id_var_time_xz, id_var_time_yz, nc_stat, netcdf_data_format,    &
     174               netcdf_handle_error
    168175
    169176    USE particle_attributes,                                                   &
     
    13221329                                         start = (/ do2d_xy_time_count(av) /), &
    13231330                                                    count = (/ 1 /) )
    1324                             CALL handle_netcdf_error( 'data_output_2d', 53 )
     1331                            CALL netcdf_handle_error( 'data_output_2d', 53 )
    13251332#endif
    13261333                         ENDIF
     
    14431450                                             count = (/ nx+2, ny+2, 1, 1 /) )
    14441451                            ENDIF
    1445                             CALL handle_netcdf_error( 'data_output_2d', 54 )
     1452                            CALL netcdf_handle_error( 'data_output_2d', 54 )
    14461453#endif
    14471454
     
    14811488                                           count = (/ nx+2, ny+2, 1, 1 /) )
    14821489                   ENDIF
    1483                    CALL handle_netcdf_error( 'data_output_2d', 447 )
     1490                   CALL netcdf_handle_error( 'data_output_2d', 447 )
    14841491#endif
    14851492#endif
     
    15111518                                         start = (/ do2d_xz_time_count(av) /), &
    15121519                                                    count = (/ 1 /) )
    1513                             CALL handle_netcdf_error( 'data_output_2d', 56 )
     1520                            CALL netcdf_handle_error( 'data_output_2d', 56 )
    15141521#endif
    15151522                         ENDIF
     
    16661673                            start = (/ 1, is, 1, do2d_xz_time_count(av) /), &
    16671674                                             count = (/ nx+2, 1, nzt_do-nzb_do+1, 1 /) )
    1668                             CALL handle_netcdf_error( 'data_output_2d', 58 )
     1675                            CALL netcdf_handle_error( 'data_output_2d', 58 )
    16691676#endif
    16701677
     
    17071714                            start = (/ 1, is, 1, do2d_xz_time_count(av) /), &
    17081715                                           count = (/ nx+2, 1, nzt_do-nzb_do+1, 1 /) )
    1709                    CALL handle_netcdf_error( 'data_output_2d', 451 )
     1716                   CALL netcdf_handle_error( 'data_output_2d', 451 )
    17101717#endif
    17111718#endif
     
    17301737                                         start = (/ do2d_yz_time_count(av) /), &
    17311738                                                    count = (/ 1 /) )
    1732                             CALL handle_netcdf_error( 'data_output_2d', 59 )
     1739                            CALL netcdf_handle_error( 'data_output_2d', 59 )
    17331740#endif
    17341741                         ENDIF
     
    18851892                            start = (/ is, 1, 1, do2d_yz_time_count(av) /), &
    18861893                                             count = (/ 1, ny+2, nzt_do-nzb_do+1, 1 /) )
    1887                             CALL handle_netcdf_error( 'data_output_2d', 61 )
     1894                            CALL netcdf_handle_error( 'data_output_2d', 61 )
    18881895#endif
    18891896
     
    19261933                            start = (/ is, 1, 1, do2d_xz_time_count(av) /), &
    19271934                                           count = (/ 1, ny+2, nzt_do-nzb_do+1, 1 /) )
    1928                    CALL handle_netcdf_error( 'data_output_2d', 452 )
     1935                   CALL netcdf_handle_error( 'data_output_2d', 452 )
    19291936#endif
    19301937#endif
     
    19972004                      ENDIF   
    19982005
    1999                       CALL handle_netcdf_error( 'data_output_2d', 55 )
     2006                      CALL netcdf_handle_error( 'data_output_2d', 55 )
    20002007
    20012008                   CASE ( 'xz' )
     
    20472054                      ENDIF
    20482055
    2049                       CALL handle_netcdf_error( 'data_output_2d', 57 )
     2056                      CALL netcdf_handle_error( 'data_output_2d', 57 )
    20502057
    20512058                   CASE ( 'yz' )
     
    20972104                      ENDIF
    20982105
    2099                       CALL handle_netcdf_error( 'data_output_2d', 60 )
     2106                      CALL netcdf_handle_error( 'data_output_2d', 60 )
    21002107
    21012108                   CASE DEFAULT
Note: See TracChangeset for help on using the changeset viewer.