Changeset 60 for palm/trunk/SOURCE/particle_boundary_conds.f90

Timestamp:

Mar 11, 2007 11:50:04 AM (17 years ago)

Author:

raasch

Message:

preliminary update of further changes, running

File:

• palm/trunk/SOURCE/particle_boundary_conds.f90 (modified) (3 diffs)

palm/trunk/SOURCE/particle_boundary_conds.f90

@@ -16 +16 @@
 ! Routine developed by Jin Zhang (2006-2007)
 !------------------------------------------------------------------------------!
-#if defined( __particles )
 
     USE control_parameters
@@ -28 +27 @@
     IMPLICIT NONE
 
-    INTEGER ::  n
-
+    INTEGER ::  i, inc, ir, i1, i2, i3, i5, j, jr, j1, j2, j3, j5, k, k1, k2, &
+                k3, k5, n, t_index, t_index_number
+
+    REAL ::  dt_particle, pos_x, pos_x_old, pos_y, pos_y_old, pos_z, &
+             pos_z_old, prt_x, prt_y, prt_z, tmp_t, xline, yline, zline
+
+    REAL ::  t(1:200)
 
     CALL cpu_log( log_point_s(48), 'advec_part_refle', 'start' )
@@ -36 +40 @@
 
     DO  n = 1, number_of_particles
+
+       dt_particle = particles(n)%age - particles(n)%age_m
 
        i2 = ( particles(n)%x + 0.5 * dx ) * ddx