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

Timestamp:

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

Author:

raasch

Message:

vorlaeufige Standalone-Version fuer Linux-Cluster

File:

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

palm/trunk/SOURCE/cpu_log.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
-! 
+! Preprocessor strings for different linux clusters changed to "lc",
+! preprocessor directives for old systems removed
 !
 ! Former revisions:
@@ -34 +35 @@
     TYPE(logpoint)              ::  log_event
 
-#if defined( __lcmuk ) || defined( __lctit ) || defined( __hpmuk ) || defined( __decalpha ) || defined( __nec )
+#if defined( __lc ) || defined( __decalpha ) || defined( __nec )
     INTEGER                     ::  count, count_rate
 #elif defined( __ibm )
     INTEGER(8)                  ::  IRTC
-#elif defined( __t3eb )
-    REAL                        ::  TIMEF
 #endif
 
@@ -57 +56 @@
 !
 !-- Take current time
-#if defined( __lcmuk ) || defined( __lctit ) || defined( __hpmuk ) || defined( __decalpha ) || defined( __nec )
+#if defined( __lc ) || defined( __decalpha ) || defined( __nec )
     CALL SYSTEM_CLOCK( count, count_rate )
     mtime = REAL( count ) / REAL( count_rate )
 #elif defined( __ibm )
     mtime = IRTC( ) * 1E-9
-!#elif defined( __vpp )
-!    CALL CLOCKV ( mtimevec, mtime, 0, 2 )
-#elif defined( __t3eb ) || defined( __t3eh ) || defined( __t3ej2 ) || defined( __t3ej5 )
-#if defined( __parallel )
-    IF ( .NOT. PRESENT( barrierwait ) )  THEN
-       CALL MPI_BARRIER( comm2d, ierr )
-       CONTINUE
-    ENDIF
-#endif
-    mtime = TIMEF( )
-    mtime = mtime * 0.001
 #else
     IF ( myid == 0 )  THEN