AbaqusUExternalDB.C

Go to the documentation of this file.

//* This file is part of the MOOSE framework
//* https://mooseframework.inl.gov
//*
//* All rights reserved, see COPYRIGHT for full restrictions
//* https://github.com/idaholab/moose/blob/master/COPYRIGHT
//*
//* Licensed under LGPL 2.1, please see LICENSE for details
//* https://www.gnu.org/licenses/lgpl-2.1.html

#include "AbaqusUExternalDB.h"
#include "AbaqusUtils.h"
#include "AnalysisStepUserObject.h"

#define QUOTE(macro) stringifyName(macro)

registerMooseObject("SolidMechanicsApp", AbaqusUExternalDB);

InputParameters
AbaqusUExternalDB::validParams()
{
  InputParameters params = ThreadedGeneralUserObject::validParams();
  params.addClassDescription("Coupling user object to use Abaqus UEXTERNALDB subroutines in MOOSE");
  params.addRequiredParam<FileName>(
      "plugin", "The path to the compiled dynamic library for the plugin you want to use");
  params.addParam<UserObjectName>(
      "analysis_step_user_object",
      "The AnalysisStepUserObject that provides times from simulation loading steps.");
  return params;
}

#ifndef METHOD
#error "The METHOD preprocessor symbol must be supplied by the build system."
#endif

AbaqusUExternalDB::AbaqusUExternalDB(const InputParameters & parameters)
  : ThreadedGeneralUserObject(parameters),
    _plugin(getParam<FileName>("plugin")),
    _library(_plugin + std::string("-") + QUOTE(METHOD) + ".plugin"),
    _uexternaldb(_library.getFunction<uexternaldb_t>("uexternaldb_")),
    _aqSTEP(0),
    _current_execute_on_flag(_fe_problem.getCurrentExecuteOnFlag())
{
  AbaqusUtils::setInputFile(_app.getLastInputFileName());
  AbaqusUtils::setCommunicator(&_communicator);
}

void
AbaqusUExternalDB::initialSetup()
{
  // Let's automatically detect uos and identify the one we are interested in.
  // If there is more than one, we assume something is off and error out.
  if (!isParamSetByUser("analysis_step_user_object"))
    getAnalysisStepUserObject(_fe_problem, _step_user_object, name());
  else
    _step_user_object = &getUserObject<AnalysisStepUserObject>("analysis_step_user_object");
}

void
AbaqusUExternalDB::execute()
{
  // Obtain step number if user object was coupled (beginning of increment)
  if (_step_user_object)
    _aqSTEP = _step_user_object->getStep(_t - _dt);

  if (_current_execute_on_flag == EXEC_INITIAL)
    callPlugin(0);

  // TODO support 2 -> trigger saving for restart

  if (_current_execute_on_flag == EXEC_FINAL)
    callPlugin(3);

  if (_current_execute_on_flag == EXEC_TIMESTEP_BEGIN)
    callPlugin(1);

  if (_current_execute_on_flag == EXEC_TIMESTEP_END)
    callPlugin(2);
}

void
AbaqusUExternalDB::callPlugin(int lop)
{
  Real time[2] = {_t, _t - _dt};
  int lrestart = 0;

  // call plugin function
  _uexternaldb(&lop, &lrestart, time, &_dt, &_aqSTEP, &_t_step);
}