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

palm/trunk/SOURCE/diffusivities.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! REAL constants defined as wp-kind 
 !
 ! Former revisions:
@@ -141 +141 @@
                 IF ( dvar_dz > 0.0 ) THEN
                    IF ( use_single_reference_value )  THEN
-                      l_stable = 0.76 * sqrt_e /                               &
-                                 SQRT( g / var_reference * dvar_dz ) + 1E-5
+                      l_stable = 0.76_wp * sqrt_e /                            &
+                                 SQRT( g / var_reference * dvar_dz ) + 1E-5_wp
                    ELSE
-                      l_stable = 0.76 * sqrt_e /                               &
-                                 SQRT( g / var(k,j,i) * dvar_dz ) + 1E-5
+                      l_stable = 0.76_wp * sqrt_e /                            &
+                                 SQRT( g / var(k,j,i) * dvar_dz ) + 1E-5_wp
                    ENDIF
                 ELSE
@@ -162 +162 @@
       !
       !--       Compute diffusion coefficients for momentum and heat
-                km(k,j,i) = 0.1 * l * sqrt_e
-                kh(k,j,i) = ( 1.0 + 2.0 * l / ll ) * km(k,j,i)
+                km(k,j,i) = 0.1_wp * l * sqrt_e
+                kh(k,j,i) = ( 1.0_wp + 2.0_wp * l / ll ) * km(k,j,i)
 
              ENDIF