Changeset 1353 for palm/trunk/SOURCE/check_for_restart.f90

Timestamp:

Apr 8, 2014 3:21:23 PM (10 years ago)

Author:

heinze

Message:

REAL constants provided with KIND-attribute

File:

• palm/trunk/SOURCE/check_for_restart.f90 (modified) (5 diffs)

palm/trunk/SOURCE/check_for_restart.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-!
+! REAL constants provided with KIND-attribute
 !
 ! Former revisions:
@@ -125 +125 @@
 !
 !-- Set the stop flag also, if restart is forced by user
-    IF ( time_restart /= 9999999.9  .AND.                                      &
+    IF ( time_restart /= 9999999.9_wp  .AND.                                      &
          time_restart < time_since_reference_point )  THEN
 
@@ -136 +136 @@
 !--       Increment restart time, if forced by user, otherwise set restart
 !--       time to default (no user restart)
-          IF ( dt_restart /= 9999999.9 )  THEN
+          IF ( dt_restart /= 9999999.9_wp )  THEN
              time_restart = time_restart + dt_restart
           ELSE
-             time_restart = 9999999.9
+             time_restart = 9999999.9_wp
           ENDIF
 
@@ -156 +156 @@
                .AND.  terminate_coupled_remote == 0 )  THEN
 
-             IF ( dt_restart /= 9999999.9 )  THEN
+             IF ( dt_restart /= 9999999.9_wp )  THEN
                 terminate_coupled = 4
              ELSE
@@ -174 +174 @@
           ENDIF
        ELSE
-          time_restart = 9999999.9
+          time_restart = 9999999.9_wp
        ENDIF
     ENDIF