Changeset 1353 for palm/trunk/SOURCE/prognostic_equations.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/prognostic_equations.f90 (modified) (6 diffs)

palm/trunk/SOURCE/prognostic_equations.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-! 
+! REAL constants provided with KIND-attribute
 ! 
 ! Former revisions:
@@ -1038 +1038 @@
     CALL cpu_log( log_point(7), 'w-equation', 'start' )
 
-    tend = 0.0
+    tend = 0.0_wp
     IF ( timestep_scheme(1:5) == 'runge' )  THEN
        IF ( ws_scheme_mom )  THEN
@@ -1121 +1121 @@
 !
 !--          Bott-Chlond scheme always uses Euler time step. Thus:
-             sbt = 1.0
+             sbt = 1.0_wp
           ENDIF
           tend = 0.0_wp
@@ -1230 +1230 @@
 !
 !--          Bott-Chlond scheme always uses Euler time step. Thus:
-             sbt = 1.0
+             sbt = 1.0_wp
           ENDIF
           tend = 0.0_wp
@@ -1240 +1240 @@
 !--    sa-tendency terms with no communication
        IF ( scalar_advec /= 'bc-scheme' )  THEN
-          tend = 0.0
+          tend = 0.0_wp
           IF ( timestep_scheme(1:5) == 'runge' )  THEN
              IF ( ws_scheme_sca )  THEN
@@ -1755 +1755 @@
 !
 !--          Bott-Chlond scheme always uses Euler time step. Thus:
-             sbt = 1.0
+             sbt = 1.0_wp
           ENDIF
           tend = 0.0_wp