1 | md=triangle(model,'../Exp/Square.exp',350000);
|
---|
2 | md=setmask(md,'../Exp/SquareShelf.exp','');
|
---|
3 | md=parameterize(md,'../Par/SquareSheetShelf.par');
|
---|
4 | md.cluster=none;
|
---|
5 | md.initialization.vx(:)=0;
|
---|
6 | md.initialization.vy(:)=0;
|
---|
7 | md.initialization.vel(:)=0;
|
---|
8 | md.geometry.bed=-700-abs(md.mesh.y-500000)/1000;
|
---|
9 | md.geometry.bathymetry=-700-abs(md.mesh.y-500000)/1000;
|
---|
10 | md.geometry.thickness(:)=1000;
|
---|
11 | md.geometry.surface=md.geometry.bed+md.geometry.thickness;
|
---|
12 | md.surfaceforcings.mass_balance(:)=100;
|
---|
13 | md=extrude(md,3,1);
|
---|
14 | md=setflowequation(md,'macayeal','all');
|
---|
15 |
|
---|
16 | md.transient.isdiagnostic=0;
|
---|
17 | md.transient.isgroundingline=1;
|
---|
18 | md.groundingline.migration='AgressiveMigration';
|
---|
19 | md.cluster=generic('name',oshostname(),'np',3);
|
---|
20 |
|
---|
21 | md=solve(md,TransientSolutionEnum);
|
---|
22 |
|
---|
23 | %Fields and tolerances to track changes
|
---|
24 | field_names ={'Bed1','Surface1','Thickness1','Floatingice1',...
|
---|
25 | 'Bed2','Surface2','Thickness2','Floatingice2',...
|
---|
26 | 'Bed3','Surface3','Thickness3','Floatingice3'};
|
---|
27 | field_tolerances={1e-13,1e-13,1e-13,1e-13,...
|
---|
28 | 1e-11,1e-11,1e-11,1e-13,...
|
---|
29 | 1e-10,1e-10,1e-10,1e-13};
|
---|
30 | field_values={...
|
---|
31 | (md.results.TransientSolution(1).Bed),...
|
---|
32 | (md.results.TransientSolution(1).Surface),...
|
---|
33 | (md.results.TransientSolution(1).Thickness),...
|
---|
34 | (md.results.TransientSolution(1).MaskElementonfloatingice),...
|
---|
35 | (md.results.TransientSolution(2).Bed),...
|
---|
36 | (md.results.TransientSolution(2).Surface),...
|
---|
37 | (md.results.TransientSolution(2).Thickness),...
|
---|
38 | (md.results.TransientSolution(2).MaskElementonfloatingice),...
|
---|
39 | (md.results.TransientSolution(3).Bed),...
|
---|
40 | (md.results.TransientSolution(3).Surface),...
|
---|
41 | (md.results.TransientSolution(3).Thickness),...
|
---|
42 | (md.results.TransientSolution(3).MaskElementonfloatingice),...
|
---|
43 | };
|
---|