Changeset 60 for palm/trunk/SOURCE/user_interface.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/user_interface.f90 (modified) (2 diffs)

palm/trunk/SOURCE/user_interface.f90

@@ -5 +5 @@
 ! -----------------
 ! New routine user_init_3d_model which allows the initial setting of all 3d
-! arrays under control of the user,
+! arrays under control of the user, new routine user_advec_particles,
 ! routine user_statistics now has one argument (sr),
 ! sample for generating time series quantities added
@@ -521 +521 @@
 
  END SUBROUTINE user_init_particles
+
+
+
+ SUBROUTINE user_advec_particles
+
+!------------------------------------------------------------------------------!
+!
+! Description:
+! ------------
+! Modification of initial particles by the user.
+!------------------------------------------------------------------------------!
+
+    USE particle_attributes
+    USE user
+
+    IMPLICIT NONE
+
+    INTEGER ::  n
+
+!
+!-- Here the user-defined actions follow
+!    DO  n = 1, number_of_initial_particles
+!    ENDDO
+
+ END SUBROUTINE user_advec_particles