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

palm/trunk/SOURCE/local_tremain_ini.f90

@@ -19 +19 @@
 ! Current revisions:
 ! -----------------
-! 
+! cpu measurements are done with standard FORTRAN routine on every machine
 ! 
 ! Former revisions:
@@ -63 +63 @@
     IMPLICIT NONE
 
-#if defined( __ibm )
-    INTEGER(idp)     ::  IRTC       !<
-#elif defined( __lc )
     INTEGER(idp)     ::  count      !<
     INTEGER(idp)     ::  count_rate !<
-#endif
-
 
 !
 !-- Get initial wall clock time
-#if defined( __ibm )
-
-    initial_wallclock_time = IRTC( ) * 1E-9_wp
-
-#elif defined( __lc )
-
     CALL SYSTEM_CLOCK( count, count_rate )
     initial_wallclock_time = REAL( count, KIND=wp ) / REAL( count_rate, KIND=wp )
 
-#else
-!
-!-- So far, nothing is done on these machines
-#endif
-
-
  END SUBROUTINE local_tremain_ini