@@ -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, RKstep )
1151+ call s_compute_EL_coupled_solver(q_cons_ts(2 )%vf, q_prim_vf, rhs_ts_rkck(5 )%vf, 5 )
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, RKstep )
1165+ call s_compute_EL_coupled_solver(q_cons_ts(2 )%vf, q_prim_vf, rhs_ts_rkck(6 )%vf, 6 )
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