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

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

@@ -24 +24 @@
 
       !! * Arguments
-      REAL(KIND=wp), INTENT(IN) :: px        ! (lon) of the point P(x,y) 
-      REAL(KIND=wp), INTENT(IN) :: py        ! (lat) of the point P(x,y)               
-      REAL(KIND=wp), DIMENSION(4), INTENT(IN) :: &
-         & pxv,  &                  ! (lon, lat) of the surrounding cell
-         & pyv                     
+      REAL(KIND=dp), INTENT(IN) :: px        ! (lon) of the point P(x,y) 
+      REAL(KIND=dp), INTENT(IN) :: py        ! (lat) of the point P(x,y)               
+      REAL(KIND=dp), DIMENSION(4), INTENT(IN) ::  pxv, pyv ! (lon, lat) of the surrounding cell
+
+
+
   
       !! * Local declarations
-      REAL(KIND=wp) :: zst1
-      REAL(KIND=wp) :: zst2
-      REAL(KIND=wp) :: zst3
-      REAL(KIND=wp) :: zst4
+      REAL(KIND=dp) :: zst1
+      REAL(KIND=dp) :: zst2
+      REAL(KIND=dp) :: zst3
+      REAL(KIND=dp) :: zst4
 
       !-----------------------------------------------------------------------