Changeset 15540 for NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/OCE/SBC/sbcflx.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/SBC/sbcflx.F90 (modified) (1 diff)

NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/OCE/SBC/sbcflx.F90

@@ -80 +80 @@
       INTEGER  ::   ierror                ! return error code
       INTEGER  ::   ios                   ! Local integer output status for namelist read
-      REAL(wp) ::   zfact                 ! temporary scalar
-      REAL(wp) ::   zrhoa  = 1.22         ! Air density kg/m3
-      REAL(wp) ::   zcdrag = 1.5e-3       ! drag coefficient
-      REAL(wp) ::   ztx, zty, zmod, zcoef ! temporary variables
+      REAL(dp) ::   zfact                 ! temporary scalar
+      REAL(dp) ::   zrhoa  = 1.22         ! Air density kg/m3
+      REAL(dp) ::   zcdrag = 1.5e-3       ! drag coefficient
+      REAL(dp) ::   ztx, zty, zmod, zcoef ! temporary variables
       !!
       CHARACTER(len=100) ::  cn_dir                               ! Root directory for location of flx files