ENH: Make have_wrf_constants a subroutine

f2py seems to do better with those.
NCAR · Sep 17, 2024 · f914a85 · f914a85
1 parent ef93ca6
commit f914a85
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/fortran/wrf_constants.f90 b/fortran/wrf_constants.f90
@@ -70,8 +70,9 @@ MODULE wrf_constants
     REAL(KIND=8), PARAMETER :: EXPONI =  1./EXPON
 
     contains
-    logical function have_wrf_constants()
-        have_wrf_constants = .true.
-    end function have_wrf_constants
+    subroutine have_wrf_constants(a)
+        logical, intent(out) :: a
+        a = .true.
+    end subroutine have_wrf_constants
 END MODULE wrf_constants