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

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

@@ -88 +88 @@
    INTEGER , DIMENSION(:), ALLOCATABLE ::   nextrprof, nextrsurf   ! Number of profile & surface extra variables
    INTEGER , DIMENSION(:), ALLOCATABLE ::   n2dintsurf             ! Interpolation option for surface variables
-   REAL(wp), DIMENSION(:), ALLOCATABLE ::   zavglamscl, zavgphiscl ! E/W & N/S diameter of averaging footprint for surface variables
+   REAL(dp), DIMENSION(:), ALLOCATABLE ::   zavglamscl, zavgphiscl ! E/W & N/S diameter of averaging footprint for surface variables
    LOGICAL , DIMENSION(:), ALLOCATABLE ::   lfpindegs              ! T=> surface obs footprint size specified in degrees, F=> in metres
    LOGICAL , DIMENSION(:), ALLOCATABLE ::   llnightav              ! Logical for calculating night-time averages
@@ -169 +169 @@
       REAL(wp) :: ztype_avglamscl ! Local version of rn_*_avglamscl
       REAL(wp) :: ztype_avgphiscl ! Local version of rn_*_avgphiscl
-      REAL(wp), DIMENSION(:,:,:),   ALLOCATABLE :: zglam   ! Model longitudes for profile variables
-      REAL(wp), DIMENSION(:,:,:),   ALLOCATABLE :: zgphi   ! Model latitudes  for profile variables
-      REAL(wp), DIMENSION(:,:,:,:), ALLOCATABLE :: zmask   ! Model land/sea mask associated with variables
+      REAL(dp), DIMENSION(:,:,:),   ALLOCATABLE :: zglam   ! Model longitudes for profile variables
+      REAL(dp), DIMENSION(:,:,:),   ALLOCATABLE :: zgphi   ! Model latitudes  for profile variables
+      REAL(dp), DIMENSION(:,:,:,:), ALLOCATABLE :: zmask   ! Model land/sea mask associated with variables
       !!
       NAMELIST/namobs/ln_diaobs, ln_t3d, ln_s3d, ln_sla,              &
@@ -628 +628 @@
       INTEGER :: jvar              ! Variable number
       INTEGER :: ji, jj, jk        ! Loop counters
-      REAL(wp), DIMENSION(:,:,:,:), ALLOCATABLE :: &
+      REAL(dp), DIMENSION(:,:,:,:), ALLOCATABLE :: &
          & zprofvar                ! Model values for variables in a prof ob
-      REAL(wp), DIMENSION(:,:,:,:), ALLOCATABLE :: &
+      REAL(dp), DIMENSION(:,:,:,:), ALLOCATABLE :: &
          & zprofmask               ! Mask associated with zprofvar
-      REAL(wp), DIMENSION(jpi,jpj) :: &
+      REAL(dp), DIMENSION(jpi,jpj) :: &
          & zsurfvar, &             ! Model values equivalent to surface ob.
          & zsurfmask               ! Mask associated with surface variable
-      REAL(wp), DIMENSION(:,:,:), ALLOCATABLE :: &
+      REAL(dp), DIMENSION(:,:,:), ALLOCATABLE :: &
          & zglam,    &             ! Model longitudes for prof variables
          & zgphi                   ! Model latitudes for prof variables
-      REAL(wp), DIMENSION(:,:,:), ALLOCATABLE :: zdept, zdepw
+      REAL(dp), DIMENSION(:,:,:), ALLOCATABLE :: zdept, zdepw
 
       !-----------------------------------------------------------------------
@@ -787 +787 @@
       INTEGER :: jtype                    ! Data set loop variable
       INTEGER :: jo, jvar, jk
-      REAL(wp), DIMENSION(:), ALLOCATABLE :: &
-         & zu, &
-         & zv
+      REAL(dp), DIMENSION(:), ALLOCATABLE ::  zu, zv
+
+
+
 
       !-----------------------------------------------------------------------
@@ -1083 +1084 @@
       INTEGER, DIMENSION(ntypes), INTENT(INOUT) :: &
          &                    n2dint 
-      REAL(wp), DIMENSION(ntypes), INTENT(INOUT) :: &
-         &                    ravglamscl, ravgphiscl
+      REAL(dp), DIMENSION(ntypes), INTENT(INOUT) ::  ravglamscl, ravgphiscl
+
+
       LOGICAL, DIMENSION(ntypes), INTENT(INOUT) :: &
          &                    lfpindegs, lavnight