Changeset 13290
- Timestamp:
- 2020-07-10T12:29:01+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/LBC/mpp_nfd_generic.h90
r13286 r13290 67 67 # define RECVROUTINE mpprecv_sp 68 68 # define MPI_TYPE MPI_REAL 69 # define HUGEVAL(x) HUGE(x/**/_sp) 69 70 # else 70 71 # define PRECISION dp … … 72 73 # define RECVROUTINE mpprecv_dp 73 74 # define MPI_TYPE MPI_DOUBLE_PRECISION 75 # define HUGEVAL(x) HUGE(x/**/_dp) 74 76 # endif 75 77 … … 185 187 END DO 186 188 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) 188 190 END DO 189 191 END DO … … 308 310 END DO 309 311 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) 311 313 END DO 312 314 END DO … … 407 409 #undef F_SIZE 408 410 #undef LBC_ARG 411 #undef HUGEVAL
Note: See TracChangeset
for help on using the changeset viewer.