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

Timestamp:

Apr 16, 2007 3:40:52 PM (17 years ago)

Author:

raasch

Message:

vorlaeufige Standalone-Version fuer Linux-Cluster

File:

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

palm/trunk/SOURCE/init_1d_model.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
-! 
+! Preprocessor strings for different linux clusters changed to "lc",
+! routine local_flush is used for buffer flushing
 !
 ! Former revisions:
@@ -770 +771 @@
        WRITE ( 15, 101 )  current_timestep_number_1d, simulated_time_chr, &
                           dt_1d, umax, vmax, us1d, alpha, energy
-#if defined( __ibm )
 !
 !--    Write buffer contents to disc immediately
-       CALL FLUSH_( 15 )
-#elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
-       CALL FLUSH( 15 )
-#endif
+       CALL local_flush( 15 )
 
     ENDIF
@@ -955 +952 @@
        WRITE ( 17, 101 )
 
-#if defined( __ibm )
 !
 !--    Write buffer contents to disc immediately
-       CALL FLUSH_( 17 )
-#elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
-       CALL FLUSH( 17 )
-#endif
+       CALL local_flush( 17 )
 
     ENDIF