From 6cd8f31cddcdd6612ca5c2d94b91563e4e66a249 Mon Sep 17 00:00:00 2001 From: Alex Richert Date: Tue, 8 Aug 2023 19:19:14 -0700 Subject: [PATCH] Use missing=huge(0) in interp_mod_grib2.F90 --- tests/interp_mod_grib2.F90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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(:)