Changeset 14894 for NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/OCE/ZDF

Timestamp:

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

Author:

sparonuz

Message:

Added wp specification to some real declarations

File:

• NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/OCE/ZDF/zdfosm.F90 (modified) (3 diffs)

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 &