Changeset 14933

Timestamp:

2021-05-31T18:05:14+02:00 (3 years ago)

Author:

sparonuz

Message:

Added wp specification to some real declarations to parameters a_ddh, a_ddh_2

File:

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

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

@@ -1928 +1928 @@
     REAL(wp) :: zdhoh = 0.1
     REAL(wp) :: alpha_bc = 0.5
-    REAL, PARAMETER :: a_ddh = 2.5, a_ddh_2 = 3.5 ! also in pycnocline_depth
+    REAL(wp), PARAMETER :: a_ddh = 2.5, a_ddh_2 = 3.5 ! also in pycnocline_depth
 
   DO_2D( 0, 0, 0, 0 )