1 | %Ok, start defining model parameters here
|
---|
2 |
|
---|
3 | disp(' creating thickness');
|
---|
4 | hmin=300;
|
---|
5 | hmax=1000;
|
---|
6 | ymin=min(md.y);
|
---|
7 | ymax=max(md.y);
|
---|
8 | md.thickness=hmax+(hmin-hmax)*(md.y-ymin)/(ymax-ymin);
|
---|
9 | md.firn_layer=10*ones(md.numberofgrids,1);
|
---|
10 | md.bed=-md.rho_ice/md.rho_water*md.thickness+10;
|
---|
11 | md.surface=md.bed+md.thickness;
|
---|
12 |
|
---|
13 | disp(' creating drag');
|
---|
14 | md.drag_type=2; %0 none 1 plastic 2 viscous
|
---|
15 | md.drag_coefficient=200*ones(md.numberofgrids,1); %q=1.
|
---|
16 | %Take care of iceshelves: no basal drag
|
---|
17 | pos=find(md.elementoniceshelf);
|
---|
18 | md.drag_coefficient(md.elements(pos,:))=0;
|
---|
19 | md.drag_p=ones(md.numberofelements,1);
|
---|
20 | md.drag_q=ones(md.numberofelements,1);
|
---|
21 |
|
---|
22 | disp(' creating temperature');
|
---|
23 | md.observed_temperature=(273-20)*ones(md.numberofgrids,1);
|
---|
24 |
|
---|
25 | disp(' creating flow law paramter');
|
---|
26 | md.rheology_B=paterson(md.observed_temperature);
|
---|
27 | md.rheology_n=3*ones(md.numberofelements,1);
|
---|
28 |
|
---|
29 | %Deal with boundary conditions:
|
---|
30 | disp(' boundary conditions for diagnostic model: ');
|
---|
31 | md=SetMarineIceSheetBC(md,'Front.exp');
|
---|
32 |
|
---|
33 | %Parallel options
|
---|
34 | md.np=3;
|
---|
35 | md.time=50;
|
---|
36 | md.waitonlock=10;
|
---|