@@ -1148,7 +1148,7 @@ contains
11481148            if  (proc_rank == 0 ) print  * , ' RKCK 5th time-stage at'  , rkck_time_tmp
11491149#endif 
11501150            call  s_compute_rhs(q_cons_ts(2 )%vf, q_T_sf, q_prim_vf, rhs_ts_rkck(5 )%vf, pb_ts(1 )%sf, rhs_pb, mv_ts(1 )%sf, rhs_mv, t_step, time_avg)
1151-             call  s_compute_EL_coupled_solver(q_cons_ts(2 )%vf, q_prim_vf, rhs_ts_rkck(5 )%vf, 5 )
1151+             call  s_compute_EL_coupled_solver(q_cons_ts(2 )%vf, q_prim_vf, rhs_ts_rkck(5 )%vf, RKstep )
11521152            call  s_update_tmp_rkck(5 , q_cons_ts, rhs_ts_rkck, lag_largestep)
11531153            if  (lag_largestep > 0._wp ) call  s_compute_rkck_dt(lag_largestep, restart_rkck_step)
11541154            if  (restart_rkck_step) cycle 
@@ -1162,7 +1162,7 @@ contains
11621162            if  (proc_rank == 0 ) print  * , ' RKCK 6th time-stage at'  , rkck_time_tmp
11631163#endif 
11641164            call  s_compute_rhs(q_cons_ts(2 )%vf, q_T_sf, q_prim_vf, rhs_ts_rkck(6 )%vf, pb_ts(1 )%sf, rhs_pb, mv_ts(1 )%sf, rhs_mv, t_step, time_avg)
1165-             call  s_compute_EL_coupled_solver(q_cons_ts(2 )%vf, q_prim_vf, rhs_ts_rkck(6 )%vf, 6 )
1165+             call  s_compute_EL_coupled_solver(q_cons_ts(2 )%vf, q_prim_vf, rhs_ts_rkck(6 )%vf, RKstep )
11661166            call  s_update_tmp_rkck(6 , q_cons_ts, rhs_ts_rkck, lag_largestep)
11671167            if  (lag_largestep > 0._wp ) call  s_compute_rkck_dt(lag_largestep, restart_rkck_step)
11681168            if  (restart_rkck_step) cycle 
0 commit comments