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

Timestamp:

Jul 29, 2016 12:08:31 PM (8 years ago)

Author:

maronga

Message:

bugfix in land surface 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: initial values of pave_surface and water_surface were not set.
 ! 
 ! Former revisions:
@@ -1997 +1997 @@
        ALLOCATE ( veg_type_2d(nysg:nyng,nxlg:nxrg) )
        ALLOCATE ( water_surface(nysg:nyng,nxlg:nxrg) )
+
+       water_surface = .FALSE.
+       pave_surface  = .FALSE.
 
 #if ! defined( __nopointer )