Changeset 2122 for palm/trunk/SOURCE/lpm_data_output_particles.f90

Timestamp:

Jan 18, 2017 12:22:54 PM (7 years ago)

Author:

hoffmann

Message:

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

File:

• palm/trunk/SOURCE/lpm_data_output_particles.f90 (modified) (3 diffs)

palm/trunk/SOURCE/lpm_data_output_particles.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-! 
+! Calculation of particle ID
 ! 
 ! Former revisions:
@@ -136 +136 @@
 !     CALL netcdf_handle_error( 'lpm_data_output_particles', 3 )
 ! 
-!     nc_stat = NF90_PUT_VAR( id_set_prt, id_var_prt(2), particles%dvrp_psize,&
-!                             start = (/ 1, prt_time_count /),                &
+!     nc_stat = NF90_PUT_VAR( id_set_prt, id_var_prt(2), particles%user,     &
+!                             start = (/ 1, prt_time_count /),               &
 !                             count = (/ maximum_number_of_particles /) )
 !     CALL netcdf_handle_error( 'lpm_data_output_particles', 4 )
@@ -208 +208 @@
 ! 
 !     nc_stat = NF90_PUT_VAR( id_set_prt, id_var_prt(16),                    &
-!                             particles%tailpoints,                          &
+!                             particles%id2,                                 &
 !                             start = (/ 1, prt_time_count /),               &
 !                             count = (/ maximum_number_of_particles /) )
 !     CALL netcdf_handle_error( 'lpm_data_output_particles', 18 )
 ! 
-!     nc_stat = NF90_PUT_VAR( id_set_prt, id_var_prt(17), particles%tail_id, &
+!     nc_stat = NF90_PUT_VAR( id_set_prt, id_var_prt(17), particles%id1,     &
 !                             start = (/ 1, prt_time_count /),               &
 !                             count = (/ maximum_number_of_particles /) )