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

palm/trunk/SOURCE/run_control.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-!
+! REAL constants provided with KIND-attribute
 !
 ! Former revisions:
@@ -67 +67 @@
     USE indices,                                                               &
         ONLY:  nzb
+
+    USE kinds
 
     USE pegrid
@@ -118 +120 @@
                           hom(nzb+10,1,pr_palm,0), u_max_ijk(1:3),             &
                           v_max_ijk(1:3), w_max_ijk(1:3),                      &
-                          advected_distance_x/1000.0,                          &
-                          advected_distance_y/1000.0, mgcycles
+                          advected_distance_x/1000.0_wp,                       &
+                          advected_distance_y/1000.0_wp, mgcycles
 !
 !--    Write buffer contents to disc immediately