source: issm/trunk/test/NightlyRun/test263.m@ 9023

Last change on this file since 9023 was 9023, checked in by seroussi, 14 years ago

added NP for temperature forcing

File size: 1.1 KB
RevLine 
[9023]1md=mesh(model,'../Exp/Square.exp',180000);
2md=geography(md,'all','');
3md=parameterize(md,'../Par/SquareShelf.par');
4md=extrude(md,3,1);
5md=setelementstype(md,'macayeal','all');
6md.cluster=none;
7md.spctemperature=[md.spctemperature, md.spctemperature+5, md.spctemperature+10, md.spctemperature+15; 1.5 2.5 3.5 4];
8md.dt=1;
9md.ndt=4;
10md=solve(md,ThermalSolutionEnum);
11
12%Fields and tolerances to track changes
13field_names ={'Temperature1','BasalMeltingRate1','Temperature2','BasalMeltingRate2','Temperature3','BasalMeltingRate3','Temperature4','BasalMeltingRate4'};
14field_tolerances={1e-13,1e-13,1e-13,1e-13,1e-13,1e-13,1e-13,1e-13};
15field_values={...
16 PatchToVec(md.results.ThermalSolution(1).Temperature),...
17 PatchToVec(md.results.ThermalSolution(1).BasalMeltingRate),...
18 PatchToVec(md.results.ThermalSolution(2).Temperature),...
19 PatchToVec(md.results.ThermalSolution(2).BasalMeltingRate),...
20 PatchToVec(md.results.ThermalSolution(3).Temperature),...
21 PatchToVec(md.results.ThermalSolution(3).BasalMeltingRate),...
22 PatchToVec(md.results.ThermalSolution(4).Temperature),...
23 PatchToVec(md.results.ThermalSolution(4).BasalMeltingRate),...
24 };
Note: See TracBrowser for help on using the repository browser.