Changeset 15540 for NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/OCE/OBS/obs_inter_sup.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_inter_sup.F90 (modified) (4 diffs)

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

@@ -64 +64 @@
       INTEGER, OPTIONAL, DIMENSION(kptsi,kptsj,kobs), INTENT(IN) :: &
          & kproc            ! Precomputed processor for each i,j,iobs points
-      REAL(KIND=wp), DIMENSION(kpi,kpj,kpk), INTENT(IN) ::&
+      REAL(KIND=dp), DIMENSION(kpi,kpj,kpk), INTENT(IN) ::&
          & pval             ! Local 3D array to extract data from
-      REAL(KIND=wp), DIMENSION(kptsi,kptsj,kpk,kobs), INTENT(OUT) ::&
+      REAL(KIND=dp), DIMENSION(kptsi,kptsj,kpk,kobs), INTENT(OUT) ::&
          & pgval            ! Stencil at each point
       !! * Local declarations
@@ -119 +119 @@
       INTEGER, OPTIONAL, DIMENSION(kptsi,kptsj,kobs), INTENT(IN) :: &
          & kproc            ! Precomputed processor for each i,j,iobs points
-      REAL(KIND=wp), DIMENSION(kpi,kpj), INTENT(IN) ::&
+      REAL(KIND=dp), DIMENSION(kpi,kpj), INTENT(IN) ::&
          & pval             ! Local 3D array to extra data from
-      REAL(KIND=wp), DIMENSION(kptsi,kptsj,kobs), INTENT(OUT) ::&
+      REAL(KIND=dp), DIMENSION(kptsi,kptsj,kobs), INTENT(OUT) ::&
          & pgval            ! Stencil at each point
       !! * Local declarations
-      REAL(KIND=wp), DIMENSION(jpi,jpj,1) ::   zval
-      REAL(KIND=wp), DIMENSION(kptsi,kptsj,1,kobs) ::&
-         & zgval 
+      REAL(KIND=dp), DIMENSION(jpi,jpj,1) ::   zval
+      REAL(KIND=dp), DIMENSION(kptsi,kptsj,1,kobs) ::  zgval
 
       ! Set up local "3D" buffer
@@ -179 +178 @@
       INTEGER, OPTIONAL, DIMENSION(kptsi,kptsj,kobs), INTENT(IN) :: &
          & kproc            ! Precomputed processor for each i,j,iobs points
-      REAL(KIND=wp), DIMENSION(kpi,kpj,kpk), INTENT(IN) ::&
+      REAL(KIND=dp), DIMENSION(kpi,kpj,kpk), INTENT(IN) ::&
          & pval             ! Local 3D array to extract data from
-      REAL(KIND=wp), DIMENSION(kptsi,kptsj,kpk,kobs), INTENT(OUT) ::&
+      REAL(KIND=dp), DIMENSION(kptsi,kptsj,kpk,kobs), INTENT(OUT) ::&
          & pgval            ! Stencil at each point
       !! * Local declarations
-      REAL(KIND=wp), DIMENSION(:,:), ALLOCATABLE :: &
+      REAL(KIND=dp), DIMENSION(:,:), ALLOCATABLE :: &
          & zsend, &
          & zrecv
@@ -348 +347 @@
          & kgrdi, &         ! i,j indicies for each stencil
          & kgrdj
-      REAL(KIND=wp), DIMENSION(kpi,kpj,kpk), INTENT(IN) ::&
+      REAL(KIND=dp), DIMENSION(kpi,kpj,kpk), INTENT(IN) ::&
          & pval             ! Local 3D array to extract data from
-      REAL(KIND=wp), DIMENSION(kptsi,kptsj,kpk,kobs), INTENT(OUT) ::&
+      REAL(KIND=dp), DIMENSION(kptsi,kptsj,kpk,kobs), INTENT(OUT) ::&
          & pgval            ! Stencil at each point
       !! * Local declarations