Changeset 320
- Timestamp:
- 05/08/09 11:58:37 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
issm/trunk/src/c/parallel/control.cpp
r246 r320 90 90 femmodel.parameters->FindParam((void*)&mincontrolconstraint,"mincontrolconstraint"); 91 91 femmodel.parameters->FindParam((void*)&maxcontrolconstraint,"maxcontrolconstraint"); 92 femmodel.parameters->FindParam((void*)&gsize,"gsize");93 92 femmodel.parameters->FindParam((void*)&p_g,"p_g"); 94 93 femmodel.parameters->FindParam((void*)&u_g_obs,"u_g_obs"); 94 gsize=femmodel.nodes->NumberOfDofs(); 95 95 96 96 /*Initialize misfit: */ … … 98 98 99 99 /*Initialize inputs:*/ 100 101 100 femmodel.parameters->FindParam((void*)&u_g_initial,"u_g"); 102 101 femmodel.parameters->FindParam((void*)&numberofnodes,"numberofnodes"); … … 123 122 inputs->Add("fit",fit[n]); 124 123 124 /*Update parameters: */ 125 UpdateFromInputsx(femmodel.elements,femmodel.nodes,femmodel.loads, femmodel.materials,inputs); 126 125 127 _printf_("%s\n"," computing gradJ..."); 126 128 grad_g=GradJCompute(inputs,&femmodel,u_g_obs); 127 129 _printf_("%s\n"," done."); 128 130 129 130 131 _printf_("%s\n"," normalizing directions..."); 131 132 Orthx(&new_grad_g,grad_g,grad_g_old); … … 134 135 VecToMPISerial(&grad_g_double,grad_g); 135 136 _printf_("%s\n"," done."); 136 137 137 138 138 _printf_("%s\n"," optimizing along gradient direction..."); … … 170 170 inputs->Add(control_type,p_g,2,numberofnodes); 171 171 inputs->Add("fit",fit[n]); 172 173 /*Update parameters: */ 174 UpdateFromInputsx(femmodel.elements,femmodel.nodes,femmodel.loads, femmodel.materials,inputs); 172 175 173 176 diagnostic_core_nonlinear(&u_g,NULL,NULL,inputs,&femmodel); … … 188 191 PetscFinalize(); 189 192 190 191 193 /*end module: */ 192 194 MODULEEND();
Note:
See TracChangeset
for help on using the changeset viewer.