Changeset 4214 for palm/trunk/SOURCE/urban_surface_mod.f90

Timestamp:

Sep 2, 2019 3:57:02 PM (5 years ago)

Author:

suehring

Message:

Bugfix, missing initialization and clearing of soil-moisture tendency (J.Resler)

File:

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

palm/trunk/SOURCE/urban_surface_mod.f90

@@ -28 +28 @@
 ! -----------------
 ! $Id$
+! Bugfix, missing initialization and clearing of soil-moisture tendency 
+! (J.Resler)
+! 
+! 4182 2019-08-22 15:20:23Z scharf
 ! Corrected "Former revisions" section
 ! 
@@ -5380 +5384 @@
 
 !
-!--     For horizontal surfaces                                   
+!--     For horizontal surfaces.
+!--     Set tendency array for soil moisture to zero
+        IF ( surf_usm_h%ns > 0 )  THEN
+           IF ( intermediate_timestep_count == 1 )  surf_usm_h%tswc_h_m = 0.0_wp
+        ENDIF
+        
         !$OMP PARALLEL PRIVATE (m, i, j, k, kw, lambda_h_green_sat, ke, lambda_green_temp, gtend,  &
         !$OMP&                  tend, h_vg, gamma_green_temp, m_total, root_extr_green)