Changeset 1359 for palm/trunk/SOURCE/header.f90

Timestamp:

Apr 11, 2014 5:15:14 PM (10 years ago)

Author:

hoffmann

Message:

new Lagrangian particle structure integrated

File:

• palm/trunk/SOURCE/header.f90 (modified) (4 diffs)

palm/trunk/SOURCE/header.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! dt_sort_particles removed
 ! 
 ! Former revisions:
@@ -174 +174 @@
         ONLY:  bc_par_b, bc_par_lr, bc_par_ns, bc_par_t, collision_kernel,     &
                density_ratio, dissipation_classes, dt_min_part, dt_prel,       &
-               dt_sort_particles, dt_write_particle_data, end_time_prel,       &
+               dt_write_particle_data, end_time_prel,                          &
                maximum_number_of_tailpoints, maximum_tailpoint_age,            &
                minimum_tailpoint_distance, number_of_particle_groups,          &
@@ -1576 +1576 @@
        WRITE ( io, 480 )  particle_advection_start, dt_prel, bc_par_lr, &
                           bc_par_ns, bc_par_b, bc_par_t, particle_maximum_age, &
-                          end_time_prel, dt_sort_particles
+                          end_time_prel
        IF ( use_sgs_for_particles )  WRITE ( io, 488 )  dt_min_part
        IF ( random_start_position )  WRITE ( io, 481 )
@@ -2047 +2047 @@
             '                            bottom:     ', A, ' top:         ', A/&
             '       Maximum particle age:                 ',F9.1,' s'/ &
-            '       Advection stopped at t = ',F9.1,' s'/ &
-            '       Particles are sorted every ',F9.1,' s'/)
+            '       Advection stopped at t = ',F9.1,' s'/)
 481 FORMAT ('       Particles have random start positions'/)
 482 FORMAT ('          Particles are advected only horizontally'/)