source: issm/trunk/test/Validation/ThermalTests/Simpleadvection/Square.par@ 4876

Last change on this file since 4876 was 4876, checked in by seroussi, 15 years ago

Validation tests Thermaltests

  • Property svn:executable set to *
File size: 1.6 KB
Line 
1%Ok, start defining model parameters here
2
3%parallelization
4md.cluster='none';
5md.dt=0;
6
7disp(' creating thickness');
8h=1000;
9md.thickness=h*ones(md.numberofgrids,1);
10md.firn_layer=10*ones(md.numberofgrids,1);
11md.bed=-1000*ones(md.numberofgrids,1);
12md.surface=md.bed+md.thickness;
13
14disp(' creating velocities');
15md.vx_obs=zeros(md.numberofgrids,1);
16md.vy_obs=zeros(md.numberofgrids,1);
17md.vel_obs=sqrt(md.vx_obs.^2+md.vy_obs.^2);
18
19disp(' creating drag');
20md.drag_type=2; %0 none 1 plastic 2 viscous
21md.drag_coefficient=200*ones(md.numberofgrids,1); %q=1.
22%Take care of iceshelves: no basal drag
23pos=find(md.elementoniceshelf);
24md.drag_coefficient(md.elements(pos,:))=0;
25md.drag_p=ones(md.numberofelements,1);
26md.drag_q=ones(md.numberofelements,1);
27
28disp(' creating temperatures');
29md.observed_temperature=(273-20)*ones(md.numberofgrids,1);
30
31disp(' creating flow law paramter');
32md.rheology_B=paterson(md.observed_temperature);
33md.rheology_n=3*ones(md.numberofelements,1);
34
35disp(' creating accumulation rates');
36md.accumulation_rate=ones(md.numberofgrids,1)/md.yts; %1m/a
37md.melting_rate=0*ones(md.numberofgrids,1)/md.yts; %1m/a
38
39%Deal with boundary conditions:
40disp(' boundary conditions for diagnostic model');
41md=SetMarineIceSheetBC(md,'Front.exp');
42
43disp(' boundary conditions for thermal model');
44md.temperature=md.observed_temperature;
45md.spctemperature(:,1)=ones(md.numberofgrids,1); %surface temperature
46md.spctemperature(:,2)=md.observed_temperature;
47md.geothermalflux=zeros(md.numberofgrids,1);
48pos=find(md.elementonicesheet);md.geothermalflux(md.elements(pos,:))=50*10^-3; %50 mW/m^2
49
50disp(' cluster properties');
51md.np=3;
Note: See TracBrowser for help on using the repository browser.