Changeset 1342 for palm/trunk/SOURCE/time_to_string.f90

Timestamp:

Mar 26, 2014 5:04:47 PM (10 years ago)

Author:

kanani

Message:

REAL constants defined as wp-kind

File:

• palm/trunk/SOURCE/time_to_string.f90 (modified) (2 diffs)

palm/trunk/SOURCE/time_to_string.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! REAL constants defined as wp-kind
 ! 
 ! Former revisions:
@@ -61 +61 @@
 !
 !-- Calculate the number of hours, minutes, and seconds
-    hours     = INT( time / 3600.0 )
-    rest_time = time - hours * 3600
-    minutes   = INT( rest_time / 60.0 )
+    hours     = INT( time / 3600.0_wp )
+    rest_time = time - hours * 3600_wp
+    minutes   = INT( rest_time / 60.0_wp )
     seconds   = rest_time - minutes * 60