Changeset 82 for palm/trunk/SOURCE/poisfft.f90

Timestamp:

Apr 16, 2007 3:40:52 PM (17 years ago)

Author:

raasch

Message:

vorlaeufige Standalone-Version fuer Linux-Cluster

File:

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

palm/trunk/SOURCE/poisfft.f90

@@ -1345 +1345 @@
 !       tn = omp_get_thread_num()
 !       WRITE( 120+tn, * ) '+++ id=',myid,' nx=',nx,' thread=', omp_get_thread_num()
-!       CALL FLUSH_( 120+tn )
+!       CALL local_flush( 120+tn )
 !CDIR NOLOOPCHG
        DO  k = 0, nz-1
@@ -1354 +1354 @@
        ENDDO
 !       WRITE( 120+tn, * ) '+++ id=',myid,' end of first tridia loop   thread=', omp_get_thread_num()
-!       CALL FLUSH_( 120+tn )
+!       CALL local_flush( 120+tn )
 
        IF ( j <= nnyh )  THEN