Changeset 1359 for palm/trunk/SOURCE/lpm_extend_tails.f90

Timestamp:

Apr 11, 2014 5:15:14 PM (10 years ago)

Author:

hoffmann

Message:

new Lagrangian particle structure integrated

File:

• palm/trunk/SOURCE/lpm_extend_tails.f90 (modified) (4 diffs)

palm/trunk/SOURCE/lpm_extend_tails.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-!
+! New particle structure integrated.
+! Kind definition added to all floating point numbers.
 !
 ! Former revisions:
@@ -64 +65 @@
 
 
-    distance = 0.0
+    distance = 0.0_wp
 
     DO  n = 1, number_of_particles
@@ -74 +75 @@
 !--       Calculate the distance between the actual particle position and the
 !--       next tailpoint
-          IF ( minimum_tailpoint_distance /= 0.0 )  THEN
+          IF ( minimum_tailpoint_distance /= 0.0_wp )  THEN
              distance = ( particle_tail_coordinates(1,1,nn) -      &
                           particle_tail_coordinates(2,1,nn) )**2 + &
@@ -109 +110 @@
 !
 !--       Increase the age of the tailpoints
-          IF ( minimum_tailpoint_distance /= 0.0 )  THEN
+          IF ( minimum_tailpoint_distance /= 0.0_wp )  THEN
              particle_tail_coordinates(2:particles(n)%tailpoints,5,nn) =    &
                particle_tail_coordinates(2:particles(n)%tailpoints,5,nn) + dt_3d