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

Timestamp:

Oct 11, 2007 3:27:59 AM (17 years ago)

Author:

raasch

Message:

further small changes added to last revision

File:

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

palm/trunk/SOURCE/header.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
-! 
+! Output of sorting frequency of particles
 !
 ! Former revisions:
@@ -1136 +1136 @@
        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
+                          end_time_prel, dt_sort_particles
        IF ( use_sgs_for_particles )  WRITE ( io, 488 )  dt_min_part
        IF ( random_start_position )  WRITE ( io, 481 )
@@ -1511 +1511 @@
             '                            bottom:     ', A, ' top:         ', A/&
             '       Maximum particle age:                 ',F9.1,' s'/ &
-            '       Advection stopped at t = ',F9.1,' s'/)
+            '       Advection stopped at t = ',F9.1,' s'/ &
+            '       Particles are sorted every ',F9.1,' s'/)
 481 FORMAT ('       Particles have random start positions'/)
 482 FORMAT ('       Particles are advected only horizontally'/)