45 lines
1.1 KiB
C
45 lines
1.1 KiB
C
|
//======================================================================
|
||
|
|
// Negative values of the time is not allowed in EnSight.
|
||
|
|
// So for engines, where the time is CAD's we need to correct
|
||
|
|
// this so that all CAD's are positive. NN
|
||
|
|
//======================================================================
|
||
|
|
int USERD_get_sol_times
|
||
|
|
(
|
||
|
|
int timeset_number,
|
||
|
|
float *solution_times
|
||
|
|
)
|
||
|
|
{
|
||
|
|
#ifdef ENSIGHTDEBUG
|
||
|
|
Info << "Entering: USERD_get_sol_times" << endl << flush;
|
||
|
|
Info << TimeList << endl;
|
||
|
|
#endif
|
||
|
|
for (label n=0; n<Num_time_steps;n++)
|
||
|
|
{
|
||
|
|
solution_times[n] = TimeList[n+1].value();
|
||
|
|
}
|
||
|
|
|
||
|
|
if (TimeList[1].value() < 0)
|
||
|
|
{
|
||
|
|
scalar addCAD = 360.0;
|
||
|
|
while (TimeList[1].value() + addCAD < 0.0)
|
||
|
|
{
|
||
|
|
addCAD += 360.0;
|
||
|
|
}
|
||
|
|
for (label n=0; n<Num_time_steps;n++)
|
||
|
|
{
|
||
|
|
solution_times[n] += addCAD;
|
||
|
|
|
||
|
|
Info << "Time[" << n << "] = " << TimeList[n+1].value()
|
||
|
|
<< " was corrected to " << solution_times[n] << endl;
|
||
|
|
}
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
#ifdef ENSIGHTDEBUG
|
||
|
|
Info << "Leaving: USERD_get_sol_times" << endl << flush;
|
||
|
|
#endif
|
||
|
|
|
||
|
|
return Z_OK;
|
||
|
|
}
|
||
|
|
|