diff --git a/src/time_integration_mod.F90 b/src/time_integration_mod.F90 index 62e0144b78b50582e0837c4f0086e6f1721a3306..8089fe44d927c1dcf5a31ae00da8778b13344f8f 100644 --- a/src/time_integration_mod.F90 +++ b/src/time_integration_mod.F90 @@ -62,7 +62,7 @@ CONTAINS SELECT CASE (numerical_scheme) CASE ('RK4') - CALL RK4 + CALL RK4 CASE ('DOPRI5') CALL DOPRI5 CASE DEFAULT @@ -73,8 +73,6 @@ CONTAINS END SUBROUTINE set_numerical_scheme - - SUBROUTINE RK4 ! Butcher coeff for RK4 (default)