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

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

@@ -34 +34 @@
       INTEGER, INTENT(IN) :: kmyproc            ! Processor number for MPP
       INTEGER, INTENT(IN) :: ktotproc           ! Total number of processors
-      REAL(KIND=wp), DIMENSION(kpi,kpj), INTENT(IN) :: &
+      REAL(KIND=dp), DIMENSION(kpi,kpj), INTENT(IN) :: &
          & pglam,   &               ! Grid point longitude
          & pgphi,   &               ! Grid point latitude
          & pmask                    ! Grid point mask
       INTEGER,INTENT(IN) :: kobs                ! Size of the observation arrays
-      REAL(KIND=wp), DIMENSION(kobs), INTENT(IN) :: &
+      REAL(KIND=dp), DIMENSION(kobs), INTENT(IN) :: &
          & plam, &                  ! Longitude of obsrvations 
          & pphi                     ! Latitude of observations
@@ -48 +48 @@
   
       !! * Local declarations
-      REAL(wp), DIMENSION(:), ALLOCATABLE :: &
-         & zplam, zpphi
-      REAL(wp) :: zlammax
-      REAL(wp) :: zlam
+      REAL(dp), DIMENSION(:), ALLOCATABLE ::  zplam, zpphi
+      REAL(dp) :: zlammax
+      REAL(dp) :: zlam
       INTEGER :: ji
       INTEGER :: jj
@@ -60 +59 @@
       INTEGER :: joffset
       INTEGER :: jostride
-      REAL(KIND=wp), DIMENSION(:,:), ALLOCATABLE :: &
+      REAL(KIND=dp), DIMENSION(:,:), ALLOCATABLE :: &
          & zlamg, &
          & zphig, &
@@ -70 +69 @@
       LOGICAL, DIMENSION(:,:), ALLOCATABLE :: &
          & llinvalidcell
-      REAL(wp), DIMENSION(:,:,:), ALLOCATABLE :: &
+      REAL(dp), DIMENSION(:,:,:), ALLOCATABLE :: &
          & zlamtm,  &
          & zphitm