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

Timestamp:

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

Author:

weinreis

Message:

 

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
 
 !
@@ -33 +30 @@
 !-- Sample for user-defined output:
     IF ( write_binary(1:4) == 'true' )  THEN
-       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
+!       IF ( ALLOCATED( u2_av ) )  THEN
+!          WRITE ( 14 )  'u2_av               ';  WRITE ( 14 )  u2_av
+!       ENDIF
 
-             WRITE ( 14 )  '*** end user ***    '
-       
-          ENDIF      
-          CALL MPI_BARRIER(comm2d, ierr )
-       ENDDO
+       WRITE ( 14 )  '*** end user ***    '
 
     ENDIF