Changeset 13158

Timestamp:

2020-06-26T10:05:17+02:00 (4 years ago)

Author:

jwhile

Message:

Update

File:

• branches/UKMO/dev_1d_bugfixes/NEMOGCM/NEMO/OPA_SRC/STO/stopack.F90 (modified) (4 diffs)

branches/UKMO/dev_1d_bugfixes/NEMOGCM/NEMO/OPA_SRC/STO/stopack.F90

@@ -671 +671 @@
        gauss = gauss * rn_sd
        coeff = coeff * ( 1._wp + gauss )
-#ifdef key_traldf_c3d || key_traldf_c2d || key_traldf_c1d
+#if defined key_traldf_c3d || key_traldf_c2d || key_traldf_c1d
        WHERE( coeff > 1._wp ) coeff = 1._wp
        WHERE( coeff < 0._wp ) coeff = 0._wp
@@ -683 +683 @@
        gauss = gauss * zsd + xme
        coeff = exp(gauss) * coeff
-#ifdef key_traldf_c3d || key_traldf_c2d || key_traldf_c1d
+#if defined key_traldf_c3d || key_traldf_c2d || key_traldf_c1d
        WHERE( coeff > 1._wp ) coeff = 1._wp
        WHERE( coeff < 0._wp ) coeff = 0._wp
@@ -695 +695 @@
        gauss = gauss * zsd + xme
        coeff = exp(gauss) * coeff
-#ifdef key_traldf_c3d || key_traldf_c2d || key_traldf_c1d
+#if defined key_traldf_c3d || key_traldf_c2d || key_traldf_c1d
        WHERE( coeff > 1._wp ) coeff = 1._wp
        WHERE( coeff < 0._wp ) coeff = 0._wp
@@ -807 +807 @@
        CALL ctl_stop('Unrecognized SPP parameter: add it or turn off diagnostics')
    END SELECT
-#ifdef key_traldf_c3d || key_traldf_c2d || key_traldf_c1d
+#if defined key_traldf_c3d || key_traldf_c2d || key_traldf_c1d
    mi = MINVAL(rcf)
    ma = MAXVAL(rcf)