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/run_control.f90

    r4 r82  
    44! Actual revisions:
    55! -----------------
    6 !
     6! Preprocessor strings for different linux clusters changed to "lc",
     7! routine local_flush is used for buffer flushing
    78!
    89! Former revisions:
     
    8990                          advected_distance_x/1000.0,                          &
    9091                          advected_distance_y/1000.0, mgcycles
    91 #if defined( __ibm )
    9292!
    9393!--    Write buffer contents to disc immediately
    94        CALL FLUSH_( 15 )
    95 #elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
    96        CALL FLUSH( 15 )
    97 #endif
     94       CALL local_flush( 15 )
     95
    9896    ENDIF
    9997!
Note: See TracChangeset for help on using the changeset viewer.