BUG: Fix where in module functions go

NCAR · Sep 17, 2024 · ef93ca6 · ef93ca6
1 parent 1c20f4a
commit ef93ca6
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/fortran/wrf_constants.f90 b/fortran/wrf_constants.f90
@@ -69,6 +69,7 @@ MODULE wrf_constants
     REAL(KIND=8), PARAMETER :: EXPON =  RD*USSALR/G
     REAL(KIND=8), PARAMETER :: EXPONI =  1./EXPON
 
+    contains
     logical function have_wrf_constants()
         have_wrf_constants = .true.
     end function have_wrf_constants