Ignore:
Timestamp:
Jan 18, 2017 12:22:54 PM (5 years ago)
Author:
hoffmann
Message:

introduction of a particle ID, improvement of equilibrium radius calculation, and reformatting

File:
1 edited

Legend:

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

    r2101 r2122  
    2020! Current revisions:
    2121! ------------------
    22 !
     22! Calculation of particle ID
    2323!
    2424! Former revisions:
     
    136136!     CALL netcdf_handle_error( 'lpm_data_output_particles', 3 )
    137137!
    138 !     nc_stat = NF90_PUT_VAR( id_set_prt, id_var_prt(2), particles%dvrp_psize,&
    139 !                             start = (/ 1, prt_time_count /),                &
     138!     nc_stat = NF90_PUT_VAR( id_set_prt, id_var_prt(2), particles%user,     &
     139!                             start = (/ 1, prt_time_count /),               &
    140140!                             count = (/ maximum_number_of_particles /) )
    141141!     CALL netcdf_handle_error( 'lpm_data_output_particles', 4 )
     
    208208!
    209209!     nc_stat = NF90_PUT_VAR( id_set_prt, id_var_prt(16),                    &
    210 !                             particles%tailpoints,                          &
     210!                             particles%id2,                                 &
    211211!                             start = (/ 1, prt_time_count /),               &
    212212!                             count = (/ maximum_number_of_particles /) )
    213213!     CALL netcdf_handle_error( 'lpm_data_output_particles', 18 )
    214214!
    215 !     nc_stat = NF90_PUT_VAR( id_set_prt, id_var_prt(17), particles%tail_id, &
     215!     nc_stat = NF90_PUT_VAR( id_set_prt, id_var_prt(17), particles%id1,    &
    216216!                             start = (/ 1, prt_time_count /),               &
    217217!                             count = (/ maximum_number_of_particles /) )
Note: See TracChangeset for help on using the changeset viewer.