Ignore:
Timestamp:
Apr 16, 2007 3:40:52 PM (14 years ago)
Author:
raasch
Message:

vorlaeufige Standalone-Version fuer Linux-Cluster

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/poisfft.f90

    r77 r82  
    13451345!       tn = omp_get_thread_num()
    13461346!       WRITE( 120+tn, * ) '+++ id=',myid,' nx=',nx,' thread=', omp_get_thread_num()
    1347 !       CALL FLUSH_( 120+tn )
     1347!       CALL local_flush( 120+tn )
    13481348!CDIR NOLOOPCHG
    13491349       DO  k = 0, nz-1
     
    13541354       ENDDO
    13551355!       WRITE( 120+tn, * ) '+++ id=',myid,' end of first tridia loop   thread=', omp_get_thread_num()
    1356 !       CALL FLUSH_( 120+tn )
     1356!       CALL local_flush( 120+tn )
    13571357
    13581358       IF ( j <= nnyh )  THEN
Note: See TracChangeset for help on using the changeset viewer.