[19049] | 1 | %Test Name: SquareSheetExtrudedHydrologyDCTwoLayers
|
---|
[16558] | 2 | md=triangle(model(),'../Exp/Square.exp',100000.);
|
---|
| 3 | md=setmask(md,'','');
|
---|
[17734] | 4 | md.transient=deactivateall(md.transient);
|
---|
| 5 | md.transient.ishydrology=1;
|
---|
[19529] | 6 | md.transient.issmb=1;
|
---|
[16558] | 7 | md=parameterize(md,'../Par/SquareSheetConstrained.par');
|
---|
| 8 | md=setflowequation(md,'SSA','all');
|
---|
| 9 | md.cluster=generic('name',oshostname(),'np',1);
|
---|
| 10 | md.hydrology=(hydrologydc);
|
---|
[17422] | 11 | md.hydrology=initialize(md.hydrology,md);
|
---|
[16558] | 12 | md.hydrology.isefficientlayer=1;
|
---|
| 13 | md.hydrology.sedimentlimit_flag=1;
|
---|
| 14 | md.hydrology.sedimentlimit=800.0;
|
---|
| 15 | md.initialization.sediment_head=0.0*ones(md.mesh.numberofvertices,1);
|
---|
| 16 | md.hydrology.spcsediment_head=NaN*ones(md.mesh.numberofvertices,1);
|
---|
[18068] | 17 | md.basalforcings.groundedice_melting_rate = 2.0*ones(md.mesh.numberofvertices,1);
|
---|
| 18 | md.basalforcings.floatingice_melting_rate = 0.0*ones(md.mesh.numberofvertices,1);
|
---|
[17023] | 19 | md.hydrology.sediment_transmitivity=3*ones(md.mesh.numberofvertices,1);
|
---|
[16558] | 20 |
|
---|
| 21 | md.initialization.epl_head=0.0*ones(md.mesh.numberofvertices,1);
|
---|
[17524] | 22 | md.initialization.epl_thickness=1.0*ones(md.mesh.numberofvertices,1);
|
---|
[16558] | 23 | md.hydrology.spcepl_head=NaN*ones(md.mesh.numberofvertices,1);
|
---|
[16856] | 24 | md.hydrology.mask_eplactive_node=0*ones(md.mesh.numberofvertices,1);
|
---|
[16649] | 25 | md.hydrology.epl_conductivity=30;
|
---|
[16730] | 26 | md.hydrology.epl_initial_thickness=1;
|
---|
[18582] | 27 | md.hydrology.epl_colapse_thickness=1.0e-3;
|
---|
[18983] | 28 | md.hydrology.epl_thick_comp=1;
|
---|
[17738] | 29 | md.hydrology.epl_max_thickness=1;
|
---|
[16558] | 30 | md.timestepping.time_step=0.2;
|
---|
| 31 | md.timestepping.final_time=2.0;
|
---|
| 32 |
|
---|
| 33 | %md.verbose.solution=1;
|
---|
| 34 | md=extrude(md,3,1.1);
|
---|
[21049] | 35 | md=solve(md,'TransientSolution');
|
---|
[16558] | 36 |
|
---|
| 37 | %store=md.constants.g*md.hydrology.sediment_porosity* ...
|
---|
| 38 | % md.materials.rho_freshwater*((md.hydrology.sediment_compressibility/md.hydrology.sediment_porosity)+md.hydrology.water_compressibility)
|
---|
| 39 |
|
---|
| 40 | %sed=ones(1,size(md.results.HydrologySolution,2));
|
---|
| 41 | %epl=ones(1,size(md.results.HydrologySolution,2));
|
---|
| 42 | %res=ones(1,size(md.results.HydrologySolution,2));
|
---|
| 43 | %input=ones(1,size(md.results.HydrologySolution,2));
|
---|
| 44 | %for i= 1:size(md.results.HydrologySolution,2)
|
---|
| 45 | % sed(i)=mean(md.results.HydrologySolution(i).SedimentHead);
|
---|
| 46 | % res(i)=mean(md.results.HydrologySolution(i).SedimentHeadResidual);
|
---|
| 47 | % epl(i)=mean(md.results.HydrologySolution(i).EplHead);
|
---|
| 48 | % input(i)=2.0*(i*0.2);
|
---|
| 49 | %end
|
---|
| 50 |
|
---|
| 51 | %Fields and tolerances to track changes
|
---|
| 52 | field_names ={'SedimentWaterHead1','EplWaterHead1','SedimentHeadResidual1',...
|
---|
[17752] | 53 | 'SedimentWaterHead4','EplWaterHead4','SedimentHeadResidual4',...
|
---|
| 54 | 'SedimentWaterHead5','EplWaterHead5','SedimentHeadResidual5',...
|
---|
| 55 | 'SedimentWaterHead9','EplWaterHead9','SedimentHeadResidual9'};
|
---|
[16558] | 56 | field_tolerances={1e-13, 1e-13, 1e-13,...
|
---|
[17752] | 57 | 1e-13, 1e-13, 1e-13,...
|
---|
[20662] | 58 | 1e-13, 5e-12, 2e-11,...
|
---|
| 59 | 1e-13, 5e-12, 2e-11};
|
---|
[17734] | 60 | field_values={md.results.TransientSolution(1).SedimentHead, ...
|
---|
| 61 | md.results.TransientSolution(1).EplHead,...
|
---|
| 62 | md.results.TransientSolution(1).SedimentHeadResidual,...
|
---|
| 63 | md.results.TransientSolution(4).SedimentHead,...
|
---|
| 64 | md.results.TransientSolution(4).EplHead,...
|
---|
| 65 | md.results.TransientSolution(4).SedimentHeadResidual, ...
|
---|
| 66 | md.results.TransientSolution(5).SedimentHead,...
|
---|
| 67 | md.results.TransientSolution(5).EplHead,...
|
---|
| 68 | md.results.TransientSolution(5).SedimentHeadResidual, ...
|
---|
| 69 | md.results.TransientSolution(9).SedimentHead,...
|
---|
| 70 | md.results.TransientSolution(9).EplHead,...
|
---|
| 71 | md.results.TransientSolution(9).SedimentHeadResidual};
|
---|