Changeset 1808 for palm/trunk/SOURCE/header.f90

Timestamp:

Apr 5, 2016 7:44:00 PM (8 years ago)

Author:

raasch

Message:

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

File:

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

palm/trunk/SOURCE/header.f90

@@ -19 +19 @@
 ! Current revisions:
 ! -----------------
-!
+! routine local_flush replaced by FORTRAN statement
 !
 ! Former revisions:
@@ -1976 +1976 @@
 !
 !-- Write buffer contents to disc immediately
-    CALL local_flush( io )
+    FLUSH( io )
 
 !