fixed warnings

NOAA-EMC · Apr 16, 2024 · 19405eb · 19405eb
1 parent 8a84503
commit 19405eb
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/grib2_all_tables_module.F90 b/src/grib2_all_tables_module.F90
@@ -2035,9 +2035,9 @@ subroutine g2sec4_temp44(icatg, iparm, aer_type, typ_intvl_size, &
     call get_g2_typeofintervals(typ_intvl_size, value, ierr)
     ipdstmpl44(4) = value
     ipdstmpl44(5) = scale_fac1_size
-    ipdstmpl44(6) = int(scale_val1_size)
+    ipdstmpl44(6) = scale_val1_size
     ipdstmpl44(7) = scale_fac2_size
-    ipdstmpl44(8) = int(scale_val2_size)
+    ipdstmpl44(8) = scale_val2_size
     !
     call get_g2_typeofgenproc(typ_gen_proc_key, value, ierr)
     ipdstmpl44(9) = value