fixed some warnings

NOAA-EMC · Apr 16, 2024 · d11d78d · d11d78d
1 parent c76af88
commit d11d78d
Showing 1 changed file with 0 additions and 5 deletions.
diff --git a/src/grib2_all_tables_module.F90 b/src/grib2_all_tables_module.F90
@@ -2417,7 +2417,6 @@ subroutine g2sec5_temp0(dec_scale_fac, bin_scale_fac, tlnumbits, ifield5)
     integer(4), intent(in) :: bin_scale_fac, dec_scale_fac, tlnumbits
     integer(4), intent(out) :: ifield5(5)
     !     character(len=50) :: type_of_field
-    integer(4) :: value, ierr
     !
     ifield5(1) = 0 ! Any value. Will be later overwritten
     ifield5(2) = bin_scale_fac
@@ -2447,8 +2446,6 @@ subroutine g2sec5_temp2(dec_scale_fac, bin_scale_fac, ifield5)
     integer(4), intent(inout)  :: ifield5(16)
     integer(4), intent(in) :: dec_scale_fac, bin_scale_fac
     !
-    integer(4) :: value, ierr
-    !
     ifield5=0
     ifield5(1) = 0 ! Any value. Will be later overwritten
     ifield5(2) = bin_scale_fac
@@ -2527,8 +2524,6 @@ subroutine g2sec5_temp40(dec_scale_fac, bin_scale_fac, tlnumbits,
     !--- local variable
     integer(4) :: value, ierr
     integer, parameter :: MAX_NUMBIT=16
-    integer ibm
-    integer, allocatable   :: mg(:)
     !
     ifield5(1) = 0 ! Any value. Will be later overwritten
     ifield5(2) = bin_scale_fac