source: issm/trunk-jpl/test/NightlyRun/test257.m@ 26526

%Test Name: SquareShelfSMBautoregression
md=triangle(model(),'../Exp/Square.exp',80000.);
md=setmask(md,'all','');
md=parameterize(md,'../Par/SquareShelfConstrained.par');
md=setflowequation(md,'SSA','all');
md.cluster=generic('name',oshostname(),'np',3);
md.transient.requested_outputs={'default','IceVolume','SmbMassBalance',};

ymax = max(md.mesh.y);
xmax = max(md.mesh.x);
%Generate basin IDs for 3 basins
idbasin      = zeros(md.mesh.numberofelements,1);
iid1         = find(md.mesh.y>=2/3*ymax);
iid2         = intersect(find(md.mesh.y<2/3*ymax),find(md.mesh.x>=1/3*xmax));
iid3         = intersect(find(md.mesh.y<2/3*ymax),find(md.mesh.x<1/3*xmax));
for ii=1:md.mesh.numberofelements
    for vertex=1:3
        if any(iid1==md.mesh.elements(ii,vertex)) %one vertex in basin 1
            idbasin(ii) = 1;
        end
    end
    if idbasin(ii)==0 %no vertex was found in basin 1
        for vertex=1:3
            if any(iid2==md.mesh.elements(ii,vertex)) %one vertex in basin 2
                idbasin(ii) = 2;
            end
        end
    end
    if idbasin(ii)==0 %no vertex was found in basin 1 and 2
        idbasin(ii) = 3;
    end
end

%SMB parameters
md.timestepping.start_time = 0;
md.timestepping.time_step  = 1;
md.timestepping.final_time = 5;
md.smb                = SMBautoregression();
md.smb.num_basins     = 3; %number of basins
md.smb.basin_id       = idbasin; %prescribe basin ID number to elements
md.smb.beta0          = [0.5,1.2,1.5]; %intercept values of SMB in basins [m ice eq./yr]
md.smb.beta1          = [0.0,0.01,-0.01]; %trend values of SMB in basins [m ice eq./yr^2]
md.smb.ar_initialtime = md.timestepping.start_time;
md.smb.ar_order       = 4;
md.smb.ar_timestep    = 2.0; %timestep of the autoregressive model [yr]
md.smb.phi            = [[0.2,0.1,0.05,0.01];[0.4,0.2,-0.2,0.1];[0.4,-0.4,0.1,-0.1]];

%Stochastic forcing
md.stochasticforcing.isstochasticforcing = 1;
md.stochasticforcing.fields              = [{'SMBautoregression'}];
md.stochasticforcing.dimensions          = [md.smb.num_basins]; %dimension of each field
md.stochasticforcing.covariance          = [[0.15 0.08 -0.02];[0.08 0.12 -0.05];[-0.02 -0.05 0.1]]; %global covariance among- and between-fields
md.stochasticforcing.randomflag          = 0; %fixed random seeds

md=solve(md,'Transient');

%Fields and tolerances to track changes
field_names     ={'Vx1','Vy1','Vel1','Thickness1','Volume1','SmbMassBalance1','Vx2','Vy2','Vel2','Thickness2','Volume2','SmbMassBalance2','Vx3','Vy3','Vel3','Thickness3','Volume3','SmbMassBalance3'};
field_tolerances={1e-13,1e-13,1e-13,1e-13,1e-13,1e-13,...
                                                1e-13,1e-13,1e-13,1e-13,1e-13,1e-13...
                                                1e-13,1e-13,1e-13,1e-13,1e-13,1e-13};
field_values={...
        (md.results.TransientSolution(1).Vx),...
        (md.results.TransientSolution(1).Vy),...
        (md.results.TransientSolution(1).Vel),...
        (md.results.TransientSolution(1).Pressure),...
        (md.results.TransientSolution(1).Base),...
        (md.results.TransientSolution(1).Surface),...
        (md.results.TransientSolution(1).Thickness),...
        (md.results.TransientSolution(1).IceVolume),...
    (md.results.TransientSolution(1).SmbMassBalance),...
        (md.results.TransientSolution(2).Vx),...
        (md.results.TransientSolution(2).Vy),...
        (md.results.TransientSolution(2).Vel),...
        (md.results.TransientSolution(2).Pressure),...
        (md.results.TransientSolution(2).Base),...
        (md.results.TransientSolution(2).Surface),...
        (md.results.TransientSolution(2).Thickness),...
        (md.results.TransientSolution(2).IceVolume),...
    (md.results.TransientSolution(2).SmbMassBalance),...
        (md.results.TransientSolution(3).Vx),...
        (md.results.TransientSolution(3).Vy),...
        (md.results.TransientSolution(3).Vel),...
        (md.results.TransientSolution(3).Pressure),...
        (md.results.TransientSolution(3).Base),...
        (md.results.TransientSolution(3).Surface),...
        (md.results.TransientSolution(3).Thickness),...
        (md.results.TransientSolution(3).IceVolume),...
    (md.results.TransientSolution(3).SmbMassBalance),...
        };