Changeset 1854
- Timestamp:
- 08/24/09 18:25:11 (16 years ago)
- Location:
- issm/trunk/src/c
- Files:
-
- 6 edited
Legend:
- Unmodified
- Added
- Removed
-
issm/trunk/src/c/Makefile.am
r1805 r1854 21 21 ./objects/Element.h\ 22 22 ./objects/Element.cpp\ 23 ./objects/Model.h\ 24 ./objects/Model.cpp\ 23 25 ./objects/Material.h\ 24 26 ./objects/Material.cpp\ … … 167 169 ./io/ParallelFetchScalar.cpp\ 168 170 ./io/ParallelFetchString.cpp\ 169 ./io/ ModelFetchData.cpp\171 ./io/IoModelFetchData.cpp\ 170 172 ./io/WriteNodeSets.cpp\ 171 173 ./io/WriteParams.cpp\ … … 177 179 ./EnumDefinitions/EnumDefinitions.cpp\ 178 180 ./EnumDefinitions/AnalysisTypeAsEnum.cpp\ 179 ./ModelProcessorx/ Model.h\180 ./ModelProcessorx/ Model.cpp\181 ./ModelProcessorx/IoModel.h\ 182 ./ModelProcessorx/IoModel.cpp\ 181 183 ./ModelProcessorx/CreateDataSets.cpp\ 182 184 ./ModelProcessorx/CreateParameters.cpp\ … … 314 316 ./objects/Element.h\ 315 317 ./objects/Element.cpp\ 318 ./objects/Model.h\ 319 ./objects/Model.cpp\ 316 320 ./objects/Material.h\ 317 321 ./objects/Material.cpp\ … … 458 462 ./io/ParallelFetchScalar.cpp\ 459 463 ./io/ParallelFetchString.cpp\ 460 ./io/ ModelFetchData.cpp\464 ./io/IoModelFetchData.cpp\ 461 465 ./io/WriteNodeSets.cpp\ 462 466 ./io/WriteParams.cpp\ … … 468 472 ./EnumDefinitions/EnumDefinitions.cpp\ 469 473 ./EnumDefinitions/AnalysisTypeAsEnum.cpp\ 470 ./ModelProcessorx/ Model.h\471 ./ModelProcessorx/ Model.cpp\474 ./ModelProcessorx/IoModel.h\ 475 ./ModelProcessorx/IoModel.cpp\ 472 476 ./ModelProcessorx/CreateDataSets.cpp\ 473 477 ./ModelProcessorx/CreateParameters.cpp\ … … 601 605 ./parallel/transient_core_3d.cpp\ 602 606 ./parallel/thermalstatic_core.cpp\ 603 ./parallel/OutputResults.cpp\ 604 ./parallel/OutputControl.cpp 607 ./parallel/OutputResults.cpp 605 608 606 609 libpISSM_a_CXXFLAGS = -fPIC -D_PARALLEL_ -D_C_ -
issm/trunk/src/c/ModelProcessorx/CreateParameters.cpp
r1838 r1854 211 211 ; 212 212 /*numrifts: */ 213 ModelFetchData((void**)&model->riftinfo,&model->numrifts,NULL,model_handle,"riftinfo","Matrix","Mat");213 IoModelFetchData((void**)&iomodel->riftinfo,&iomodel->numrifts,NULL,iomodel_handle,"riftinfo","Matrix","Mat"); 214 214 count++; 215 215 param= new Param(count,"numrifts",INTEGER); 216 param->SetInteger( model->numrifts);217 parameters->AddObject(param); 218 xfree((void**)& model->riftinfo);216 param->SetInteger(iomodel->numrifts); 217 parameters->AddObject(param); 218 xfree((void**)&iomodel->riftinfo); 219 219 220 220 /*All our datasets are already ordered by ids. Set presort flag so that later on, when sorting is requested on these -
issm/trunk/src/c/ModelProcessorx/DiagnosticHoriz/CreateLoadsDiagnosticHoriz.cpp
r1832 r1854 55 55 double riftfront_friction; 56 56 double riftfront_fraction; 57 double riftfront_fractionincrement; 57 58 bool riftfront_shelf; 58 59 double riftfront_penalty_offset; … … 68 69 double friction; 69 70 double fraction; 71 double fractionincrement; 70 72 71 73 /*Create loads: */ … … 186 188 friction=*(iomodel->riftinfo+RIFTINFOSIZE*i+8); 187 189 fraction=*(iomodel->riftinfo+RIFTINFOSIZE*i+9); 188 fractionincrement=*( model->riftinfo+RIFTINFOSIZE*i+10);190 fractionincrement=*(iomodel->riftinfo+RIFTINFOSIZE*i+10); 189 191 190 192 strcpy(riftfront_type,"2d"); … … 211 213 riftfront_fraction=fraction; 212 214 riftfront_fractionincrement=fractionincrement; 213 riftfront_shelf=(bool) model->gridoniceshelf[grid1-1];215 riftfront_shelf=(bool)iomodel->gridoniceshelf[grid1-1]; 214 216 215 217 riftfront_penalty_offset=iomodel->penalty_offset; … … 220 222 riftfront_prestable=0; 221 223 222 riftfront=new Riftfront(riftfront_type,riftfront_id, riftfront_node_ids, riftfront_mparid, riftfront_h,riftfront_b,riftfront_s,riftfront_normal,riftfront_length,riftfront_fill,riftfront_friction, riftfront_fraction, riftfront_ penalty_offset, riftfront_penalty_lock, riftfront_active,riftfront_counter,riftfront_prestable,riftfront_shelf);224 riftfront=new Riftfront(riftfront_type,riftfront_id, riftfront_node_ids, riftfront_mparid, riftfront_h,riftfront_b,riftfront_s,riftfront_normal,riftfront_length,riftfront_fill,riftfront_friction, riftfront_fraction, riftfront_fractionincrement, riftfront_penalty_offset, riftfront_penalty_lock, riftfront_active,riftfront_counter,riftfront_prestable,riftfront_shelf); 223 225 224 226 loads->AddObject(riftfront); -
issm/trunk/src/c/parallel/ControlInitialization.cpp
r1829 r1854 97 97 //horizontal velocity 98 98 if(debug)_printf_("%s\n"," computing horizontal velocities..."); 99 diagnostic_core_nonlinear(&ug,NULL,NULL, fem_dh,inputs,DiagnosticAnalysisEnum(),HorizAnalysisEnum());99 diagnostic_core_nonlinear(&ug,NULL,NULL,NULL,fem_dh,inputs,DiagnosticAnalysisEnum(),HorizAnalysisEnum()); 100 100 if(debug)_printf_("%s\n"," extruding horizontal velocities..."); 101 101 VecDuplicatePatch(&ug_horiz,ug); FieldExtrudex( ug_horiz,fem_dh->elements,fem_dh->nodes, fem_dh->loads,fem_dh-> materials,"velocity",1); -
issm/trunk/src/c/parallel/objectivefunctionC.cpp
r1825 r1854 90 90 if(!thermalstatic){ 91 91 //Run diagnostic with updated parameters. 92 diagnostic_core_nonlinear(&u_g,NULL,NULL, femmodel,inputs,DiagnosticAnalysisEnum(),sub_analysis_type);92 diagnostic_core_nonlinear(&u_g,NULL,NULL,NULL,femmodel,inputs,DiagnosticAnalysisEnum(),sub_analysis_type); 93 93 VecToMPISerial(&u_g_double,u_g); VecFree(&u_g); 94 94 } -
issm/trunk/src/c/parallel/parallel.h
r1814 r1854 20 20 void thermalstatic_core(DataSet* results,Model* model, ParameterInputs* inputs); 21 21 22 void diagnostic_core_nonlinear(Vec* pug,Mat* pK_ff0,Mat* pK_fs0, FemModel* fem,ParameterInputs* inputs,int analysis_type,int sub_analysis_type);22 void diagnostic_core_nonlinear(Vec* pug,Mat* pK_ff0,Mat* pK_fs0, DataSet* loads, FemModel* fem,ParameterInputs* inputs,int analysis_type,int sub_analysis_type); 23 23 void diagnostic_core_linear(Vec* ppg,FemModel* fem,ParameterInputs* inputs,int analysis_type,int sub_analysis_type); 24 24 void convergence(int* pconverged, Mat K_ff,Vec p_f,Vec u_f,Vec u_f_old,DataSet* parameters);
Note:
See TracChangeset
for help on using the changeset viewer.