Changeset 559 for palm/trunk/SOURCE/advec_particles.f90

Timestamp:

Sep 7, 2010 3:17:00 PM (14 years ago)

Author:

weinreis

Message:

 

File:

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

palm/trunk/SOURCE/advec_particles.f90

@@ -3794 +3794 @@
 
     IMPLICIT NONE
-    
-    INTEGER :: rbs
 
     CHARACTER (LEN=10) ::  particle_binary_version
@@ -3816 +3814 @@
     ENDIF
 
-    DO rbs = 0, numprocs/binary_io_blocksize-1     
-       IF ( mod_numprocs_size == rbs ) THEN
-!
-!--       Write the version number of the binary format.
-!--       Attention: After changes to the following output commands the version
-!--       ---   number of the variable particle_binary_version must be changed!
+!
+!-- Write the version number of the binary format.
+!-- Attention: After changes to the following output commands the version
+!-- ---------  number of the variable particle_binary_version must be changed!
 !--            Also, the version number and the list of arrays to be read in
 !--            init_particles must be adjusted accordingly.
-          particle_binary_version = '3.0'
-          WRITE ( 90 )  particle_binary_version
-
-!
-!--       Write some particle parameters, the size of the particle arrays 
-!--       as well as other dvrp-plot variables.
-          WRITE ( 90 )  bc_par_b, bc_par_lr, bc_par_ns, bc_par_t,              &
+    particle_binary_version = '3.0'
+    WRITE ( 90 )  particle_binary_version
+
+!
+!-- Write some particle parameters, the size of the particle arrays as well as
+!-- other dvrp-plot variables.
+    WRITE ( 90 )  bc_par_b, bc_par_lr, bc_par_ns, bc_par_t,                    &
                   maximum_number_of_particles, maximum_number_of_tailpoints,   &
                   maximum_number_of_tails, number_of_initial_particles,        &
@@ -3837 +3833 @@
                   time_write_particle_data, uniform_particles
 
-          IF ( number_of_initial_particles /= 0 )    &
-             WRITE ( 90 )  initial_particles
-
-          WRITE ( 90 )  prt_count, prt_start_index
-          WRITE ( 90 )  particles
-
-          IF ( use_particle_tails )  THEN
-             WRITE ( 90 )  particle_tail_coordinates
-          ENDIF
-          
-       ENDIF  
-       CALL MPI_BARRIER(comm2d, ierr )    
-    ENDDO 
+    IF ( number_of_initial_particles /= 0 )  WRITE ( 90 )  initial_particles
+
+    WRITE ( 90 )  prt_count, prt_start_index
+    WRITE ( 90 )  particles
+
+    IF ( use_particle_tails )  THEN
+       WRITE ( 90 )  particle_tail_coordinates
+    ENDIF
 
     CLOSE ( 90 )