Function TclCommand_addNodalLoad

SRC/modelbuilder/tcl/TclModelBuilder.cpp:1683–1932

int
TclCommand_addNodalLoad(ClientData clientData, Tcl_Interp *interp, int argc,
	TCL_Char **argv)
{
	// ensure the destructor has not been called - 
	if (theTclBuilder == 0) {
		opserr << "WARNING builder has been destroyed - load \n";
		return TCL_ERROR;
	}

	//  int ndf = theTclBuilder->getNDF();

	int ndf = argc - 2;
	NodalLoad *theLoad = 0;

	bool isLoadConst = false;
	bool userSpecifiedPattern = false;
	int loadPatternTag = 0;
	//The above definition are moved forward for the use in both cases

	//-------------Adding Proc for NodalThermalAction, By Liming Jiang, [SIF] 2017
	if ((strcmp(argv[2], "-NodalThermal") == 0) || (strcmp(argv[2], "-nodalThermal") == 0)) {

		int nodeId;
		if (Tcl_GetInt(interp, argv[1], &nodeId) != TCL_OK) {
			opserr << "WARNING invalid nodeId: " << argv[1] << endln;
			return TCL_ERROR;
		}

		Vector* thecrds = new Vector();
		Node* theNode = theTclDomain->getNode(nodeId);
		if (theNode == 0) {
			opserr << "WARNING invalid nodeID: " << argv[1] << endln;
			return TCL_ERROR;
		}
		(*thecrds) = theNode->getCrds();

		int count = 3;
		if (strcmp(argv[count], "-source") == 0) {
			count++;
			const char *pwd = getInterpPWD(interp);
			simulationInfo.addInputFile(argv[count], pwd);
			TimeSeries* theSeries;

			int dataLen = 9;//default num of temperature input for nodal ThermalAction;

			if (argc - count == 5) {
				//which indicates the nodal thermal action is applied to 3D I section Beam;
				dataLen = 15;
				theSeries = new PathTimeSeriesThermal(nodeId, argv[count], dataLen);
				count++;
				double RcvLoc1, RcvLoc2, RcvLoc3, RcvLoc4;
				if (Tcl_GetDouble(interp, argv[count], &RcvLoc1) != TCL_OK) {
					opserr << "WARNING NodalLoad - invalid loc1  " << argv[count] << " for NodalThermalAction\n";
					return TCL_ERROR;
				}
				if (Tcl_GetDouble(interp, argv[count + 1], &RcvLoc2) != TCL_OK) {
					opserr << "WARNING NodalLoad - invalid loc2  " << argv[count + 1] << " for NodalThermalAction\n";