source: issm/trunk-jpl/test/NightlyRun/test272.m@ 16161

Last change on this file since 16161 was 16161, checked in by cborstad, 12 years ago

BUG: forgot to set flag for damage

File size: 1.7 KB
Line 
1md=triangle(model(),'../Exp/Square.exp',150000.);
2md=setmask(md,'all','');
3md=parameterize(md,'../Par/SquareShelf.par');
4md.materials=matdamageice();
5md.materials.rheology_B=paterson(md.initialization.temperature);
6md.materials.rheology_n=3.*ones(md.mesh.numberofelements,1);
7md.damage.isdamage=1;
8md.damage.D=0.5*ones(md.mesh.numberofvertices,1);
9md=setflowequation(md,'SSA','all');
10md.verbose=verbose('control',true);
11
12%control parameters
13md.inversion.iscontrol=1;
14md.inversion.control_parameters={'MaterialsDamageDbar'};
15md.inversion.min_parameters=zeros(md.mesh.numberofvertices,1);
16md.inversion.max_parameters=(1-10^-13)*ones(md.mesh.numberofvertices,1);
17md.inversion.nsteps=2;
18md.inversion.cost_functions=101.*ones(md.inversion.nsteps,1);
19md.inversion.cost_functions_coefficients=ones(md.mesh.numberofvertices,1);
20md.inversion.gradient_scaling=0.9*ones(md.inversion.nsteps,1);
21md.inversion.maxiter_per_step=2.*ones(md.inversion.nsteps,1);
22md.inversion.step_threshold=0.99*ones(md.inversion.nsteps,1);
23md.inversion.vx_obs=md.initialization.vx;
24md.inversion.vy_obs=md.initialization.vy;
25
26md.cluster=generic('name',oshostname(),'np',3);
27md=solve(md,StressbalanceSolutionEnum());
28
29%Fields and tolerances to track changes
30field_names ={'Gradient','Misfits','MaterialsDamageDbar','Pressure','Vel','Vx','Vy'};
31field_tolerances={1e-12,1e-12,1e-12,1e-12,1e-12,1e-12,1e-12,1e-12,1e-12,1e-12};
32field_values={...
33 (md.results.StressbalanceSolution.Gradient1),...
34 (md.results.StressbalanceSolution.J),...
35 (md.results.StressbalanceSolution.MaterialsDamageDbar),...
36 (md.results.StressbalanceSolution.Pressure),...
37 (md.results.StressbalanceSolution.Vel),...
38 (md.results.StressbalanceSolution.Vx),...
39 (md.results.StressbalanceSolution.Vy)
40};
Note: See TracBrowser for help on using the repository browser.