Changeset 14495 for NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/LBC/mpp_nfd_generic.h90

Timestamp:

2021-02-18T18:06:18+01:00 (3 years ago)

Author:

mcastril

Message:

Further changes to make the mixed precision branch compliant with cpp -traditional and GNU compiler

File:

• NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/LBC/mpp_nfd_generic.h90 (modified) (3 diffs)

NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/LBC/mpp_nfd_generic.h90

@@ +1 @@
+#  define PASTE(a) a
+#  define ADD_TRAIL_USCORE(a) PASTE(a)_
+#  define CONCATENATE(a,b) ADD_TRAIL_USCORE(a)b
+
 #if defined MULTI
 #   define NAT_IN(k)                cd_nat(k)   
@@ -67 +71 @@
 #    define RECVROUTINE mpprecv_sp
 #    define MPI_TYPE MPI_REAL
-#    define HUGEVAL(x)   HUGE(x##_sp)
+#    define HUGEVAL(x)   HUGE(CONCATENATE(x,sp))
 # else
 #    define PRECISION dp
@@ -73 +77 @@
 #    define RECVROUTINE mpprecv_dp
 #    define MPI_TYPE MPI_DOUBLE_PRECISION
-#    define HUGEVAL(x)   HUGE(x##_dp)
+#    define HUGEVAL(x)   HUGE(CONCATENATE(x,dp))
 # endif