Changeset 1504

Timestamp:

Dec 4, 2014 9:23:49 AM (10 years ago)

Author:

maronga

Message:

bugfix in check_parameters.f90

File:

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

palm/trunk/SOURCE/check_parameters.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! Bugfix: check for large_scale forcing got lost.
 ! 
 ! Former revisions:
@@ -1669 +1669 @@
         constant_heatflux = .TRUE.
         IF ( TRIM( initializing_actions ) /= 'read_restart_data' .AND.         &
-             .NOT. land_surface )  THEN
+             large_scale_forcing .AND. .NOT. land_surface )  THEN
            surface_heatflux = shf_surf(1)
         ENDIF