diff --git a/tests/interp_mod_grib2.F90 b/tests/interp_mod_grib2.F90 index b42afaf8..2c589732 100644 --- a/tests/interp_mod_grib2.F90 +++ b/tests/interp_mod_grib2.F90 @@ -68,7 +68,7 @@ subroutine interp(grid, interp_opt) integer :: i_output=-1, j_output=-1, mo, no, ibo(1) integer :: ibi_scalar=0, ibo_scalar integer :: num_pts_diff, which_func, ntol - integer , parameter :: missing=huge(ip) + integer , parameter :: missing=huge(0) logical*1, allocatable :: output_bitmap(:,:) @@ -423,7 +423,7 @@ subroutine interp_vector(grid, interp_opt) integer :: ibi_scalar = 0, ibo_scalar integer :: i_output, j_output, mo, no, ibo(1) integer :: num_upts_diff, num_vpts_diff, ntol - integer, parameter :: missing=huge(ip) + integer, parameter :: missing=huge(0) logical*1, allocatable :: output_bitmap(:,:) real(KIND=REALSIZE), allocatable :: output_rlat(:), output_rlon(:)