Index: palm/trunk/SOURCE/data_output_dvrp.f90
===================================================================
--- palm/trunk/SOURCE/data_output_dvrp.f90	(revision 77)
+++ palm/trunk/SOURCE/data_output_dvrp.f90	(revision 82)
@@ -32,4 +32,6 @@
 ! Actual revisions:
 ! -----------------
+! Preprocessor strings for different linux clusters changed to "lc",
+! routine local_flush is used for buffer flushing
 ! TEST: write statements
 !
@@ -84,9 +86,5 @@
 
     WRITE ( 9, * ) '*** myid=', myid, ' Anfang data_output_dvrp'
-#if defined( __ibm )
-    CALL FLUSH_( 9 )
-#elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
-    CALL FLUSH( 9 )
-#endif
+    CALL local_flush( 9 )
     CALL cpu_log( log_point(27), 'data_output_dvrp', 'start' )
 
@@ -104,16 +102,8 @@
           lock_steering_update = .TRUE.
     WRITE ( 9, * ) '*** myid=', myid, ' data_output_dvrp: vor steering_update'
-#if defined( __ibm )
-    CALL FLUSH_( 9 )
-#elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
-    CALL FLUSH( 9 )
-#endif
+    CALL local_flush( 9 )
           CALL DVRP_STEERING_UPDATE( m-1, data_output_dvrp )
     WRITE ( 9, * ) '*** myid=', myid, ' data_output_dvrp: nach steering_update'
-#if defined( __ibm )
-    CALL FLUSH_( 9 )
-#elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
-    CALL FLUSH( 9 )
-#endif
+    CALL local_flush( 9 )
           lock_steering_update = .FALSE.
        ENDIF
@@ -150,9 +140,5 @@
 
     WRITE ( 9, * ) '*** myid=', myid, ' data_output_dvrp: anfang particles'
-#if defined( __ibm )
-    CALL FLUSH_( 9 )
-#elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
-    CALL FLUSH( 9 )
-#endif
+    CALL local_flush( 9 )
 !
 !--       DVRP-Calls for plotting particles:
@@ -183,9 +169,5 @@
              WRITE (9,*) '--- before ALLOCATE  simtime=',simulated_time,' #of_tails=', number_of_tails, &
                            ' max#of_tp=', maximum_number_of_tailpoints
-#if defined( __ibm )
-    CALL FLUSH_( 9 )
-#elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
-    CALL FLUSH( 9 )
-#endif
+    CALL local_flush( 9 )
              ALLOCATE( psize(number_of_tails), p_t(number_of_tails),      &
                        p_c(number_of_tails*maximum_number_of_tailpoints), &
@@ -194,9 +176,5 @@
                        p_z(number_of_tails*maximum_number_of_tailpoints) )
              WRITE (9,*) '--- after ALLOCATE'
-#if defined( __ibm )
-    CALL FLUSH_( 9 )
-#elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
-    CALL FLUSH( 9 )
-#endif
+    CALL local_flush( 9 )
              psize = 0.0;  p_t = 0;  p_c = 0.0;  p_x = 0.0;  p_y = 0.0
              p_z   = 0.0;
@@ -209,9 +187,5 @@
                    IF ( simulated_time > 1338.0 )  THEN
                       WRITE (9,*) '--- particle ',n,' tail_id=',nn,' #of_tp=',particles(n)%tailpoints
-#if defined( __ibm )
-    CALL FLUSH_( 9 )
-#elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
-    CALL FLUSH( 9 )
-#endif
+    CALL local_flush( 9 )
                    ENDIF
                    DO  j = 1, particles(n)%tailpoints
@@ -227,9 +201,5 @@
                          WRITE (9,*) '--- tp= ',i,' x=',p_x(i),' y=',p_y(i), &
                                                  ' z=',p_z(i),' c=',p_c(i)
-#if defined( __ibm )
-    CALL FLUSH_( 9 )
-#elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
-    CALL FLUSH( 9 )
-#endif
+    CALL local_flush( 9 )
                       ENDIF
                    ENDDO
