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

Timestamp:

Mar 20, 2014 4:38:49 PM (9 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_ini.f90 (modified) (2 diffs)

palm/trunk/SOURCE/local_tremain_ini.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
+! REAL constants defined as wp_kind
 !
 ! Former revisions:
@@ -67 +68 @@
 #if defined( __ibm )
 
-    initial_wallclock_time = IRTC( ) * 1E-9
+    initial_wallclock_time = IRTC( ) * 1E-9_wp
 
 #elif defined( __lc )
 
     CALL SYSTEM_CLOCK( count, count_rate )
-    initial_wallclock_time = REAL( count ) / REAL( count_rate )
+    initial_wallclock_time = REAL( count, KIND=wp ) / REAL( count_rate, KIND=wp )
 
 #else