Ignore:
Timestamp:
Mar 15, 2012 10:35:09 AM (10 years ago)
Author:
raasch
Message:

Changed:


Original routine advec_particles split into several new subroutines and renamed
lpm.
init_particles renamed lpm_init
user_advec_particles renamed user_lpm_advec,
particle_boundary_conds renamed lpm_boundary_conds,
set_particle_attributes renamed lpm_set_attributes,
user_init_particles renamed user_lpm_init,
user_particle_attributes renamed user_lpm_set_attributes
(Makefile, lpm_droplet_collision, lpm_droplet_condensation, init_3d_model, modules, palm, read_var_list, time_integration, write_var_list, deleted: advec_particles, init_particles, particle_boundary_conds, set_particle_attributes, user_advec_particles, user_init_particles, user_particle_attributes, new: lpm, lpm_advec, lpm_boundary_conds, lpm_calc_liquid_water_content, lpm_data_output_particles, lpm_droplet_collision, lpm_drollet_condensation, lpm_exchange_horiz, lpm_extend_particle_array, lpm_extend_tails, lpm_extend_tail_array, lpm_init, lpm_init_sgs_tke, lpm_pack_arrays, lpm_read_restart_file, lpm_release_set, lpm_set_attributes, lpm_sort_arrays, lpm_write_exchange_statistics, lpm_write_restart_file, user_lpm_advec, user_lpm_init, user_lpm_set_attributes

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/time_integration.f90

    r826 r849  
    44! Current revisions:
    55! -----------------
    6 !
     6! advec_particles renamed lpm, first_call_advec_particles renamed first_call_lpm
    77!
    88! Former revisions:
     
    182182
    183183!
    184 !--       Particle advection (only once during intermediate steps, because
    185 !--       it uses an Euler-step)
     184!--       Particle transport/physics with the Lagrangian particle model
     185!--       (only once during intermediate steps, because it uses an Euler-step)
    186186          IF ( particle_advection  .AND.                         &
    187187               simulated_time >= particle_advection_start  .AND. &
    188188               intermediate_timestep_count == 1 )  THEN
    189              CALL advec_particles
    190              first_call_advec_particles = .FALSE.
     189             CALL lpm
     190             first_call_lpm = .FALSE.
    191191          ENDIF
    192192
     
    358358       ENDIF
    359359       time_dots          = time_dots        + dt_3d
    360        IF ( .NOT. first_call_advec_particles )  THEN
     360       IF ( .NOT. first_call_lpm )  THEN
    361361          time_dopts      = time_dopts       + dt_3d
    362362       ENDIF
     
    552552          IF ( time_dopts >= dt_dopts  .OR. &
    553553               ( simulated_time >= particle_advection_start  .AND. &
    554                  first_call_advec_particles ) )  THEN
     554                 first_call_lpm ) )  THEN
    555555             CALL data_output_ptseries
    556556             time_dopts = MOD( time_dopts, MAX( dt_dopts, dt_3d ) )
Note: See TracChangeset for help on using the changeset viewer.