Changeset 7066

Timestamp:

2016-10-21T16:33:46+02:00 (7 years ago)

Author:

till

Message:

in NEMO/OPA_SRC/ZDF/zdftke.F90, set zmax_scale to 2./3.

File:

• branches/UKMO/dev_r5518_nn_etau_revision/NEMOGCM/NEMO/OPA_SRC/ZDF/zdftke.F90 (modified) (1 diff)

branches/UKMO/dev_r5518_nn_etau_revision/NEMOGCM/NEMO/OPA_SRC/ZDF/zdftke.F90

@@ -831 +831 @@
             htau(:,:) = MAX(  0.5_wp, MIN( 15._wp, 45._wp* ABS( SIN( rpi/180._wp * gphit(:,:) ) ) )   )
          CASE( 4 )                                 ! F(latitude) : single sine curve per hemisphere
-            zmax_scale = 1._wp                     ! Amount to scale the maximum value by. Set it to 2./3. later
+            zmax_scale = 2._wp/3._wp               ! Amount to scale the maximum value by. Originally 1._wp
             zmin = 0.5_wp                          ! The minimum value
             zmax_h_n = 10._wp * zmax_scale         ! The hard maximum value (cutoff imposed on sine curve)