Changeset 14219 for NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/stpctl.F90

Timestamp:

2020-12-18T18:52:57+01:00 (4 years ago)

Author:

mcastril

Message:

Add Mixed Precision support by Oriol Tintó

File:

• NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/stpctl.F90 (modified) (4 diffs)

NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/stpctl.F90

@@ -69 +69 @@
       INTEGER , DIMENSION(9)          ::   iareasum, iareamin, iareamax
       INTEGER , DIMENSION(3,4)        ::   iloc                                  ! min/max loc indices
-      REAL(wp)                        ::   zzz, zminsal, zmaxsal                 ! local real 
-      REAL(wp), DIMENSION(9)          ::   zmax, zmaxlocal
+      REAL(dp)                        ::   zzz, zminsal, zmaxsal                 ! local real 
+      REAL(dp), DIMENSION(9)          :: zmax
+      REAL(wp), DIMENSION(9)          :: zmaxlocal
       LOGICAL                         ::   ll_wrtstp, ll_colruns, ll_wrtruns, ll_0oce
       LOGICAL, DIMENSION(jpi,jpj,jpk) ::   llmsk
@@ -188 +189 @@
       !
       IF ( ln_SEOS.AND.(rn_b0==0._wp) ) THEN             ! Discard checks on salinity
-         zmaxsal = +1.e38                                ! if not used in eos
-         zminsal = -1.e38 
+         zmaxsal = +HUGE(1._dp)                                ! if not used in eos
+         zminsal = -HUGE(1._dp) 
       ELSE
          zmaxsal = 100._wp
@@ -297 +298 @@
       INTEGER , DIMENSION(3)          ::   iareasum, iareamin, iareamax
       INTEGER , DIMENSION(3,4)        ::   iloc                                  ! min/max loc indices
-      REAL(wp)                        ::   zzz                                   ! local real 
-      REAL(wp), DIMENSION(3)          ::   zmax, zmaxlocal
+      REAL(dp)                        ::   zzz                                   ! local real 
+      REAL(dp), DIMENSION(3)          ::   zmax, zmaxlocal
       LOGICAL                         ::   ll_wrtstp, ll_colruns, ll_wrtruns, ll_0oce
       LOGICAL, DIMENSION(jpi,jpj,jpk) ::   llmsk
@@ -459 +460 @@
       CHARACTER(len=*),      INTENT(  out) ::   cdline
       CHARACTER(len=*),      INTENT(in   ) ::   cdprefix
-      REAL(wp),              INTENT(in   ) ::   pval
+      REAL(dp),              INTENT(in   ) ::   pval
       INTEGER, DIMENSION(3), INTENT(in   ) ::   kloc
       INTEGER,               INTENT(in   ) ::   kt, ksum, kmin, kmax