Changeset 1322 for palm/trunk/SOURCE/local_tremain.f90

Timestamp:

Mar 20, 2014 4:38:49 PM (10 years ago)

Author:

raasch

Message:

REAL functions and a lot of REAL constants provided with KIND-attribute,
some small bugfixes

File:

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

palm/trunk/SOURCE/local_tremain.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
+! REAL constants defined as wp_kind
 !
 ! Former revisions:
@@ -69 +70 @@
 #if defined( __ibm )
 
-    actual_wallclock_time = IRTC( ) * 1E-9
+    actual_wallclock_time = IRTC( ) * 1E-9_wp
     remaining_time = maximum_cpu_time_allowed - &
                      ( actual_wallclock_time - initial_wallclock_time )
@@ -76 +77 @@
 
     CALL SYSTEM_CLOCK( count, count_rate )
-    actual_wallclock_time = REAL( count ) / REAL( count_rate )
+    actual_wallclock_time = REAL( count, KIND=wp ) / REAL( count_rate, KIND=wp )
     remaining_time = maximum_cpu_time_allowed - &
                      ( actual_wallclock_time - initial_wallclock_time )