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

Timestamp:

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

Author:

weinreis

Message:

bugfix message string in set_mask_locations

File:

• palm/trunk/SOURCE/user_last_actions.f90 (modified) (2 diffs)

palm/trunk/SOURCE/user_last_actions.f90

@@ -22 +22 @@
 
     USE control_parameters
+    USE pegrid
     USE user
 
     IMPLICIT NONE
+    
+    INTEGER :: rbs
 
 !
@@ -30 +33 @@
 !-- Sample for user-defined output:
     IF ( write_binary(1:4) == 'true' )  THEN
-!       IF ( ALLOCATED( u2_av ) )  THEN
-!          WRITE ( 14 )  'u2_av               ';  WRITE ( 14 )  u2_av
-!       ENDIF
+       DO rbs = 0, numprocs/binary_io_blocksize-1       
+          IF ( mod_numprocs_size == rbs ) THEN 
+          
+!            IF ( ALLOCATED( u2_av ) )  THEN
+!               WRITE ( 14 )  'u2_av               ';  WRITE ( 14 )  u2_av
+!            ENDIF
 
-       WRITE ( 14 )  '*** end user ***    '
+             WRITE ( 14 )  '*** end user ***    '
+       
+          ENDIF      
+          CALL MPI_BARRIER(comm2d, ierr )
+       ENDDO
 
     ENDIF