Changeset 14200 for NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/DYN/dynvor.F90

Timestamp:

2020-12-17T15:36:44+01:00 (4 years ago)

Author:

mcastril

Message:

Merging r14117 through r14199 into dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final

File:

• NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/DYN/dynvor.F90 (modified) (4 diffs)

NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/DYN/dynvor.F90

@@ -406 +406 @@
          END SELECT
          !
-#if defined key_qco
+#if defined key_qco   ||   defined key_linssh
          DO_2D( 1, 0, 1, 0 )                 !==  potential vorticity  ==!   (key_qco)
             zwz(ji,jj) = zwz(ji,jj) / e3f_vor(ji,jj,jk)
@@ -533 +533 @@
          !
          !
-#if defined key_qco
+#if defined key_qco   ||   defined key_linssh
          DO_2D( 1, 0, 1, 0 )                 !==  potential vorticity  ==!   (key_qco)
             zwz(ji,jj) = zwz(ji,jj) / e3f_vor(ji,jj,jk)
@@ -624 +624 @@
          !                                             ! ===============
          !
-#if defined key_qco
+#if defined key_qco   ||   defined key_linssh
          DO_2D( 1, 0, 1, 0 )                 ! == reciprocal of e3 at F-point (key_qco)
             z1_e3f(ji,jj) = 1._wp / e3f_vor(ji,jj,jk)
@@ -952 +952 @@
          !
       END SELECT
-#if defined key_qco
-      SELECT CASE( nvor_scheme )    ! qco case: pre-computed a specific e3f_0 for some vorticity schemes
+#if defined key_qco   ||   defined key_linssh
+      SELECT CASE( nvor_scheme )    ! qco or linssh cases : pre-computed a specific e3f_0 for some vorticity schemes
       CASE( np_ENS , np_ENE , np_EEN , np_MIX )
          !