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

palm/trunk/SOURCE/data_output_dvrp.f90

@@ -32 +32 @@
 ! Actual revisions:
 ! -----------------
+! Particles-package is now part of the default code.
 ! TEST: write statements
 !
@@ -142 +143 @@
 !--    Select the plot mode (in case of isosurface or slicer only if user has
 !--    defined a variable which shall be plotted; otherwise do nothing)
-       IF ( mode_dvrp(m)(1:9) == 'particles' )  THEN
-
-#if defined( __particles )
+       IF ( mode_dvrp(m)(1:9) == 'particles'  .AND.  particle_advection )  THEN
+
     WRITE ( 9, * ) '*** myid=', myid, ' data_output_dvrp: anfang particles'
 #if defined( __ibm )
@@ -279 +279 @@
                                      psize, p_c, p_t )
                 WRITE (9,*) '--- after DVRP_PARTICLES'
+                WRITE (9,*) 'm-1 = ',m-1
+                WRITE (9,*) 'number_of_tails=', number_of_tails
+                WRITE (9,*) 'p_x =', p_x
+                WRITE (9,*) 'p_y =', p_y
+                WRITE (9,*) 'p_z =', p_z
+                WRITE (9,*) 'psize =', psize
+                WRITE (9,*) 'p_c =', p_c
+                WRITE (9,*) 'p_t =', p_t
+
 #if defined( __ibm )
     CALL FLUSH_( 9 )
@@ -298 +307 @@
 
           CALL cpu_log( log_point_s(28), 'dvrp_particles', 'stop' )
-#endif