Changeset 15540 for NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/OCE/OBS/obs_mpp.F90

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/obs_mpp.F90 (modified) (4 diffs)

NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/OCE/OBS/obs_mpp.F90

@@ -265 +265 @@
       !! References : http://www.mpi-forum.org
       !!----------------------------------------------------------------------
-      REAL(KIND=wp), DIMENSION(jpiglo,jpjglo), INTENT(inout) ::   pval
-      !
-      INTEGER :: ierr
-      !
-#if ! defined key_mpi_off
-      !
-INCLUDE 'mpif.h'
-      REAL(KIND=wp), DIMENSION(:,:), ALLOCATABLE ::   zcp
+      REAL(KIND=dp), DIMENSION(jpiglo,jpjglo), INTENT(inout) ::   pval
+      !
+      INTEGER :: ierr
+      !
+#if ! defined key_mpi_off
+      !
+      REAL(KIND=dp), DIMENSION(:,:), ALLOCATABLE ::   zcp
+INCLUDE 'mpif.h'
       !!----------------------------------------------------------------------
 
@@ -361 +361 @@
 #if ! defined key_mpi_off
       !
-INCLUDE 'mpif.h'
       INTEGER, DIMENSION(jpnij) ::   irdsp, isdsp
+INCLUDE 'mpif.h'
       !-----------------------------------------------------------------------
       ! Compute displacements
@@ -405 +405 @@
       INTEGER                    , INTENT(in   ) :: knoout
       INTEGER , DIMENSION(jpnij) , INTENT(in   ) ::   kinv, koutv
-      REAL(wp), DIMENSION(knoin) , INTENT(in   ) ::   pvalsin
-      REAL(wp), DIMENSION(knoout), INTENT(  out) ::   pvalsout
+      REAL(dp), DIMENSION(knoin) , INTENT(in   ) ::   pvalsin
+      REAL(dp), DIMENSION(knoout), INTENT(  out) ::   pvalsout
       !!
       INTEGER :: ierr
@@ -413 +413 @@
 #if ! defined key_mpi_off
       !
-INCLUDE 'mpif.h'
       INTEGER, DIMENSION(jpnij) ::   irdsp, isdsp
+INCLUDE 'mpif.h'
       !!----------------------------------------------------------------------
       !