Changeset 117 for palm


Ignore:
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:
3 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/CURRENT_MODIFICATIONS

    r116 r117  
    1111advec_particles after the end of this loop.
    1212
    13 advec_particles, check_parameters, init_grid, init_pegrid, modules, package_parin, read_var_list, user_interface, write_var_list
     13advec_particles, check_parameters, header, init_grid, init_particles, init_pegrid, modules, package_parin, read_var_list, user_interface, write_var_list
    1414
    1515
  • palm/trunk/SOURCE/header.f90

    r110 r117  
    44! Actual revisions:
    55! -----------------
    6 !
     6! Output of sorting frequency of particles
    77!
    88! Former revisions:
     
    11361136       WRITE ( io, 480 )  particle_advection_start, dt_prel, bc_par_lr, &
    11371137                          bc_par_ns, bc_par_b, bc_par_t, particle_maximum_age, &
    1138                           end_time_prel
     1138                          end_time_prel, dt_sort_particles
    11391139       IF ( use_sgs_for_particles )  WRITE ( io, 488 )  dt_min_part
    11401140       IF ( random_start_position )  WRITE ( io, 481 )
     
    15111511            '                            bottom:     ', A, ' top:         ', A/&
    15121512            '       Maximum particle age:                 ',F9.1,' s'/ &
    1513             '       Advection stopped at t = ',F9.1,' s'/)
     1513            '       Advection stopped at t = ',F9.1,' s'/ &
     1514            '       Particles are sorted every ',F9.1,' s'/)
    15141515481 FORMAT ('       Particles have random start positions'/)
    15151516482 FORMAT ('       Particles are advected only horizontally'/)
  • palm/trunk/SOURCE/init_particles.f90

    r110 r117  
    44! Actual revisions:
    55! -----------------
    6 !
     6! Sorting of particles only in case of cloud droplets
    77!
    88! Former revisions:
     
    387387
    388388!
    389 !--    Sort particles in the sequence the gridboxes are stored in the memory
    390        CALL sort_particles
     389!--    Sort particles in the sequence the gridboxes are stored in the memory.
     390!--    Only required if cloud droplets are used.
     391       IF ( cloud_droplets )  CALL sort_particles
    391392
    392393!
Note: See TracChangeset for help on using the changeset viewer.