Changeset 13290


Ignore:
Timestamp:
2020-07-10T12:29:01+02:00 (4 weeks ago)
Author:
smasson
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/OCE/LBC/mpp_nfd_generic.h90

    r13286 r13290  
    6767#    define RECVROUTINE mpprecv_sp 
    6868#    define MPI_TYPE MPI_REAL 
     69#    define HUGEVAL(x)   HUGE(x/**/_sp) 
    6970# else 
    7071#    define PRECISION dp 
     
    7273#    define RECVROUTINE mpprecv_dp 
    7374#    define MPI_TYPE MPI_DOUBLE_PRECISION 
     75#    define HUGEVAL(x)   HUGE(x/**/_dp) 
    7476# endif 
    7577 
     
    185187               END DO 
    186188               DO ji = jpi+1, jpimax 
    187                   ztabb(ji,ij1,jk,jl) = HUGE(0._wp)   ! avoid sending uninitialized values (make sure we don't use it) 
     189                  ztabb(ji,ij1,jk,jl) = HUGEVAL(0.)   ! avoid sending uninitialized values (make sure we don't use it) 
    188190               END DO 
    189191            END DO 
     
    308310               END DO 
    309311               DO ji = Ni_0+1, i0max 
    310                   znorthloc(ji,jj,jk,jl,jf) = HUGE(0._wp)   ! avoid sending uninitialized values (make sure we don't use it) 
     312                  znorthloc(ji,jj,jk,jl,jf) = HUGEVAL(0.)   ! avoid sending uninitialized values (make sure we don't use it) 
    311313               END DO 
    312314            END DO 
     
    407409#undef F_SIZE 
    408410#undef LBC_ARG 
     411#undef HUGEVAL 
Note: See TracChangeset for help on using the changeset viewer.