Changeset 7064 for branches/UKMO/dev_r5518_nn_etau_revision/NEMOGCM/NEMO/OPA_SRC/ZDF/zdftke.F90

Timestamp:

2016-10-21T15:39:03+02:00 (8 years ago)

Author:

till

Message:

test commit, no relevant changes to code

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
+            zmax_scale = 1._wp                     ! Amount to scale the maximum value by. Set it to 2./3. later
             zmin = 0.5_wp                          ! The minimum value
             zmax_h_n = 10._wp * zmax_scale         ! The hard maximum value (cutoff imposed on sine curve)