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

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

@@ -58 +58 @@
       TYPE(obs_prof), INTENT(INOUT) :: profdata    ! Profile data to be read
       INTEGER, INTENT(IN) :: k2dint     ! Horizontal interpolation methed
-      REAL(wp), DIMENSION(*) :: &
+      REAL(dp), DIMENSION(*) :: &
          & pu, &
          & pv
       !! * Local declarations
-      REAL(wp), DIMENSION(2,2,1) :: zweig
-      REAL(wp), DIMENSION(:,:,:), ALLOCATABLE :: &
+      REAL(dp), DIMENSION(2,2,1) :: zweig
+      REAL(dp), DIMENSION(:,:,:), ALLOCATABLE :: &
          & zmasku, &
          & zmaskv, &
@@ -74 +74 @@
          & zglamv, &
          & zgphiv
-      REAL(wp), DIMENSION(1) :: &
+      REAL(dp), DIMENSION(1) :: &
          & zsinu, &
          & zcosu, &
          & zsinv, &
          & zcosv
-      REAL(wp) :: zsin
-      REAL(wp) :: zcos
-      REAL(wp), DIMENSION(1) :: zobsmask
-      REAL(wp), DIMENSION(jpi,jpj) :: zsingu,zcosgu,zsingv,zcosgv
+      REAL(dp) :: zsin
+      REAL(dp) :: zcos
+      REAL(dp), DIMENSION(1) :: zobsmask
+      REAL(dp), DIMENSION(jpi,jpj) :: zsingu,zcosgu,zsingv,zcosgv
       INTEGER, DIMENSION(:,:,:), ALLOCATABLE :: &
          & igrdiu, &