Fix subroutine, module scoping issue (#2224)

(cherry picked from commit 06fdd0c)

Author: njansson

examples/rayleigh_benard/rayleigh.f90

@@ -11,7 +11,7 @@ module user
   subroutine user_setup(user)
     type(user_t), intent(inout) :: user
     user%initial_conditions => initial_conditions
-    user%source_term => source_term
+    user%source_term => forcing_source_term
     user%startup => startup
   end subroutine user_setup
 
@@ -75,8 +75,8 @@ subroutine initial_conditions(scheme_name, fields)
 
   end subroutine initial_conditions
 
-  !> Forcing
-  subroutine source_term(scheme_name, rhs, time)
+  ! Forcing
+  subroutine forcing_source_term(scheme_name, rhs, time)
     character(len=*), intent(in) :: scheme_name
     type(field_list_t), intent(inout) :: rhs
     type(time_state_t), intent(in) :: time
@@ -102,5 +102,5 @@ subroutine source_term(scheme_name, rhs, time)
        call field_cmult2(rhs_v, u, Ta2Pr)
        call field_cmult2(rhs_w, s, rapr)
     end if
-  end subroutine source_term
+  end subroutine forcing_source_term
 end module user

examples/scalar_mms/scalar_mms.f90

@@ -7,7 +7,7 @@ module user
   subroutine user_setup(user)
     type(user_t), intent(inout) :: user
     user%initial_conditions => initial_conditions
-    user%source_term => source_term
+    user%source_term => mms_source_term
     user%mesh_setup => user_mesh_scale
   end subroutine user_setup
 
@@ -25,7 +25,7 @@ subroutine user_mesh_scale(msh, time)
   end subroutine user_mesh_scale
 
   !> Set source term
-  subroutine source_term(scheme_name, rhs, time)
+  subroutine mms_source_term(scheme_name, rhs, time)
     character(len=*), intent(in) :: scheme_name
     type(field_list_t), intent(inout) :: rhs
     type(time_state_t), intent(in) :: time
@@ -49,7 +49,7 @@ subroutine source_term(scheme_name, rhs, time)
             HOST_TO_DEVICE, sync=.false.)
     end if
 
-  end subroutine source_term
+  end subroutine mms_source_term
 
   !> User initial condition for the scalar
   subroutine initial_conditions(scheme_name, fields)