Changeset 2508 for palm/trunk/SOURCE/modules.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/modules.f90 (modified) (2 diffs)

palm/trunk/SOURCE/modules.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Change default value for pt/q/s/sa_vertical_gradient_level
+! 
+! 2499 2017-09-22 16:47:58Z kanani
 ! Default changed to fft_method = 'temperton-algorithm'
 ! 
@@ -1410 +1413 @@
     REAL(wp) ::  mask_scale(3)                                     !< collective array for mask_scale_x/y/z
     REAL(wp) ::  pt_vertical_gradient(10) = 0.0_wp                 !< namelist parameter
-    REAL(wp) ::  pt_vertical_gradient_level(10) = -1.0_wp          !< namelist parameter
+    REAL(wp) ::  pt_vertical_gradient_level(10) = -999999.9_wp   !< namelist parameter
     REAL(wp) ::  q_vertical_gradient(10) = 0.0_wp                  !< namelist parameter
-    REAL(wp) ::  q_vertical_gradient_level(10) = -1.0_wp           !< namelist parameter
+    REAL(wp) ::  q_vertical_gradient_level(10) = -999999.9_wp    !< namelist parameter
     REAL(wp) ::  s_vertical_gradient(10) = 0.0_wp                  !< namelist parameter
-    REAL(wp) ::  s_vertical_gradient_level(10) = -1.0_wp           !< namelist parameter
+    REAL(wp) ::  s_vertical_gradient_level(10) = -999999.9_wp    !< namelist parameter
     REAL(wp) ::  sa_vertical_gradient(10) = 0.0_wp                 !< namelist parameter
-    REAL(wp) ::  sa_vertical_gradient_level(10) = -1.0_wp          !< namelist parameter
+    REAL(wp) ::  sa_vertical_gradient_level(10) = -999999.9_wp   !< namelist parameter
     REAL(wp) ::  skip_time_domask(max_masks) = 9999999.9_wp        !< namelist parameter
     REAL(wp) ::  threshold(20) = 0.0_wp                            !< namelist parameter