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

palm/trunk/SOURCE/init_cloud_physics.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! REAL constants defined as wp-kind
 !
 ! Former revisions:
@@ -96 +96 @@
     l_d_rv = l_v / r_v
 
-    schmidt_p_1d3 = schmidt**( 1.0 / 3.0 )
+    schmidt_p_1d3 = schmidt**( 1.0_wp / 3.0_wp )
 
     pirho_l  = pi * rho_l / 6.0
@@ -125 +125 @@
        ENDIF
        hyp(k)    = surface_pressure * 100.0 * &
-                   ( (t_surface - g/cp * zu(k)) / t_surface )**(1.0/0.286)
+                   ( (t_surface - g/cp * zu(k)) / t_surface )**(1.0_wp/0.286_wp)
        pt_d_t(k) = ( 100000.0 / hyp(k) )**0.286
        t_d_pt(k) = 1.0 / pt_d_t(k)