source: issm/trunk/test/NightlyRun/test2082.m@ 15396

% Benchmark experiments (Figure A2d Ivins and James, 1999, Geophys. J. Int.) 
md=triangle(model(),'../Exp/RoundFrontEISMINT.exp',200000.);
md=setmask(md,'','');
md=parameterize(md,'../Par/GiaBenchmarksCD.par');

%% indicate what you want to compute 
md.gia.cross_section_shape=2;    % for elliptical edge 

%% define loading history 
md.timestepping.start_time=1000.3;  % for t \approx 1 kyr 
md.timestepping.final_time=2500000; % 2,500 kyr
md.geometry.thickness=[...
        [md.geometry.thickness*0.0; 0.0],...
        [md.geometry.thickness/2.0; 0.1],...
        [md.geometry.thickness; 0.2],...
        [md.geometry.thickness; md.timestepping.start_time],...
        ];

%% solve for GIA deflection 
md.cluster=generic('name',oshostname(),'np',3);
md.verbose=verbose('1111111');
md=solve(md,GiaSolutionEnum());

%Fields and tolerances to track changes
field_names     ={'GiaW','GiadWdt'};
field_tolerances={1e-13,1e-13};
field_values={...
        (md.results.GiaSolution.GiaW),...
        (md.results.GiaSolution.GiadWdt),...
        };