remove unused constant

NCAR · Aug 30, 2024 · 0e09045 · 0e09045
1 parent 6662bab
commit 0e09045
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/fortran/tuvx/grid.F90 b/fortran/tuvx/grid.F90
@@ -154,7 +154,7 @@ end function grid_t_constructor
   !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
   integer function number_of_sections(this, error) result( n_sections )
-    use musica_util, only: error_t, error_t_c, dk => musica_dk
+    use musica_util, only: error_t, error_t_c
 
     ! Arguments
     class(grid_t), intent(inout) :: this