Changeset 1346 for palm/trunk/SOURCE/init_1d_model.f90

Timestamp:

Mar 27, 2014 1:18:20 PM (10 years ago)

Author:

heinze

Message:

Bugfix: REAL constants provided with KIND-attribute especially in call of intrinsic function like MAX, MIN, SIGN

File:

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

palm/trunk/SOURCE/init_1d_model.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-!
+! Bugfix: REAL constants provided with KIND-attribute especially in call of 
+! intrinsic function like MAX, MIN, SIGN
 !
 ! Former revisions:
@@ -675 +676 @@
              DO  k = damp_level_ind_1d+1, nzt+1
                 km1d(k) = 1.1 * km1d(k-1)
-                km1d(k) = MIN( km1d(k), 10.0 )
+                km1d(k) = MIN( km1d(k), 10.0_wp )
              ENDDO
 
@@ -784 +785 @@
        uv_total = SQRT( u1d(nzb+1)**2 + v1d(nzb+1)**2 )
        IF ( ABS( v1d(nzb+1) ) .LT. 1.0E-5 )  THEN
-          alpha = ACOS( SIGN( 1.0 , u1d(nzb+1) ) )
+          alpha = ACOS( SIGN( 1.0_wp , u1d(nzb+1) ) )
        ELSE
           alpha = ACOS( u1d(nzb+1) / uv_total )