Changeset 15540 for NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/OCE/OBS/maxdist.h90

Timestamp:

2021-11-26T12:27:56+01:00 (3 years ago)

Author:

sparonuz

Message:

Mixed precision version, tested up to 30 years on ORCA2.

File:

• NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/OCE/OBS/maxdist.h90 (modified) (2 diffs)

NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/OCE/OBS/maxdist.h90

@@ -5 +5 @@
    !!----------------------------------------------------------------------
 
-   REAL(wp) FUNCTION maxdist( pxv, pyv )
+   REAL(dp) FUNCTION maxdist( pxv, pyv )
       !!----------------------------------------------------------------------
       !!                    ***  FUNCTION maxdist ***
@@ -27 +27 @@
 
       !! * Local declarations
-      REAL(KIND=wp), DIMENSION(4) :: &
-          &  zxv, &
-          &  zyv, &
-          &  za,  &
-          &  zb,  &
-          &  zc
-      REAL(KIND=wp) :: zdist
+      REAL(KIND=dp), DIMENSION(4) ::  zxv, zyv, za, zb, zc
+
+
+
+
+
+
+      REAL(KIND=dp) :: zdist
       
       INTEGER :: ji