source: issm/trunk-jpl/test/NightlyRun/test1203.m@ 19049

Last change on this file since 19049 was 19049, checked in by Mathieu Morlighem, 10 years ago

NEW: test name is now included in the file itself so that people don't forget to include it

File size: 1.7 KB
Line 
1%Test Name: EISMINTStress2
2%Test on the stressbalance model and the masstransport in 2d
3printingflag=false;
4
5%test 5 and 6:
6md=model();
7md=triangle(md,'../Exp/SquareEISMINT.exp',5100.); %test3
8md=setmask(md,'all','');
9md=parameterize(md,'../Par/SquareEISMINT.par');
10md=setflowequation(md,'SSA','all'); %SSA's model and 2d
11
12%Impose a non zero velocity on the upper boundary condition (y=max(y))
13pos=find(md.mesh.y==max(md.mesh.y));
14md.stressbalance.spcvy(pos)=400.*(((md.mesh.x(pos)-100000.)/25000.).^2-ones(size(pos,1),1)).*heaviside((1.+eps)*ones(size(pos,1),1)-((md.mesh.x(pos)-100000.)/25000.).^2);
15
16%Compute solution for SSA's model
17md.cluster=generic('name',oshostname(),'np',8);
18md=solve(md,StressbalanceSolutionEnum());
19
20vx=(md.results.StressbalanceSolution.Vx);
21vy=(md.results.StressbalanceSolution.Vy);
22
23%plot results
24plotmodel(md,'data',vx,'contourlevels',{0,20,40,60,80,100,-20,-40,-60,-80,-100},...
25 'contourcolor','k')
26if printingflag,
27 set(gcf,'Color','w')
28 printmodel('eismintdiag2vx','png','margin','on','marginsize',25,'frame','off','resolution',2,'hardcopy','off');
29 system(['mv eismintdiag2vx.png ' ISSM_DIR '/website/doc_pdf/validation/Images/EISMINT/IceShelf ']);
30end
31plotmodel(md,'data',vy,'contourlevels',{-100,-200,-300,-400,-500,-600,-700,-800,-900,-1000},...
32 'contourcolor','k')
33if printingflag,
34 set(gcf,'Color','w')
35 printmodel('eismintdiag2vy','png','margin','on','marginsize',25,'frame','off','resolution',2,'hardcopy','off');
36 system(['mv eismintdiag2vy.png ' ISSM_DIR '/website/doc_pdf/validation/Images/EISMINT/IceShelf ']);
37end
38
39%Fields and tolerances to track changes
40field_names ={'Vx','Vy'};
41field_tolerances={1e-13,1e-13};
42field_values={...
43 vx, ...
44 vy, ...
45 };
Note: See TracBrowser for help on using the repository browser.