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

Timestamp:

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

Author:

raasch

Message:

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

File:

• palm/trunk/SOURCE/init_1d_model.f90 (modified) (3 diffs)

palm/trunk/SOURCE/init_1d_model.f90

@@ -19 +19 @@
 ! Current revisions:
 ! -----------------
-! 
+! routine local_flush replaced by FORTRAN statement
 ! 
 ! Former revisions:
@@ -830 +830 @@
 !
 !--    Write buffer contents to disc immediately
-       CALL local_flush( 15 )
+       FLUSH( 15 )
 
     ENDIF
@@ -977 +977 @@
 !
 !--    Write buffer contents to disc immediately
-       CALL local_flush( 17 )
+       FLUSH( 17 )
 
     ENDIF