Changeset 19040 for issm/trunk-jpl/src/m/classes/hydrologyshreve.m
- Timestamp:
- 01/26/15 18:40:38 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
issm/trunk-jpl/src/m/classes/hydrologyshreve.m
r19027 r19040 10 10 end 11 11 methods 12 function createxml( obj,fid) % {{{12 function createxml(self,fid) % {{{ 13 13 fprintf(fid, '\n\n'); 14 14 fprintf(fid, '%s\n', '<!-- Hydrology -->'); … … 17 17 fprintf(fid,'%s\n%s\n%s\n','<frame key="1" label="Hydrologyshreve solution parameters">','<section name="hydrologyshreve" />'); 18 18 19 fprintf(fid,'%s%s%s%s%s\n%s\n%s\n%s\n', '<parameter key ="spcwatercolumn" type="', class( obj.spcwatercolumn),'" default="', convert2str(obj.spcwatercolumn),'">', ' <section name="hydrologyshreve" />',' <help> water thickness constraints (NaN means no constraint) [m] </help>','</parameter>');20 fprintf(fid,'%s%s%s%s%s\n%s\n%s\n%s\n', '<parameter key ="stabilization" type="', class( obj.stabilization),'" default="', convert2str(obj.stabilization),'">', ' <section name="hydrologyshreve" />',' <help> artificial diffusivity (default is 1). can be more than 1 to increase diffusivity. </help>','</parameter>');19 fprintf(fid,'%s%s%s%s%s\n%s\n%s\n%s\n', '<parameter key ="spcwatercolumn" type="', class(self.spcwatercolumn),'" default="', convert2str(self.spcwatercolumn),'">', ' <section name="hydrologyshreve" />',' <help> water thickness constraints (NaN means no constraint) [m] </help>','</parameter>'); 20 fprintf(fid,'%s%s%s%s%s\n%s\n%s\n%s\n', '<parameter key ="stabilization" type="', class(self.stabilization),'" default="', convert2str(self.stabilization),'">', ' <section name="hydrologyshreve" />',' <help> artificial diffusivity (default is 1). can be more than 1 to increase diffusivity. </help>','</parameter>'); 21 21 fprintf(fid,'%s\n%s\n','</frame>'); 22 22 end % }}} 23 function obj= hydrologyshreve(varargin) % {{{23 function self = hydrologyshreve(varargin) % {{{ 24 24 switch nargin 25 25 case 0 26 obj=setdefaultparameters(obj);26 self=setdefaultparameters(self); 27 27 case 1 28 obj=structtoobj( obj,varargin{1});28 obj=structtoobj(self,varargin{1}); 29 29 otherwise 30 30 error('constructor not supported'); 31 31 end 32 32 end % }}} 33 function obj = setdefaultparameters(obj) % {{{33 function self = setdefaultparameters(self) % {{{ 34 34 35 35 %Type of stabilization to use 0:nothing 1:artificial_diffusivity 36 obj.stabilization=1;36 self.stabilization=1; 37 37 end % }}} 38 function md = checkconsistency( obj,md,solution,analyses) % {{{38 function md = checkconsistency(self,md,solution,analyses) % {{{ 39 39 40 40 %Early return … … 46 46 md = checkfield(md,'fieldname','hydrology.stabilization','>=',0); 47 47 end % }}} 48 function disp( obj) % {{{48 function disp(self) % {{{ 49 49 disp(sprintf(' hydrologyshreve solution parameters:')); 50 fielddisplay( obj,'spcwatercolumn','water thickness constraints (NaN means no constraint) [m]');51 fielddisplay( obj,'stabilization','artificial diffusivity (default is 1). can be more than 1 to increase diffusivity.');50 fielddisplay(self,'spcwatercolumn','water thickness constraints (NaN means no constraint) [m]'); 51 fielddisplay(self,'stabilization','artificial diffusivity (default is 1). can be more than 1 to increase diffusivity.'); 52 52 53 53 end % }}} 54 function marshall( obj,md,fid) % {{{54 function marshall(self,md,fid) % {{{ 55 55 WriteData(fid,'enum',HydrologyModelEnum(),'data',HydrologyshreveEnum(),'format','Integer'); 56 WriteData(fid,'object', obj,'fieldname','spcwatercolumn','format','DoubleMat','mattype',1,'timeserieslength',md.mesh.numberofvertices+1);57 WriteData(fid,'object', obj,'fieldname','stabilization','format','Double');56 WriteData(fid,'object',self,'fieldname','spcwatercolumn','format','DoubleMat','mattype',1,'timeserieslength',md.mesh.numberofvertices+1); 57 WriteData(fid,'object',self,'fieldname','stabilization','format','Double'); 58 58 end % }}} 59 59 end
Note:
See TracChangeset
for help on using the changeset viewer.