Changeset 13290 for NEMO/trunk

Timestamp:

2020-07-10T12:29:01+02:00 (4 years ago)

Author:

smasson

Message:

trunk: mpp_nfd_generic: fix sp/dp compilation issue, following Rachid advise, see #2366

File:

• NEMO/trunk/src/OCE/LBC/mpp_nfd_generic.h90 (modified) (5 diffs)

NEMO/trunk/src/OCE/LBC/mpp_nfd_generic.h90

@@ -67 +67 @@
 #    define RECVROUTINE mpprecv_sp
 #    define MPI_TYPE MPI_REAL
+#    define HUGEVAL(x)   HUGE(x/**/_sp)
 # else
 #    define PRECISION dp
@@ -72 +73 @@
 #    define RECVROUTINE mpprecv_dp
 #    define MPI_TYPE MPI_DOUBLE_PRECISION
+#    define HUGEVAL(x)   HUGE(x/**/_dp)
 # endif
 
@@ -185 +187 @@
                END DO
                DO ji = jpi+1, jpimax
-                  ztabb(ji,ij1,jk,jl) = HUGE(0._wp)   ! avoid sending uninitialized values (make sure we don't use it)
+                  ztabb(ji,ij1,jk,jl) = HUGEVAL(0.)   ! avoid sending uninitialized values (make sure we don't use it)
                END DO
             END DO
@@ -308 +310 @@
                END DO
                DO ji = Ni_0+1, i0max
-                  znorthloc(ji,jj,jk,jl,jf) = HUGE(0._wp)   ! avoid sending uninitialized values (make sure we don't use it)
+                  znorthloc(ji,jj,jk,jl,jf) = HUGEVAL(0.)   ! avoid sending uninitialized values (make sure we don't use it)
                END DO
             END DO
@@ -407 +409 @@
 #undef F_SIZE
 #undef LBC_ARG
+#undef HUGEVAL