Changeset 1513

Timestamp:

Dec 19, 2014 9:14:10 AM (9 years ago)

Author:

heinze

Message:

bugfix: provide REAL constants with _wp in call of MAX and MIN

File:

• palm/trunk/SOURCE/land_surface_model.f90 (modified) (4 diffs)

palm/trunk/SOURCE/land_surface_model.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! Bugfix: REAL constants provided with KIND-attribute in call of 
+! intrinsic function MAX and MIN
 ! 
 ! Former revisions:
@@ -808 +809 @@
 
              f2 = ( m_soil(0,j,i) - m_min ) / ( m_fc(j,i) - m_min )
-             f2 = MAX(f2,1.0E-20)
+             f2 = MAX(f2,1.0E-20_wp)
 
              r_soil(j,i) = r_soil_min(j,i) / f2
@@ -815 +816 @@
 !--          Calculate fraction of liquid water reservoir
              m_liq_max = m_max_depth * LAI(j,i)
-             c_liq(j,i) = MIN(1.0, m_liq(j,i)/m_liq_max)
+             c_liq(j,i) = MIN(1.0_wp, m_liq(j,i)/m_liq_max)
 
              q_s = 0.622_wp * e_s / surface_pressure
@@ -1068 +1069 @@
 !--             Calculate soil heat conductivity at the center of the soil 
 !--             layers
-                Ke = 1.0 + LOG10(MAX(0.1,m_soil(k,j,i) / m_sat(j,i)))
+                Ke = 1.0 + LOG10(MAX(0.1_wp,m_soil(k,j,i) / m_sat(j,i)))
                 lambda_temp(k) = Ke * (lambda_h_sat(j,i) + lambda_h_dry) +     &
                                  lambda_h_dry