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

Timestamp:

Sep 7, 2010 2:50:07 PM (14 years ago)

Author:

weinreis

Message:

bugfix message string in set_mask_locations

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
@@ -3814 +3816 @@
     ENDIF
 
-!
-!-- 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!
+    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!
 !--            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,        &
@@ -3833 +3837 @@
                   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
+          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 
 
     CLOSE ( 90 )