Changeset 2278 for palm


Ignore:
Timestamp:
Jun 12, 2017 1:08:18 PM (7 years ago)
Author:
schwenkel
Message:

Added comments

Location:
palm/trunk/SOURCE
Files:
3 edited

Legend:

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

    r2263 r2278  
    2525! -----------------
    2626!
    27 ! Inital revision
     27! Added comments
     28!
     29!
     30! 2263 2017-06-08 14:59:01Z schwenkel
     31! Initial revision
    2832!
    2933!
  • palm/trunk/SOURCE/lpm_splitting.f90

    r2270 r2278  
    2525! -----------------
    2626!
     27! Added comments
    2728!
    2829!
    29 !
     30! 2263 2017-06-08 14:59:01Z schwenkel
    3031! Initial revision
    3132!
     
    8687    INTEGER(iwp) ::  new_particles_gb !< counter of created particles within one grid box
    8788    INTEGER(iwp) ::  new_size         !< new particle array size
    88     INTEGER(iwp) ::  np               !<
     89    INTEGER(iwp) ::  np               !< 
    8990    INTEGER(iwp) ::  old_size         !< old particle array size
    9091   
  • palm/trunk/SOURCE/mod_particle_attributes.f90

    r2265 r2278  
    2525! -----------------
    2626! $Id$
     27! Added comments
     28!
     29! 2265 2017-06-08 16:58:28Z schwenkel
    2730! Unused variables removed.
    2831!
     
    105108    INTEGER(iwp) ::  isf                                          !< dummy for splitting function
    106109    INTEGER(iwp) ::  i_splitting_mode                             !< dummy for splitting mode
    107     INTEGER(iwp) ::  max_number_particles_per_gridbox = 30        !< namelist parameter (see documentation)
     110    INTEGER(iwp) ::  max_number_particles_per_gridbox = 100       !< namelist parameter (see documentation)
    108111    INTEGER(iwp) ::  merge_drp = 0                                !< number of merged droplets
    109112    INTEGER(iwp) ::  min_nr_particle = 50                         !< namelist parameter (see documentation)         
     
    210213        REAL(wp)     ::  radius        !< radius of particle
    211214        REAL(wp)     ::  age           !< age of particle
    212         REAL(wp)     ::  age_m         !<  
     215        REAL(wp)     ::  age_m         !<
    213216        REAL(wp)     ::  dt_sum        !<
    214217        REAL(wp)     ::  user          !< varible for user
Note: See TracChangeset for help on using the changeset viewer.