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

Timestamp:

Mar 20, 2014 4:38:49 PM (10 years ago)

Author:

raasch

Message:

REAL functions and a lot of REAL constants provided with KIND-attribute,
some small bugfixes

File:

• palm/trunk/SOURCE/init_slope.f90 (modified) (3 diffs)

palm/trunk/SOURCE/init_slope.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
+! REAL constants defined as wp_kind
 !
 ! Former revisions:
@@ -109 +110 @@
 !
 !--       Compute temperatures in the rotated coordinate system
-          alpha    = alpha + alpha_surface / 180.0 * pi
+          alpha    = alpha + alpha_surface / 180.0_wp * pi
           pt_value = pt_surface + radius * SIN( alpha ) * &
-                                  pt_vertical_gradient(1) / 100.0
+                                  pt_vertical_gradient(1) / 100.0_wp
           pt_slope_ref(k,i) = pt_value
        ENDDO                
@@ -120 +121 @@
 !-- used for the cyclic boundary in x-direction
     pt_slope_offset = (nx+1) * dx * sin_alpha_surface * &
-                      pt_vertical_gradient(1) / 100.0
+                      pt_vertical_gradient(1) / 100.0_wp