md=mesh(model,'../Exp/Square.exp',150000);
md=meshconvert(md);
md=geography(md,'all','');
md=parameterize(md,'../Par/SquareShelfConstrained.par');
%Add boundary conditions on thickness on the border
pos=find(md.gridonboundary);
md.spcthickness(pos,1)=1;
md.spcthickness(pos,2)=md.thickness(pos);
md.prognostic_DG=1;
md=setelementstype(md,'macayeal','all');
md.cluster='none';
md=solve(md,'analysis_type',BalancedthicknessSolutionEnum);