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

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

@@ -69 +69 @@
          & idqc           !: Depth QC flag
 
-      REAL(KIND=wp), POINTER, DIMENSION(:) :: &
+      REAL(KIND=dp), POINTER, DIMENSION(:) :: &
          & vdep,  &       !: Depth coordinate of profile data
          & vobs,  &       !: Profile data
          & vmod           !: Model counterpart of the profile data vector
 
-      REAL(KIND=wp), POINTER, DIMENSION(:,:) :: &
+      REAL(KIND=dp), POINTER, DIMENSION(:,:) :: &
          & vext           !: Extra variables
 
@@ -127 +127 @@
          & itqc           !: Time QC
 
-      REAL(KIND=wp), POINTER, DIMENSION(:) :: &
+      REAL(KIND=dp), POINTER, DIMENSION(:) :: &
          & rlam, &        !: Longitude coordinate of profile data
          & rphi           !: Latitude coordinate of profile data
@@ -176 +176 @@
       ! variables
 
-      REAL(KIND=wp), POINTER, DIMENSION(:,:,:,:) :: &
+      REAL(KIND=dp), POINTER, DIMENSION(:,:,:,:) :: &
          & vdmean        !: Daily averaged model field