Changeset 117 for palm/trunk/SOURCE

Timestamp:

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

Author:

raasch

Message:

further small changes added to last revision

Location:

palm/trunk/SOURCE

Files:

• CURRENT_MODIFICATIONS (modified) (1 diff)
• header.f90 (modified) (3 diffs)
• init_particles.f90 (modified) (2 diffs)

palm/trunk/SOURCE/CURRENT_MODIFICATIONS

@@ -11 +11 @@
 advec_particles after the end of this loop.
 
-advec_particles, check_parameters, init_grid, init_pegrid, modules, package_parin, read_var_list, user_interface, write_var_list
+advec_particles, check_parameters, header, init_grid, init_particles, init_pegrid, modules, package_parin, read_var_list, user_interface, write_var_list
 
 

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'/)

palm/trunk/SOURCE/init_particles.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
-! 
+! Sorting of particles only in case of cloud droplets
 !
 ! Former revisions:
@@ -387 +387 @@
 
 !
-!--    Sort particles in the sequence the gridboxes are stored in the memory
-       CALL sort_particles
+!--    Sort particles in the sequence the gridboxes are stored in the memory.
+!--    Only required if cloud droplets are used.
+       IF ( cloud_droplets )  CALL sort_particles
 
 !