@@ -1148,7 +1148,7 @@ contains
1148
1148
if (proc_rank == 0 ) print * , ' RKCK 5th time-stage at' , rkck_time_tmp
1149
1149
#endif
1150
1150
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 )
1152
1152
call s_update_tmp_rkck(5 , q_cons_ts, rhs_ts_rkck, lag_largestep)
1153
1153
if (lag_largestep > 0._wp ) call s_compute_rkck_dt(lag_largestep, restart_rkck_step)
1154
1154
if (restart_rkck_step) cycle
@@ -1162,7 +1162,7 @@ contains
1162
1162
if (proc_rank == 0 ) print * , ' RKCK 6th time-stage at' , rkck_time_tmp
1163
1163
#endif
1164
1164
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 )
1166
1166
call s_update_tmp_rkck(6 , q_cons_ts, rhs_ts_rkck, lag_largestep)
1167
1167
if (lag_largestep > 0._wp ) call s_compute_rkck_dt(lag_largestep, restart_rkck_step)
1168
1168
if (restart_rkck_step) cycle
0 commit comments