Use missing=huge(0) in interp_mod_grib2.F90

NOAA-EMC · Aug 9, 2023 · 6cd8f31 · 6cd8f31
1 parent e58c99b
commit 6cd8f31
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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(:)