Update params.F90

NOAA-EMC · Jan 23, 2025 · 20a707e · 20a707e
1 parent 78e9c81
commit 20a707e
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/params.F90 b/src/params.F90
@@ -88,7 +88,7 @@ end subroutine param_g1_to_g2
   !>
   !> @author Stephen Gilbert @date 2002-01-04
   character(len = 8) function param_get_abbrev(g2disc, g2cat, g2num)
-    use, intrinsic :: iso_c_binding, only : c_char
+    use, intrinsic :: iso_c_binding, only : c_char, c_null_char
     implicit none
 
     integer, intent(in) :: g2disc, g2cat, g2num