Ignore:
Timestamp:
Apr 5, 2016 7:44:00 PM (5 years ago)
Author:
raasch
Message:

preprocessor directives using machine dependent flags (lc, ibm, etc.) mostly removed from the code

File:
1 edited

Legend:

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

    r1784 r1808  
    1919! Current revisions:
    2020! -----------------
    21 !
     21! routine local_flush replaced by FORTRAN statement
    2222!
    2323! Former revisions:
     
    278278!-- TEST OUTPUT (TO BE REMOVED)
    279279    WRITE(9,*) '*** coupling_mode = "', TRIM( coupling_mode ), '"'
    280     CALL LOCAL_FLUSH( 9 )
     280    FLUSH( 9 )
    281281    IF ( TRIM( coupling_mode ) /= 'uncoupled' )  THEN
    282282       PRINT*, '*** PE', myid, ' Global target PE:', target_id, &
Note: See TracChangeset for help on using the changeset viewer.