0001 function matpar = matpar(varargin)
0002
0003
0004
0005
0006
0007 switch nargin
0008 case 0
0009
0010 matpar.rho_ice=NaN;
0011 matpar.rho_water=NaN;
0012 matpar.heatcapacity=NaN;
0013 matpar.thermalconductivity=NaN;
0014 matpar.meltingpoint=NaN;
0015 matpar.latentheat=NaN;
0016 matpar.beta=NaN;
0017 matpar.mixed_layer_capacity=NaN;
0018 matpar.thermal_exchange_velocity=NaN;
0019 matpar.g=9.81;
0020 matpar.viscosity_overshoot=0.3;
0021 matpar=class(matpar,'matpar');
0022
0023 case 1
0024
0025 if (isa(varargin{1},'matpar'))
0026 matpar = varargin{1};
0027 else
0028 error('matpar constructor error message: copy constructor called on a non ''matpar'' class object');
0029 end
0030 otherwise
0031 error('matpar constructor error message: 0 of 1 argument only in input.');
0032 end