Ignore:
Timestamp:
Jul 14, 2017 8:26:51 PM (4 years ago)
Author:
hoffmann
Message:

various improvements of the LCM

File:
1 edited

Legend:

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

    r2305 r2312  
    2020! Current revisions:
    2121! ------------------
    22 ! 
    23 ! 
     22!
     23!
    2424! Former revisions:
    2525! -----------------
    2626! $Id$
     27! Extended particle data type.
     28!
     29! 2305 2017-07-06 11:18:47Z hoffmann
    2730! Improved calculation of particle IDs.
    28 ! 
     31!
    2932! 2265 2017-06-08 16:58:28Z schwenkel
    3033! Unused variables removed.
    31 ! 
     34!
    3235! 2101 2017-01-05 16:42:31Z suehring
    3336!
    3437! 2000 2016-08-20 18:09:15Z knoop
    3538! Forced header and separation lines into 80 columns
    36 ! 
     39!
    3740! 1822 2016-04-07 07:49:42Z hoffmann
    3841! Tails removed. Unused variables removed.
    3942!
    4043! 1682 2015-10-07 23:56:08Z knoop
    41 ! Code annotations made doxygen readable 
    42 ! 
     44! Code annotations made doxygen readable
     45!
    4346! 1359 2014-04-11 17:15:14Z hoffmann
    44 ! New particle structure integrated. 
     47! New particle structure integrated.
    4548!
    4649! 1320 2014-03-20 08:40:49Z raasch
     
    6164!------------------------------------------------------------------------------!
    6265 SUBROUTINE lpm_read_restart_file
    63  
     66
    6467
    6568    USE control_parameters,                                                    &
     
    119122
    120123!
    121 !-- If less particles are stored on the restart file than prescribed by 
     124!-- If less particles are stored on the restart file than prescribed by
    122125!-- min_nr_particle, the remainder is initialized by zero_particle to avoid
    123126!-- errors.
     
    125128                                   0.0_wp, 0.0_wp, 0.0_wp, 0.0_wp, 0.0_wp,  &
    126129                                   0.0_wp, 0.0_wp, 0.0_wp, 0.0_wp, 0.0_wp,  &
    127                                    0.0_wp, 0.0_wp, 0.0_wp, 0.0_wp,          &
     130                                   0.0_wp, 0.0_wp, 0.0_wp, 0.0_wp, 0.0_wp,  &
    128131                                   0, 0, 0_idp, .FALSE., -1 )
    129132!
     
    173176    CLOSE ( 90 )
    174177!
    175 !-- Must be called to sort particles into blocks, which is needed for a fast 
     178!-- Must be called to sort particles into blocks, which is needed for a fast
    176179!-- interpolation of the LES fields on the particle position.
    177180    CALL lpm_pack_all_arrays
Note: See TracChangeset for help on using the changeset viewer.