Changeset 12706 for issm/trunk/src/c/solutions/diagnostic_core.cpp
- Timestamp:
- 07/24/12 10:36:19 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
issm/trunk/src/c/solutions/diagnostic_core.cpp
r11995 r12706 59 59 if(ishutter){ 60 60 61 _printf_(VerboseSolution(),"%s\n"," computing hutter velocities");61 if(VerboseSolution()) _pprintLine_(" computing hutter velocities"); 62 62 63 63 //Take the last velocity into account so that the velocity on the MacAyeal domain is not zero … … 72 72 if (ismacayealpattyn ^ isstokes){ // ^ = xor 73 73 74 _printf_(VerboseSolution(),"%s\n"," computing velocities");74 if(VerboseSolution()) _pprintLine_(" computing velocities"); 75 75 femmodel->SetCurrentConfiguration(DiagnosticHorizAnalysisEnum); 76 76 if(isnewton) … … 82 82 if (ismacayealpattyn && isstokes){ 83 83 84 _printf_(VerboseSolution(),"%s\n"," computing coupling macayealpattyn and stokes velocities and pressure ");84 if(VerboseSolution()) _pprintLine_(" computing coupling macayealpattyn and stokes velocities and pressure "); 85 85 solver_stokescoupling_nonlinear(femmodel,conserve_loads); 86 86 } … … 88 88 if (dim==3 & (ishutter || ismacayealpattyn)){ 89 89 90 _printf_(VerboseSolution(),"%s\n"," computing vertical velocities");90 if(VerboseSolution()) _pprintLine_(" computing vertical velocities"); 91 91 femmodel->SetCurrentConfiguration(DiagnosticVertAnalysisEnum); 92 92 solver_linear(femmodel); … … 95 95 96 96 if(save_results){ 97 _printf_(VerboseSolution()," saving results\n");97 if(VerboseSolution()) _pprintLine_(" saving results"); 98 98 InputToResultx(femmodel->elements,femmodel->nodes,femmodel->vertices,femmodel->loads,femmodel->materials,femmodel->parameters,VxEnum); 99 99 InputToResultx(femmodel->elements,femmodel->nodes,femmodel->vertices,femmodel->loads,femmodel->materials,femmodel->parameters,VyEnum); … … 105 105 106 106 /*Free ressources:*/ 107 x free((void**)&requested_outputs);107 xDelete<int>(requested_outputs); 108 108 }
Note:
See TracChangeset
for help on using the changeset viewer.