Changeset 15540 for NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/OCE/ICB/icbclv.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/ICB/icbclv.F90 (modified) (2 diffs)

NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/OCE/ICB/icbclv.F90

@@ -49 +49 @@
       INTEGER, INTENT(in) ::   kt
       !
-      REAL(wp)      ::   zcalving_used, zdist, zfact
+      REAL(dp)      ::   zcalving_used, zdist, zfact
       INTEGER       ::   jn, ji, jj                    ! loop counters
       INTEGER       ::   imx                           ! temporary integer for max berg class
@@ -117 +117 @@
       TYPE(iceberg) ::   newberg
       TYPE(point)   ::   newpt
-      REAL(wp)      ::   zday, zcalved_to_berg, zheat_to_berg
+      REAL(dp)      ::   zday, zcalved_to_berg, zheat_to_berg
       !!----------------------------------------------------------------------
       !