Skip to content

Commit 2c25668

Browse files
authored
Improve logging in irksco solver (#9156)
1 parent 143759e commit 2c25668

File tree

1 file changed

+8
-0
lines changed
  • OMCompiler/SimulationRuntime/c/simulation/solver

1 file changed

+8
-0
lines changed

OMCompiler/SimulationRuntime/c/simulation/solver/irksco.c

Lines changed: 8 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -510,12 +510,20 @@ int irksco_midpoint_rule(DATA* data, threadData_t* threadData, SOLVER_INFO* solv
510510
{
511511
userdata->radauStepSize = 1e-6;
512512
}
513+
if (err>1)
514+
{
515+
infoStreamPrint(LOG_SOLVER, 0, "reject step from %10g to %10g, error %10g, new stepsize %10g",
516+
userdata->radauTimeOld, userdata->radauTime, err, userdata->radauStepSize);
517+
}
518+
513519

514520
} while (err > 1.0 );
515521

516522
userdata->radauTimeOld = userdata->radauTime;
517523

518524
userdata->radauTime += userdata->radauStepSizeOld;
525+
infoStreamPrint(LOG_SOLVER, 0, "accept step from %10g to %10g, error %10g, new stepsize %10g",
526+
userdata->radauTimeOld, userdata->radauTime, err, userdata->radauStepSize);
519527

520528
memcpy(userdata->radauVarsOld, userdata->radauVars, data->modelData->nStates*sizeof(double));
521529
memcpy(userdata->radauVars, userdata->y2, data->modelData->nStates*sizeof(double));

0 commit comments

Comments
 (0)