Changeset 14894

Timestamp:

2021-05-20T18:05:17+02:00 (3 years ago)

Author:

sparonuz

Message:

Added wp specification to some real declarations

Location:

NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/OCE

Files:

• OBS/maxdist.h90 (modified) (1 diff)
• OBS/obs_grid.F90 (modified) (2 diffs)
• ZDF/zdfosm.F90 (modified) (3 diffs)

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

@@ -5 +5 @@
    !!----------------------------------------------------------------------
 
-   REAL FUNCTION maxdist( pxv, pyv )
+   REAL(wp) FUNCTION maxdist( pxv, pyv )
       !!----------------------------------------------------------------------
       !!                    ***  FUNCTION maxdist ***

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

@@ -52 +52 @@
 
    !! Default values
-   REAL, PUBLIC :: rn_gridsearchres = 0.5   ! Resolution of grid
+   REAL(WP), PUBLIC :: rn_gridsearchres = 0.5   ! Resolution of grid
    INTEGER, PRIVATE :: gsearch_nlons_def    ! Num of longitudes
    INTEGER, PRIVATE :: gsearch_nlats_def    ! Num of latitudes
@@ -685 +685 @@
       INTEGER, DIMENSION(histsize) :: &
          & histx1, histx2, histy1, histy2
-      REAL, DIMENSION(histsize) :: &
+      REAL(wp), DIMENSION(histsize) :: &
          & fhistx1, fhistx2, fhisty1, fhisty2
       REAL(wp) :: histtol

NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/OCE/ZDF/zdfosm.F90

@@ -1415 +1415 @@
      REAL(wp) :: zwcor, zrf_conv, zrf_shear, zrf_langmuir, zr_stokes
 
-     REAL, PARAMETER :: za_shr = 0.4, zb_shr = 6.5, za_wb_s = 0.1
-     REAL, PARAMETER :: rn_ri_thres_a = 0.5, rn_ri_thresh_b = 0.59
-     REAL, PARAMETER :: zalpha_c = 0.2, zalpha_lc = 0.04
-     REAL, PARAMETER :: zalpha_ls = 0.06, zalpha_s = 0.15
-     REAL, PARAMETER :: rn_ri_p_thresh = 27.0
-     REAL, PARAMETER :: zrot=0._wp  ! dummy rotation rate of surface stress.
+     REAL(wp), PARAMETER :: za_shr = 0.4, zb_shr = 6.5, za_wb_s = 0.1
+     REAL(wp), PARAMETER :: rn_ri_thres_a = 0.5, rn_ri_thresh_b = 0.59
+     REAL(wp), PARAMETER :: zalpha_c = 0.2, zalpha_lc = 0.04
+     REAL(wp), PARAMETER :: zalpha_ls = 0.06, zalpha_s = 0.15
+     REAL(wp), PARAMETER :: rn_ri_p_thresh = 27.0
+     REAL(wp), PARAMETER :: zrot=0._wp  ! dummy rotation rate of surface stress.
 
 ! Determins stability and set flag lconv
@@ -2175 +2175 @@
       INTEGER :: inhml
       REAL(wp) :: zari, ztau, zdh_ref
-      REAL, PARAMETER :: a_ddh_2 = 3.5 ! also in pycnocline_depth
+      REAL(wp), PARAMETER :: a_ddh_2 = 3.5 ! also in pycnocline_depth
 
     DO_2D( 0, 0, 0, 0 )
@@ -2460 +2460 @@
      INTEGER  ::   ios            ! local integer
      INTEGER  ::   ji, jj, jk     ! dummy loop indices
-     REAL :: z1_t2
+     REAL(wp) :: z1_t2
      !!
      NAMELIST/namzdf_osm/ ln_use_osm_la, rn_osm_la, rn_osm_dstokes, nn_ave &