Changeset 15037
- Timestamp:
- 05/16/13 09:22:27 (12 years ago)
- Location:
- issm/trunk-jpl/src/c
- Files:
-
- 14 edited
Legend:
- Unmodified
- Added
- Removed
-
issm/trunk-jpl/src/c/analyses/hydrology_core.cpp
r15015 r15037 63 63 64 64 /*transfer water column thickness to old water column thickness: */ 65 65 66 66 InputDuplicatex(femmodel->elements,femmodel->nodes,femmodel->vertices,femmodel->loads,femmodel->materials,femmodel->parameters,WatercolumnEnum,WaterColumnOldEnum); 67 67 … … 83 83 84 84 if(VerboseSolution()) _pprintLine_(" computing water transfer"); 85 86 85 87 86 if(VerboseSolution()) _pprintLine_(" computing water head"); -
issm/trunk-jpl/src/c/classes/Constraints/Constraints.h
r15012 r15037 28 28 /*}}}*/ 29 29 30 31 30 /*numerics*/ 32 31 int NumberOfConstraints(void); -
issm/trunk-jpl/src/c/classes/Elements/Penta.cpp
r15015 r15037 9356 9356 } 9357 9357 /*}}}*/ 9358 9359 9358 9360 9359 #endif -
issm/trunk-jpl/src/c/classes/Elements/Tria.cpp
r15020 r15037 1914 1914 /*Get dof list: */ 1915 1915 GetDofList(&doflist,NoneApproximationEnum,GsetEnum); 1916 1916 1917 1917 /*Use the dof list to index into the vector: */ 1918 1918 for(int i=0;i<numdof;i++){ … … 1922 1922 /*Add input to the element: */ 1923 1923 this->inputs->AddInput(new TriaP1Input(name,values)); 1924 1924 1925 1925 /*Free ressources:*/ 1926 1926 xDelete<int>(doflist); … … 6173 6173 /* Start looping on the number of gaussian points: */ 6174 6174 gauss=new GaussTria(2); 6175 6175 6176 6176 for(int ig=gauss->begin();ig<gauss->end();ig++){ 6177 6177 … … 6245 6245 if(reCast<bool,IssmDouble>(dt)) scalar = scalar*dt; 6246 6246 for(int i=0;i<numdof;i++) pe->values[i]+=scalar*basis[i]; 6247 6247 6248 6248 /*Transient term*/ 6249 6249 if(reCast<bool,IssmDouble>(dt)){ … … 6336 6336 GetDofList(&doflist,NoneApproximationEnum,GsetEnum); 6337 6337 6338 6339 6338 /*Use the dof list to index into the solution vector: */ 6340 6339 for(int i=0;i<numdof;i++){ … … 6352 6351 this->parameters->FindParam(&penalty_factor,HydrologydcPenaltyFactorEnum); 6353 6352 kappa=kmax*pow(10.,penalty_factor); 6354 6353 6355 6354 for(int i=0;i<NUMVERTICES;i++){ 6356 6355 this->GetHydrologyDCInefficientHmax(&h_max,nodes[i]); … … 6474 6473 /*FUNCTION Tria::GetHydrologyTransfer{{{*/ 6475 6474 void Tria::GetHydrologyTransfer(Vector<IssmDouble>* transfer){ 6476 6475 6477 6476 const int numdof = NDOF1 *NUMVERTICES; 6478 6477 int *doflist = NULL; … … 6485 6484 IssmDouble epl_head[numdof],sed_head[numdof]; 6486 6485 6487 6488 6486 GetDofList(&doflist,NoneApproximationEnum,GsetEnum); 6489 6487 6490 6488 /*Get the flag to know if the efficient layer is present*/ 6491 6489 this->parameters->FindParam(&isefficientlayer,HydrologydcIsefficientlayerEnum); 6492 6490 6493 6491 if(!isefficientlayer){ 6494 6492 transfer->SetValues(numdof,doflist,&wh_trans[0],ADD_VAL); … … 6497 6495 /*Also get the flag to the transfer method (TO DO)*/ 6498 6496 this->parameters->FindParam(&transfermethod,HydrologydcTransferFlagEnum); 6499 6497 6500 6498 /*Switch between the different transfer methods cases(TO DO)*/ 6501 6499 switch(transfermethod){ … … 6505 6503 case 1: 6506 6504 this->parameters->FindParam(&leakage,HydrologydcLeakageFactorEnum); 6507 6505 6508 6506 sed_trans = matpar->GetSedimentTransmitivity(); 6509 6507 sed_thick = matpar->GetSedimentThickness(); 6510 6508 6511 6509 GetInputListOnVertices(&sed_head[0],SedimentHeadEnum); 6512 6510 GetInputListOnVertices(&epl_head[0],EplHeadEnum); 6513 6511 6514 6512 for(int i=0;i<numdof;i++){ 6515 6513 if(sed_head[i]>epl_head[i]){ … … 6526 6524 _error_("no case higher than 1 for the Transfer method"); 6527 6525 } 6528 6526 6529 6527 /*Assign output pointer*/ 6530 6528 transfer->SetValues(numdof,doflist,&wh_trans[0],ADD_VAL); -
issm/trunk-jpl/src/c/classes/FemModel.cpp
r15015 r15037 1458 1458 #ifdef _HAVE_DAKOTA_ 1459 1459 void FemModel::DakotaResponsesx(double* d_responses,char** responses_descriptors,int numresponsedescriptors,int d_numresponses){/*{{{*/ 1460 1460 1461 1461 int i,j; 1462 1462 int my_rank; … … 1562 1562 1563 1563 int i; 1564 1564 1565 1565 /*intermediary: */ 1566 1566 Element *element = NULL; 1567 1567 1568 1568 /*Go through elements, and add contribution from each element to the deflection vector wg:*/ 1569 1569 for (i=0;i<elements->Size();i++){ … … 1578 1578 1579 1579 Vector<IssmDouble>* basisg=NULL; 1580 1580 1581 1581 /*Vector allocation*/ 1582 1582 basisg=new Vector<IssmDouble>(nodes->NumberOfNodes()); 1583 1583 1584 1584 for (int i=0;i<elements->Size();i++){ 1585 1585 Element* element=dynamic_cast<Element*>(elements->GetObjectByOffset(i)); … … 1588 1588 /*Assemble*/ 1589 1589 basisg->Assemble(); 1590 1590 1591 1591 /*Update Inputs*/ 1592 1592 InputUpdateFromVectorx(elements,nodes,vertices,loads,materials,parameters,basisg,BasisIntegralEnum,NodesEnum); 1593 1593 1594 1594 } 1595 1595 /*}}}*/ … … 1598 1598 1599 1599 Vector<IssmDouble>* transferg=NULL; 1600 1600 1601 1601 /*Vector allocation*/ 1602 1602 transferg=new Vector<IssmDouble>(nodes->NumberOfNodes()); 1603 1603 1604 1604 for (int i=0;i<elements->Size();i++){ 1605 1605 Element* element=dynamic_cast<Element*>(elements->GetObjectByOffset(i)); … … 1608 1608 /*Assemble*/ 1609 1609 transferg->Assemble(); 1610 1610 1611 1611 /*Update Inputs*/ 1612 1612 InputUpdateFromVectorx(elements,nodes,vertices,loads,materials,parameters,transferg,WaterTransferEnum,NodesEnum); 1613 1614 } 1615 /*}}}*/ 1613 1614 } 1615 /*}}}*/ -
issm/trunk-jpl/src/c/classes/Inputs/Input.h
r15012 r15037 17 17 #include "../../shared/shared.h" 18 18 /*}}}*/ 19 20 19 21 20 class Input: public Object{ -
issm/trunk-jpl/src/c/classes/Inputs/Inputs.cpp
r15012 r15037 428 428 /*Methods relating to inputs: */ 429 429 void IsInputConverged(IssmDouble* peps, Input** new_inputs,Input** old_inputs,int num_inputs,int criterion_enum){ /*{{{*/ 430 430 431 431 /*figure out convergence at the input level. 432 432 We are given a list of inputs, new and old, and a criterion, and using the -
issm/trunk-jpl/src/c/classes/Node.cpp
r15036 r15037 926 926 /*}}}*/ 927 927 928 929 928 /*Methods inherent to Node: */ 930 929 int* GetLocalDofList(Node** nodes,int numnodes,int setenum,int approximation){ /*{{{*/ … … 987 986 int* GetGlobalDofList(Node** nodes,int numnodes,int setenum,int approximation){/*{{{*/ 988 987 989 990 988 int i,numdof,count; 991 989 int* ndof_list=NULL; … … 1025 1023 int GetNumberOfDofs(Node** nodes,int numnodes,int setenum,int approximation){/*{{{*/ 1026 1024 1027 1028 1025 /*output: */ 1029 1026 int numberofdofs=0; … … 1038 1035 #ifdef _HAVE_DIAGNOSTIC_ 1039 1036 void TransformInvStiffnessMatrixCoord(ElementMatrix* Ke,Node** nodes,int numnodes,int cs_enum){/*{{{*/ 1040 1041 1037 1042 1038 int* cs_array=NULL; … … 1054 1050 /*}}}*/ 1055 1051 void TransformInvStiffnessMatrixCoord(ElementMatrix* Ke,Node** nodes,int numnodes,int* cs_array){/*{{{*/ 1056 1057 1052 1058 1053 int i,j; … … 1105 1100 void TransformLoadVectorCoord(ElementVector* pe,Node** nodes,int numnodes,int* cs_array){/*{{{*/ 1106 1101 1107 1108 1102 int i; 1109 1103 int numdofs = 0; … … 1139 1133 void TransformSolutionCoord(IssmDouble* solution,Node** nodes,int numnodes,int cs_enum){/*{{{*/ 1140 1134 1141 1142 1135 int* cs_array=NULL; 1143 1136 … … 1154 1147 /*}}}*/ 1155 1148 void TransformSolutionCoord(IssmDouble* solution,Node** nodes,int numnodes,int* cs_array){/*{{{*/ 1156 1157 1149 1158 1150 int i; … … 1189 1181 void TransformStiffnessMatrixCoord(ElementMatrix* Ke,Node** nodes,int numnodes,int cs_enum){/*{{{*/ 1190 1182 1191 1192 1183 int* cs_array=NULL; 1193 1184 … … 1204 1195 /*}}}*/ 1205 1196 void TransformStiffnessMatrixCoord(ElementMatrix* Ke,Node** nodes,int numnodes,int* cs_array){/*{{{*/ 1206 1207 1197 1208 1198 int i,j; … … 1239 1229 /*}}}*/ 1240 1230 void CoordinateSystemTransform(IssmDouble** ptransform,Node** nodes,int numnodes,int* cs_array){/*{{{*/ 1241 1242 1231 1243 1232 int i,counter; -
issm/trunk-jpl/src/c/classes/Nodes.h
r15012 r15037 9 9 class Nodes; 10 10 class Materials; 11 12 11 13 12 /*!\brief Declaration of Nodes class. -
issm/trunk-jpl/src/c/classes/Params/Parameters.cpp
r15012 r15037 571 571 * and parameters 572 572 */ 573 574 573 575 574 char* options=NULL; -
issm/trunk-jpl/src/c/classes/Params/Parameters.h
r15012 r15037 62 62 void ToolkitsOptionsFromAnalysis(Parameters* parameters,int analysis_type); 63 63 64 65 64 #endif //ifndef _PARAMETERS_H_ -
issm/trunk-jpl/src/c/modules/GiaDeflectionCorex/GiaDeflectionCorex.cpp
r15025 r15037 16 16 double pset[7]; 17 17 }; 18 18 19 19 struct blocko{ 20 20 double rhoi; … … 154 154 /*dmi: */ 155 155 blockt_dmi=xNew<IssmDouble>(Ntimm); 156 156 157 157 /*irate: */ 158 158 blockn_.irate=irate; … … 187 187 188 188 } 189 -
issm/trunk-jpl/src/c/modules/ModelProcessorx/ModelProcessorx.h
r14996 r15037 9 9 10 10 #include "../../classes/classes.h" 11 12 11 13 12 void ModelProcessorx(Elements** pelements, Nodes** pnodes, Vertices** pvertices, Materials** pmaterials, Constraints** pconstraints, Loads** ploads, Parameters** pparameters, FILE* iomodel_handle,char* rootpath,const int solution_type,const int nummodels,const int* analysis_type_listh); -
issm/trunk-jpl/src/c/shared/Numerics/extrema.cpp
r14998 r15037 38 38 } 39 39 #endif 40 41
Note:
See TracChangeset
for help on using the changeset viewer.