@@ -238,18 +208,10 @@
                    IF ( simulated_time > 1338.0 )  THEN
                       WRITE (9,*) '--- t= ',k,' psize=',psize(k),' p_t=',p_t(k)
-#if defined( __ibm )
-    CALL FLUSH_( 9 )
-#elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
-    CALL FLUSH( 9 )
-#endif
+    CALL local_flush( 9 )
                    ENDIF
                 ENDIF                
              ENDDO
              WRITE (9,*) '--- after locally storing the particle attributes'
-#if defined( __ibm )
-    CALL FLUSH_( 9 )
-#elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
-    CALL FLUSH( 9 )
-#endif
+    CALL local_flush( 9 )
           ENDIF
 
@@ -275,9 +237,5 @@
              ELSE
                 WRITE (9,*) '--- before DVRP_PARTICLES'
-#if defined( __ibm )
-    CALL FLUSH_( 9 )
-#elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
-    CALL FLUSH( 9 )
-#endif
+    CALL local_flush( 9 )
                 CALL DVRP_PARTICLES( m-1, number_of_tails, p_x, p_y, p_z, 15, &
                                      psize, p_c, p_t )
@@ -292,9 +250,5 @@
                 WRITE (9,*) 'p_t =', p_t
 
-#if defined( __ibm )
-    CALL FLUSH_( 9 )
-#elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
-    CALL FLUSH( 9 )
-#endif
+    CALL local_flush( 9 )
              ENDIF
           ENDIF
@@ -302,9 +256,5 @@
           CALL DVRP_VISUALIZE( m-1, 3, dvrp_filecount )
     WRITE ( 9, * ) '*** myid=', myid, ' data_output_dvrp: ende particles'
-#if defined( __ibm )
-    CALL FLUSH_( 9 )
-#elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
-    CALL FLUSH( 9 )
-#endif
+    CALL local_flush( 9 )
 
           DEALLOCATE( psize, p_c, p_t, p_x, p_y, p_z )
@@ -456,9 +406,5 @@
 
     WRITE ( 9, * ) '*** myid=', myid, ' data_output_dvrp: anfang isosurface'
-#if defined( __ibm )
-    CALL FLUSH_( 9 )
-#elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
-    CALL FLUSH( 9 )
-#endif
+    CALL local_flush( 9 )
 !
 !--          DVRP-Calls for plotting isosurfaces:
@@ -481,9 +427,5 @@
              CALL DVRP_VISUALIZE( m-1, 1, dvrp_filecount )
     WRITE ( 9, * ) '*** myid=', myid, ' data_output_dvrp: ende isosurface'
-#if defined( __ibm )
-    CALL FLUSH_( 9 )
-#elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
-    CALL FLUSH( 9 )
-#endif
+    CALL local_flush( 9 )
 
              CALL cpu_log( log_point_s(26), 'dvrp_isosurface', 'stop' )
@@ -492,9 +434,5 @@
 
     WRITE ( 9, * ) '*** myid=', myid, ' data_output_dvrp: anfang slicer'
-#if defined( __ibm )
-    CALL FLUSH_( 9 )
-#elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
-    CALL FLUSH( 9 )
-#endif
+    CALL local_flush( 9 )
 !
 !--          DVRP-Calls for plotting slicers:
@@ -526,9 +464,5 @@
 
     WRITE ( 9, * ) '*** myid=', myid, ' data_output_dvrp: ende slicer'
-#if defined( __ibm )
-    CALL FLUSH_( 9 )
-#elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
-    CALL FLUSH( 9 )
-#endif
+    CALL local_flush( 9 )
           ENDIF
 
@@ -545,9 +479,5 @@
     CALL cpu_log( log_point(27), 'data_output_dvrp', 'stop' )
     WRITE ( 9, * ) '*** myid=', myid, ' Ende data_output_dvrp'
-#if defined( __ibm )
-    CALL FLUSH_( 9 )
-#elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
-    CALL FLUSH( 9 )
-#endif
+    CALL local_flush( 9 )
 
 #endif
