Changeset 7066
- Timestamp:
- 2016-10-21T16:33:46+02:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_nn_etau_revision/NEMOGCM/NEMO/OPA_SRC/ZDF/zdftke.F90
r7064 r7066 831 831 htau(:,:) = MAX( 0.5_wp, MIN( 15._wp, 45._wp* ABS( SIN( rpi/180._wp * gphit(:,:) ) ) ) ) 832 832 CASE( 4 ) ! F(latitude) : single sine curve per hemisphere 833 zmax_scale = 1._wp ! Amount to scale the maximum value by. Set it to 2./3. later833 zmax_scale = 2._wp/3._wp ! Amount to scale the maximum value by. Originally 1._wp 834 834 zmin = 0.5_wp ! The minimum value 835 835 zmax_h_n = 10._wp * zmax_scale ! The hard maximum value (cutoff imposed on sine curve)
Note: See TracChangeset
for help on using the changeset viewer.