Changeset 2476 for palm

Timestamp:

Sep 18, 2017 7:54:32 AM (7 years ago)

Author:

maronga

Message:

bugfix for last commit

File:

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

palm/trunk/SOURCE/land_surface_model_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Bugfix for last commit
+! 
+! 2475 2017-09-18 07:42:36Z maronga
 ! Bugfix: setting of vegetation_pars for bare soil corrected.
 ! 
@@ -1080 +1083 @@
                /= 0.0_wp )  THEN
                message_string = 'vegetation_type = 1 (bare soil)'//            &
-                              ' requires vegetation_coverage = 0'//            &
+                              ' requires vegetation_coverage = 0'
              CALL message( 'check_parameters', 'PA0471', 1, 2, 0, 6, 0 )
           ENDIF
+       ENDIF
   
     ENDIF