Minor fix

Author: Dhueper

Solver/src/libs/timeintegrator/ExplicitMethods.f90

@@ -1492,7 +1492,7 @@ end subroutine TakeRKOptStep
 !  ------------------------------
 !  Routine for Multi Level RK3
 !  ------------------------------
-   SUBROUTINE TakeMLRK3Step( mesh, particles, t, deltaT, ComputeTimeDerivative, dt_vec, dts, global_dt, iter)
+   SUBROUTINE TakeMLRK3Step( mesh, particles, t, deltaT, ComputeTimeDerivative, dt_vec, dts, global_dt, iter, dtAdaptation)
 !
 !     ----------------------------------
 !     Williamson's 3rd order Runge-Kutta
@@ -1516,6 +1516,7 @@ SUBROUTINE TakeMLRK3Step( mesh, particles, t, deltaT, ComputeTimeDerivative, dt_
       logical, intent(in), optional :: dts
       real(kind=RP), intent(in), optional :: global_dt
       integer, intent(in), optional :: iter
+      logical, intent(in), optional :: dtAdaptation
 !
 !     ---------------
 !     Local variables

Solver/src/libs/timeintegrator/TimeIntegrator.f90

@@ -318,17 +318,7 @@ SUBROUTINE constructTimeIntegrator(self,controlVariables, sem, initial_iter, ini
 !        ----------------
 !
          call self % autosave   % Configure (controlVariables, initial_time)
-         ! Check the type input and allocate the pAdaptator
-         adaptationType = getAdaptationType()
-         select case (adaptationType)
-            case(0)
-               allocate(pAdaptationTE_t::self % pAdaptator)
-            case(1)
-               allocate(pAdaptationRL_t::self % pAdaptator)
-            case default
-               error stop 'Adaptation type not recognized'
-         end select
-         call self % pAdaptator % construct (controlVariables, initial_time, sem % mesh)  ! If not requested, the constructor returns doing nothing
+         
          call surfacesMesh % autosaveConfig (controlVariables, initial_time)              ! If not requested, the procedure returns only setting not save values
 
          call self % TauEstimator % construct(controlVariables, sem)