Changeset 2508 for palm/trunk/SOURCE/check_parameters.f90

Timestamp:

Oct 2, 2017 8:57:09 AM (7 years ago)

Author:

suehring

Message:

Bugfixes in SGS-TKE buoyancy production; revised initialization of vertical-gradient levels in case of ocean runs

File:

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

palm/trunk/SOURCE/check_parameters.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Bugfix, change default value of vertical_gradient level in order to consider 
+! also ocean runs 
+! 
+! 2422 2017-09-08 08:25:41Z raasch
 ! error message in case of missing "restart" file activation string
 ! 
@@ -4031 +4035 @@
 !
 !--    In case of no given gradients, choose zero gradient conditions
-       IF ( vertical_gradient_level(1) == -1.0_wp )  THEN
+       IF ( vertical_gradient_level(1) == -999999.9_wp )  THEN
           vertical_gradient_level(1) = 0.0_wp
        ENDIF