Changeset 1966 for palm/trunk/SOURCE/land_surface_model_mod.f90

Timestamp:

Jul 18, 2016 11:54:18 AM (8 years ago)

Author:

maronga

Message:

bugfix in soil model

File:

• palm/trunk/SOURCE/land_surface_model_mod.f90 (modified) (2 diffs)

palm/trunk/SOURCE/land_surface_model_mod.f90

@@ -19 +19 @@
 ! Current revisions:
 ! -----------------
-! 
+! Bugfix: calculation of m_total in soil model was not set to zero at model start
 ! 
 ! Former revisions:
@@ -2277 +2277 @@
 !--                positive transpiration, so that there is no need for an 
 !--                additional check.
+                   m_total = 0.0_wp
                    DO  k = nzb_soil, nzt_soil
                        IF ( m_soil(k,j,i) > m_wilt(j,i) )  THEN