fix ups

Author: sbryngelson

src/simulation/m_checker.fpp

@@ -25,13 +25,11 @@ contains
     subroutine s_check_inputs
 
         call s_check_inputs_compilers
-
         call s_check_inputs_weno
         call s_check_inputs_riemann_solver
         call s_check_inputs_time_stepping
         call s_check_inputs_model_eqns
         call s_check_inputs_acoustic_src
-        call s_check_inputs_hypoelasticity
         call s_check_inputs_bubbles
         call s_check_inputs_adapt_dt
         call s_check_inputs_alt_soundspeed
@@ -257,11 +255,6 @@ contains
 
     end subroutine s_check_inputs_acoustic_src
 
-    !> Checks constraints on hypoelasticity parameters
-    subroutine s_check_inputs_hypoelasticity
-        !@:PROHIBIT(hypoelasticity .and. riemann_solver /= 1, "hypoelasticity requires HLL Riemann solver (riemann_solver = 1)")
-    end subroutine
-
     !> Checks constraints on bubble parameters
     subroutine s_check_inputs_bubbles
         @:PROHIBIT(bubbles .and. riemann_solver /= 2, "Bubble modeling requires HLLC Riemann solver (riemann_solver = 2)")

src/simulation/m_hyperelastic.fpp

@@ -232,7 +232,7 @@ contains
 
         real(wp) :: trace
         real(wp) :: f13 = 1_wp/3_wp
-        integer :: i !< Generic loop iterators
+        integer :: i
 
         ! tensor is the symmetric tensor & calculate the trace of the tensor
         trace = btensor(1)%sf(j, k, l) + btensor(3)%sf(j, k, l) + btensor(6)%sf(j, k, l)
@@ -272,7 +272,7 @@ contains
 
         real(wp) :: trace
         real(wp) :: f13 = 1_wp/3_wp
-        integer :: i !< Generic loop iterators
+        integer :: i
 
         !TODO Make this 1D and 2D capable
         ! tensor is the symmetric tensor & calculate the trace of the tensor