add dflt_adap_dt_max_iters

Author: Hyeoksu Lee

src/common/m_constants.fpp

@@ -55,6 +55,7 @@ module m_constants
 
     ! Strang Splitting constants
     real(wp), parameter :: dflt_adap_dt_tol = 1.e-4_wp !< Default tolerance for adaptive step size
+    integer, parameter :: dflt_adap_dt_max_iters = 100 !< Default max iteration for adaptive step size
 
     ! Constants of the algorithm described by Heirer, E. Hairer S.P.Nørsett G. Wanner, Solving Ordinary Differential Equations I, Chapter II.4
     ! to choose the initial time step size for the adaptive time stepping routine

src/simulation/m_global_parameters.fpp

@@ -677,7 +677,7 @@ contains
         adv_n = .false.
         adap_dt = .false.
         adap_dt_tol = dflt_real
-        adap_dt_max_iters = 100
+        adap_dt_max_iters = dflt_adap_dt_max_iters
 
         pi_fac = 1._wp