Changeset 2278 for palm/trunk

Timestamp:

Jun 12, 2017 1:08:18 PM (7 years ago)

Author:

schwenkel

Message:

Added comments

Location:

palm/trunk/SOURCE

Files:

• lpm_merging.f90 (modified) (1 diff)
• lpm_splitting.f90 (modified) (2 diffs)
• mod_particle_attributes.f90 (modified) (3 diffs)

palm/trunk/SOURCE/lpm_merging.f90

@@ -25 +25 @@
 ! -----------------
 !
-! Inital revision
+! Added comments
+! 
+! 
+! 2263 2017-06-08 14:59:01Z schwenkel
+! Initial revision
 ! 
 ! 

palm/trunk/SOURCE/lpm_splitting.f90

@@ -25 +25 @@
 ! -----------------
 !
+! Added comments
 ! 
 ! 
-! 
+! 2263 2017-06-08 14:59:01Z schwenkel
 ! Initial revision
 ! 
@@ -86 +87 @@
     INTEGER(iwp) ::  new_particles_gb !< counter of created particles within one grid box
     INTEGER(iwp) ::  new_size         !< new particle array size
-    INTEGER(iwp) ::  np               !<
+    INTEGER(iwp) ::  np               !< 
     INTEGER(iwp) ::  old_size         !< old particle array size
     

palm/trunk/SOURCE/mod_particle_attributes.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Added comments
+! 
+! 2265 2017-06-08 16:58:28Z schwenkel
 ! Unused variables removed.
 ! 
@@ -105 +108 @@
     INTEGER(iwp) ::  isf                                          !< dummy for splitting function
     INTEGER(iwp) ::  i_splitting_mode                             !< dummy for splitting mode
-    INTEGER(iwp) ::  max_number_particles_per_gridbox = 30        !< namelist parameter (see documentation)
+    INTEGER(iwp) ::  max_number_particles_per_gridbox = 100       !< namelist parameter (see documentation)
     INTEGER(iwp) ::  merge_drp = 0                                !< number of merged droplets
     INTEGER(iwp) ::  min_nr_particle = 50                         !< namelist parameter (see documentation)         
@@ -210 +213 @@
         REAL(wp)     ::  radius        !< radius of particle
         REAL(wp)     ::  age           !< age of particle
-        REAL(wp)     ::  age_m         !<  
+        REAL(wp)     ::  age_m         !< 
         REAL(wp)     ::  dt_sum        !<
         REAL(wp)     ::  user          !< varible for user