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

    r1683 r1783  
    1919! Current revisions:
    2020! ------------------
    21 !
     21! name change of netcdf routines and module + related changes
    2222!
    2323! Former revisions:
     
    6565    USE kinds
    6666
    67     USE netcdf_control
     67    USE netcdf_interface,                                                      &
     68        ONLY:  nc_stat
    6869
    6970    USE particle_attributes,                                                   &
     
    122123!                             (/ simulated_time /),        &
    123124!                             start = (/ prt_time_count /), count = (/ 1 /) )
    124 !     CALL handle_netcdf_error( 'lpm_data_output_particles', 1 )
     125!     CALL netcdf_handle_error( 'lpm_data_output_particles', 1 )
    125126!
    126127! !
     
    129130!                             (/ number_of_particles /),   &
    130131!                             start = (/ prt_time_count /), count = (/ 1 /) )
    131 !     CALL handle_netcdf_error( 'lpm_data_output_particles', 2 )
     132!     CALL netcdf_handle_error( 'lpm_data_output_particles', 2 )
    132133!
    133134! !
     
    136137!                             start = (/ 1, prt_time_count /),               &
    137138!                             count = (/ maximum_number_of_particles /) )
    138 !     CALL handle_netcdf_error( 'lpm_data_output_particles', 3 )
     139!     CALL netcdf_handle_error( 'lpm_data_output_particles', 3 )
    139140!
    140141!     nc_stat = NF90_PUT_VAR( id_set_prt, id_var_prt(2), particles%dvrp_psize,&
    141142!                             start = (/ 1, prt_time_count /),                &
    142143!                             count = (/ maximum_number_of_particles /) )
    143 !     CALL handle_netcdf_error( 'lpm_data_output_particles', 4 )
     144!     CALL netcdf_handle_error( 'lpm_data_output_particles', 4 )
    144145!
    145146!     nc_stat = NF90_PUT_VAR( id_set_prt, id_var_prt(3), particles%origin_x, &
    146147!                             start = (/ 1, prt_time_count /),               &
    147148!                             count = (/ maximum_number_of_particles /) )
    148 !     CALL handle_netcdf_error( 'lpm_data_output_particles', 5 )
     149!     CALL netcdf_handle_error( 'lpm_data_output_particles', 5 )
    149150!
    150151!     nc_stat = NF90_PUT_VAR( id_set_prt, id_var_prt(4), particles%origin_y, &
    151152!                             start = (/ 1, prt_time_count /),               &
    152153!                             count = (/ maximum_number_of_particles /) )
    153 !     CALL handle_netcdf_error( 'lpm_data_output_particles', 6 )
     154!     CALL netcdf_handle_error( 'lpm_data_output_particles', 6 )
    154155!
    155156!     nc_stat = NF90_PUT_VAR( id_set_prt, id_var_prt(5), particles%origin_z, &
    156157!                             start = (/ 1, prt_time_count /),               &
    157158!                             count = (/ maximum_number_of_particles /) )
    158 !     CALL handle_netcdf_error( 'lpm_data_output_particles', 7 )
     159!     CALL netcdf_handle_error( 'lpm_data_output_particles', 7 )
    159160!
    160161!     nc_stat = NF90_PUT_VAR( id_set_prt, id_var_prt(6), particles%radius,   &
    161162!                             start = (/ 1, prt_time_count /),               &
    162163!                             count = (/ maximum_number_of_particles /) )
    163 !     CALL handle_netcdf_error( 'lpm_data_output_particles', 8 )
     164!     CALL netcdf_handle_error( 'lpm_data_output_particles', 8 )
    164165!
    165166!     nc_stat = NF90_PUT_VAR( id_set_prt, id_var_prt(7), particles%speed_x,  &
    166167!                             start = (/ 1, prt_time_count /),               &
    167168!                             count = (/ maximum_number_of_particles /) )
    168 !     CALL handle_netcdf_error( 'lpm_data_output_particles', 9 )
     169!     CALL netcdf_handle_error( 'lpm_data_output_particles', 9 )
    169170!
    170171!     nc_stat = NF90_PUT_VAR( id_set_prt, id_var_prt(8), particles%speed_y,  &
    171172!                             start = (/ 1, prt_time_count /),               &
    172173!                             count = (/ maximum_number_of_particles /) )
    173 !     CALL handle_netcdf_error( 'lpm_data_output_particles', 10 )
     174!     CALL netcdf_handle_error( 'lpm_data_output_particles', 10 )
    174175!
    175176!     nc_stat = NF90_PUT_VAR( id_set_prt, id_var_prt(9), particles%speed_z,  &
    176177!                             start = (/ 1, prt_time_count /),               &
    177178!                             count = (/ maximum_number_of_particles /) )
    178 !     CALL handle_netcdf_error( 'lpm_data_output_particles', 11 )
     179!     CALL netcdf_handle_error( 'lpm_data_output_particles', 11 )
    179180!
    180181!     nc_stat = NF90_PUT_VAR( id_set_prt,id_var_prt(10),                     &
     
    182183!                             start = (/ 1, prt_time_count /),               &
    183184!                             count = (/ maximum_number_of_particles /) )
    184 !     CALL handle_netcdf_error( 'lpm_data_output_particles', 12 )
     185!     CALL netcdf_handle_error( 'lpm_data_output_particles', 12 )
    185186!
    186187!     nc_stat = NF90_PUT_VAR( id_set_prt, id_var_prt(11), particles%x,       &
    187188!                             start = (/ 1, prt_time_count /),               &
    188189!                             count = (/ maximum_number_of_particles /) )
    189 !     CALL handle_netcdf_error( 'lpm_data_output_particles', 13 )
     190!     CALL netcdf_handle_error( 'lpm_data_output_particles', 13 )
    190191!
    191192!     nc_stat = NF90_PUT_VAR( id_set_prt, id_var_prt(12), particles%y,       &
    192193!                             start = (/ 1, prt_time_count /),               &
    193194!                             count = (/ maximum_number_of_particles /) )
    194 !     CALL handle_netcdf_error( 'lpm_data_output_particles', 14 )
     195!     CALL netcdf_handle_error( 'lpm_data_output_particles', 14 )
    195196!
    196197!     nc_stat = NF90_PUT_VAR( id_set_prt, id_var_prt(13), particles%z,       &
    197198!                             start = (/ 1, prt_time_count /),               &
    198199!                             count = (/ maximum_number_of_particles /) )
    199 !     CALL handle_netcdf_error( 'lpm_data_output_particles', 15 )
     200!     CALL netcdf_handle_error( 'lpm_data_output_particles', 15 )
    200201!
    201202!     nc_stat = NF90_PUT_VAR( id_set_prt, id_var_prt(14), particles%class,   &
    202203!                             start = (/ 1, prt_time_count /),               &
    203204!                             count = (/ maximum_number_of_particles /) )
    204 !     CALL handle_netcdf_error( 'lpm_data_output_particles', 16 )
     205!     CALL netcdf_handle_error( 'lpm_data_output_particles', 16 )
    205206!
    206207!     nc_stat = NF90_PUT_VAR( id_set_prt, id_var_prt(15), particles%group,   &
    207208!                             start = (/ 1, prt_time_count /),               &
    208209!                             count = (/ maximum_number_of_particles /) )
    209 !     CALL handle_netcdf_error( 'lpm_data_output_particles', 17 )
     210!     CALL netcdf_handle_error( 'lpm_data_output_particles', 17 )
    210211!
    211212!     nc_stat = NF90_PUT_VAR( id_set_prt, id_var_prt(16),                    &
     
    213214!                             start = (/ 1, prt_time_count /),               &
    214215!                             count = (/ maximum_number_of_particles /) )
    215 !     CALL handle_netcdf_error( 'lpm_data_output_particles', 18 )
     216!     CALL netcdf_handle_error( 'lpm_data_output_particles', 18 )
    216217!
    217218!     nc_stat = NF90_PUT_VAR( id_set_prt, id_var_prt(17), particles%tail_id, &
    218219!                             start = (/ 1, prt_time_count /),               &
    219220!                             count = (/ maximum_number_of_particles /) )
    220 !     CALL handle_netcdf_error( 'lpm_data_output_particles', 19 )
     221!     CALL netcdf_handle_error( 'lpm_data_output_particles', 19 )
    221222!
    222223#endif
Note: See TracChangeset for help on using the changeset viewer.