Changeset 82 for palm/trunk/SOURCE/local_tremain_ini.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/local_tremain_ini.f90 (modified) (3 diffs)

palm/trunk/SOURCE/local_tremain_ini.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
-! 
+! Cpp-directive lctit renamed lc
 !
 ! Former revisions:
@@ -33 +33 @@
     INTEGER            ::  idum
     INTEGER(8)         ::  IRTC
-#elif defined( __lctit )
+#elif defined( __lc )
     CHARACTER (LEN=10) ::  value_chr
     INTEGER            ::  idum
@@ -46 +46 @@
     initial_wallclock_time = IRTC( ) * 1E-9
 
-#elif defined( __lctit )
+#elif defined( __lc )
 
     CALL SYSTEM_CLOCK( count, count_rate )