Changeset 14219 for NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/ICB/icbthm.F90

Timestamp:

2020-12-18T18:52:57+01:00 (4 years ago)

Author:

mcastril

Message:

Add Mixed Precision support by Oriol Tintó

File:

• NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/ICB/icbthm.F90 (modified) (2 diffs)

NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/ICB/icbthm.F90

@@ -31 +31 @@
 
    PUBLIC   icb_thm ! routine called in icbstp.F90 module
+
+   !! * Substitutions
+#  include "single_precision_substitute.h90"
 
    !!----------------------------------------------------------------------
@@ -282 +285 @@
       END DO
       !
-      berg_grid%floating_melt = REAL(cicb_melt,dp)    ! kg/m2/s
-      berg_grid%calving_hflx  = REAL(cicb_hflx,dp)
+      berg_grid%floating_melt = CASTDP(cicb_melt)    ! kg/m2/s
+      berg_grid%calving_hflx  = CASTDP(cicb_hflx)
       !
       ! now use melt and associated heat flux in ocean (or not)