Changeset 9211
- Timestamp:
- 08/09/11 10:09:14 (14 years ago)
- Location:
- issm/trunk/src/c
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
issm/trunk/src/c/Container/Elements.cpp
r8967 r9211 41 41 } 42 42 /*}}}*/ 43 44 45 43 46 44 /*Object management*/ … … 153 151 154 152 return patch; 155 156 153 } 157 154 /*}}}*/ … … 174 171 void Elements::ToResults(Results* results,Parameters* parameters,int step, double time){ 175 172 176 /*output: */177 173 Patch* patch=NULL; 178 179 /*I/O strategy: */ 180 bool io_gather=true; //the default 174 bool io_gather; 181 175 182 176 /*Recover parameters: */ 183 177 parameters->FindParam(&io_gather,IoGatherEnum); 184 185 178 186 179 /*create patch object out of all results in this dataset: */ … … 201 194 /*Free ressources:*/ 202 195 delete patch; 203 204 196 } 205 197 /*}}}*/ … … 222 214 /*FUNCTION Elements::InputCopy{{{1*/ 223 215 void Elements::InputDuplicate(int input_enum,int output_enum){ 224 225 int i; 226 227 for(i=0;i<this->Size();i++){ 216 217 for(int i=0;i<this->Size();i++){ 228 218 Element* element=(Element*)this->GetObjectByOffset(i); 229 219 element->InputDuplicate(input_enum,output_enum); -
issm/trunk/src/c/modules/GroundingLineMigrationx/GroundingLineMigrationx.cpp
r9010 r9211 14 14 void GroundingLineMigrationx(Elements* elements,Nodes* nodes, Vertices* vertices,Loads* loads,Materials* materials, Parameters* parameters){ 15 15 16 17 16 int migration_style; 18 17 … … 27 26 else if(migration_style==NoneEnum) _printf_(true,"%s\n","NoneEnum supplied for migration style, doing nothing!"); 28 27 else _error_("%s not supported yet!",EnumToStringx(migration_style)); 29 30 28 } -
issm/trunk/src/c/modules/GroundingLineMigrationx/GroundingLineMigrationxUtils.cpp
r8816 r9211 10 10 #include "../../EnumDefinitions/EnumDefinitions.h" 11 11 12 void AgressiveMigration(Elements* elements,Nodes* nodes, Vertices* vertices,Loads* loads,Materials* materials, Parameters* parameters){ //{{{1 13 12 /*FUNCTION AgressiveMigration{{{1*/ 13 void AgressiveMigration(Elements* elements,Nodes* nodes, Vertices* vertices,Loads* loads,Materials* materials, Parameters* parameters){ 14 14 /*Here, whatever nodes inside the ice sheet want to unground, we allow -> instantaneous transmission of water through the bedrock: */ 15 15 16 int i ,j;16 int i; 17 17 Element* element=NULL; 18 18 … … 33 33 } 34 34 /*}}}*/ 35 36 void SoftMigration(Elements* elements,Nodes* nodes, Vertices* vertices,Loads* loads,Materials* materials, Parameters* parameters){ //{{{1 37 35 /*FUNCTION SoftMigration {{{1*/ 36 void SoftMigration(Elements* elements,Nodes* nodes, Vertices* vertices,Loads* loads,Materials* materials, Parameters* parameters){ 38 37 39 38 /*intermediary: */ … … 43 42 Element* element=NULL; 44 43 45 46 44 _printf_(VerboseModule()," Migrating grounding line\n"); 47 45 … … 71 69 } 72 70 /*}}}*/ 73 double* PotentialSheetUngrounding(Elements* elements,Nodes* nodes,Parameters* parameters){ //{{{1 71 /*FUNCTION PotentialSheetUngrounding {{{1*/ 72 double* PotentialSheetUngrounding(Elements* elements,Nodes* nodes,Parameters* parameters){ 74 73 75 74 int i; … … 106 105 } 107 106 /*}}}*/ 108 double* PropagateShelfIntoConnexIceSheet(Elements* elements,Nodes* nodes,Parameters* parameters,double* potential_sheet_ungrounding){ //{{{1 107 /*FUNCTION PropagateShelfIntoConnexIceSheet {{{1*/ 108 double* PropagateShelfIntoConnexIceSheet(Elements* elements,Nodes* nodes,Parameters* parameters,double* potential_sheet_ungrounding){ 109 109 110 110 int i; … … 166 166 } 167 167 /*}}}*/ 168 bool* CreateElementOnGroundingLine(Elements* elements,double* element_on_iceshelf){ //{{{1 168 /*FUNCTION CreateElementOnGroundingLine {{{1*/ 169 bool* CreateElementOnGroundingLine(Elements* elements,double* element_on_iceshelf){ 169 170 170 171 int i; … … 201 202 } 202 203 /*}}}*/ 203 double* CreateElementOnIceShelf(Elements* elements){ //{{{1 204 /*FUNCTION CreateElementOnIceShelf {{{1*/ 205 double* CreateElementOnIceShelf(Elements* elements){ 204 206 205 207 int i; … … 230 232 } 231 233 /*}}}*/ 232 double* CreateElementTouchingIceShelf(Elements* elements,Vec vec_nodes_on_iceshelf){ //{{{1 234 /*FUNCTION CreateElementTouchingIceShelf {{{1*/ 235 double* CreateElementTouchingIceShelf(Elements* elements,Vec vec_nodes_on_iceshelf){ 233 236 234 237 int i; … … 266 269 } 267 270 /*}}}*/ 268 int UpdateShelfStatus(Elements* elements,Nodes* nodes,Parameters* parameters,double* element_touching_iceshelf){//{{{1 271 /*FUNCTION UpdateShelfStatus {{{1*/ 272 int UpdateShelfStatus(Elements* elements,Nodes* nodes,Parameters* parameters,double* element_touching_iceshelf){ 269 273 270 274 int i; … … 313 317 } 314 318 /*}}}*/ 315 Vec CreateNodesOnIceShelf(Nodes* nodes,int configuration_type){ //{{{1 319 /*FUNCTION CreateNodesOnIceShelf {{{1*/ 320 Vec CreateNodesOnIceShelf(Nodes* nodes,int configuration_type){ 316 321 317 322 /*output: */ -
issm/trunk/src/c/modules/OutputResultsx/OutputResultsx.cpp
r8926 r9211 33 33 results=*presults; 34 34 35 36 35 /*We have results inside our elements, loads, etc ... Get them out of there, into the results dataset: */ 37 36 elements->ProcessResultsUnits(); 38 37 elements->ToResults(results,parameters,step,time); 39 38 elements->DeleteResults(); 40 41 39 42 40 /*Results do not include the type of solution being run . In parallel, we output results to a filename, … … 47 45 results->AddObject(new StringExternalResult(results->Size()+1,SolutionTypeEnum,EnumToStringx(solutiontype),1,0)); 48 46 } 49 50 47 51 48 /*Now, open file for writing, if not already done: */ … … 75 72 #endif 76 73 77 78 74 /*Write results to disk (in parallel), or to memory (in serial mode): */ 79 75 #ifdef _SERIAL_
Note:
See TracChangeset
for help on using the changeset viewer.