Context Navigation

pentaelem.m@ 120

Last change on this file since 120 was 120, checked in by Mathieu Morlighem, 16 years ago
moved viscosity_overshoot in the element
File size: 1.2 KB

Rev	Line
[1]	1	function pentaelem = pentaelem(varargin)
	2	%PENTAELEM - contructor for pentaelem objects
	3	%
	4	% Usage:
	5	% pentaelem = pentaelem(varargin)
	6
	7	switch nargin
	8	case 0
	9	% if no input arguments, create a default object
	10	pentaelem.type='pentaelem';
	11	pentaelem.id=NaN;
	12	pentaelem.matid=NaN;
	13	pentaelem.g=zeros(6,1);
	14	pentaelem.h=zeros(6,1);
	15	pentaelem.s=zeros(6,1);
	16	pentaelem.b=zeros(6,1);
	17	pentaelem.friction_type=2;
[120]	18	pentaelem.viscosity_overshoot=0;
[1]	19	pentaelem.k=zeros(6,1);
	20	pentaelem.p=1;
	21	pentaelem.q=1;
	22	pentaelem.shelf=NaN;
	23	pentaelem.onbed=NaN;
	24	pentaelem.onsurface=NaN;
	25	pentaelem.meanvel=NaN;
	26	pentaelem.epsvel=NaN;
	27	pentaelem.collapse=0;
	28	pentaelem.melting=zeros(6,1);
	29	pentaelem.accumulation=zeros(6,1);
	30	pentaelem.geothermalflux=zeros(6,1);
	31	pentaelem.artificial_diffusivity='no';
	32	pentaelem.thermal_steadystate=1;
	33	pentaelem.reconditioning_number=NaN;
	34
	35	pentaelem=class(pentaelem,'pentaelem');
	36
	37	case 1
	38	%If single argument of class pentaelem, we have a copy constructor.
	39	if (isa(varargin{1},'pentaelem'))
	40	pentaelem = varargin{1};
	41	else
	42	error('pentaelem constructor error message: copy constructor called on a non ''pentaelem'' class object');
	43	end
	44	otherwise
	45	error('pentaelem constructor error message: 0 of 1 argument only in input.');
	46	end

Note: See TracBrowser for help on using the repository browser.