Update params.F90

NOAA-EMC · Jan 23, 2025 · c03480d · c03480d
1 parent 6013158
commit c03480d
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/src/params.F90 b/src/params.F90
@@ -16,6 +16,7 @@ module params
   interface
    function g2c_param_g1tog2(g1num, g1ver, g2disc, g2cat, g2num) bind(c)
     use, intrinsic :: iso_c_binding
+    implicit none
     integer(c_int), value, intent(in) :: g1num
     integer(c_int), value, intent(in) :: g1ver
     integer(c_int), intent(out) :: g2disc
@@ -25,14 +26,16 @@ function g2c_param_g1tog2(g1num, g1ver, g2disc, g2cat, g2num) bind(c)
    end function g2c_param_g1tog2
    function g2c_param_abbrev(g2disc, g2cat, g2num, abbrev) bind(c)
     use, intrinsic :: iso_c_binding
+    implicit none
     integer(c_int), value, intent(in) :: g2disc
     integer(c_int), value, intent(in) :: g2cat
     integer(c_int), value, intent(in) :: g2num
-    character(kind=c_char, len=*), intent(out) :: abbrev
+    character(kind=c_char), intent(out) :: abbrev(*)
     integer(c_int) :: g2c_param_abbrev
    end function g2c_param_abbrev
    function g2c_param_g2tog1(g2disc, g2cat, g2num, g1num, g1ver) bind(c)
     use, intrinsic :: iso_c_binding
+    implicit none
     integer(c_int), value, intent(in) :: g2disc
     integer(c_int), value, intent(in) :: g2cat
     integer(c_int), value, intent(in) :: g2num