Changeset 12960 for NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/tests/VORTEX/MY_SRC/domvvl.F90

Timestamp:

2020-05-22T09:05:34+02:00 (4 years ago)

Author:

smasson

Message:

Extra_Halo: additional bugfixes and developments, see #2366

File:

• NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/tests/VORTEX/MY_SRC/domvvl.F90 (modified) (1 diff)

NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/tests/VORTEX/MY_SRC/domvvl.F90

@@ -450 +450 @@
             ELSE
                ijk_max = MAXLOC( ze3t(:,:,:) )
-               ijk_max(1) = mig0(ijk_max(1))
-               ijk_max(2) = mjg0(ijk_max(2))
+               ijk_max(1) = mig0_oldcmp(ijk_max(1))
+               ijk_max(2) = mjg0_oldcmp(ijk_max(2))
                ijk_min = MINLOC( ze3t(:,:,:) )
-               ijk_min(1) = mig0(ijk_min(1))
-               ijk_min(2) = mjg0(ijk_min(2))
+               ijk_min(1) = mig0_oldcmp(ijk_min(1))
+               ijk_min(2) = mjg0_oldcmp(ijk_min(2))
             ENDIF
             IF (lwp) THEN