Changeset 15649

Timestamp:

2022-01-17T16:52:19+01:00 (2 years ago)

Author:

dancopsey

Message:

Move location of where the scaling is applied to within the brackets. This gives a smoother profile with the largest reductions in mid latitudes.

File:

• NEMO/branches/UKMO/NEMO_4.0.4_GO6_mixing/src/OCE/ZDF/zdftke.F90 (modified) (1 diff)

NEMO/branches/UKMO/NEMO_4.0.4_GO6_mixing/src/OCE/ZDF/zdftke.F90

@@ -827 +827 @@
                DO ji = fs_2, fs_jpim1   ! vector opt.
                   IF( gphit(ji,jj) <= 0._wp ) THEN
-                     htau(ji,jj) = MAX(  0.5_wp, rn_htau_scaling*MIN( 30._wp, 45._wp* ABS( SIN( rpi/180._wp * gphit(ji,jj) ) ) )   )
+                     htau(ji,jj) = MAX(  0.5_wp, MIN( 30._wp, 45._wp* rn_htau_scaling*ABS( SIN( rpi/180._wp * gphit(ji,jj) ) ) )   )
                   ELSE
-                     htau(ji,jj) = MAX(  0.5_wp, rn_htau_scaling*MIN( 10._wp, 45._wp* ABS( SIN( rpi/180._wp * gphit(ji,jj) ) ) )   )
+                     htau(ji,jj) = MAX(  0.5_wp, MIN( 10._wp, 45._wp* rn_htau_scaling*ABS( SIN( rpi/180._wp * gphit(ji,jj) ) ) )   )
                   ENDIF
                END DO