Ignore:
Timestamp:
Jun 13, 2016 1:37:44 PM (5 years ago)
Author:
suehring
Message:

deallocation of unused particle memory, formatting adjustments

File:
1 edited

Legend:

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

    r1930 r1936  
    1919! Current revisions:
    2020! ------------------
    21 !
     21! Call routine for deallocation of unused memory.
     22! Formatting adjustments
    2223!
    2324! Former revisions:
     
    120121
    121122    USE lpm_exchange_horiz_mod,                                                &
    122         ONLY:  lpm_exchange_horiz, lpm_move_particle
     123        ONLY:  dealloc_particles_array, lpm_exchange_horiz, lpm_move_particle
    123124
    124125    USE lpm_init_mod,                                                          &
     
    129130
    130131    USE particle_attributes,                                                   &
    131         ONLY:  collision_kernel, deleted_particles,                            &
     132        ONLY:  collision_kernel, deleted_particles, deallocate_memory,         &
    132133               dt_write_particle_data, dt_prel, end_time_prel,                 &
    133134               grid_particles, number_of_particles, number_of_particle_groups, &
    134                particles, particle_groups, prt_count, trlp_count_sum,          &
    135                time_prel,                                                      &
    136                time_write_particle_data, trlp_count_recv_sum, trnp_count_sum,  &
     135               particles, particle_groups, prt_count, step_dealloc,            &
     136               time_prel, time_write_particle_data, trlp_count_sum,            &
     137               trlp_count_recv_sum, trnp_count_sum,                            &
    137138               trnp_count_recv_sum, trrp_count_sum, trrp_count_recv_sum,       &
    138139               trsp_count_sum, trsp_count_recv_sum,                            &
     
    149150    INTEGER(iwp)       ::  je                 !<
    150151    INTEGER(iwp)       ::  js                 !<
     152    INTEGER(iwp), SAVE ::  lpm_count = 0      !<
    151153    INTEGER(iwp)       ::  k                  !<
    152154    INTEGER(iwp)       ::  ke                 !<
     
    381383!
    382384!-- Calculate the new liquid water content for each grid box
    383     IF ( cloud_droplets )  THEN
    384        CALL lpm_calc_liquid_water_content
     385    IF ( cloud_droplets )  CALL lpm_calc_liquid_water_content
     386!
     387!-- Deallocate unused memory
     388    IF ( deallocate_memory  .AND.  lpm_count == step_dealloc )  THEN
     389       CALL dealloc_particles_array
     390       lpm_count = 0
     391    ELSEIF ( deallocate_memory )  THEN
     392       lpm_count = lpm_count + 1
    385393    ENDIF
    386 
    387 
    388394
    389395!
Note: See TracChangeset for help on using the changeset viewer.