source: issm/trunk/src/m/classes/fourierlove.m@ 26744

%FOURIERLOVE class definition
%
%   Usage:
%      md.love=fourierlove();

classdef fourierlove
        properties (SetAccess=public) 
                nfreq                       = 0;
                frequencies                 = 0;
                sh_nmax                     = 0;
                sh_nmin                     = 0;
                g0                          = 0;
                r0                          = 0;
                mu0                         = 0;
                Gravitational_Constant      = 0;
                allow_layer_deletion        = 0;
                underflow_tol               = 0;
                integration_steps_per_layer = 0;
                istemporal                  = 0;
                n_temporal_iterations       = 0;
                time                        = 0;
                love_kernels                = 0;
                forcing_type                = 0;
                inner_core_boundary         = 0;
                core_mantle_boundary        = 0;
                complex_computation         = 0;

        end
        methods (Static)
                function self = loadobj(self) % {{{
                        % This function is directly called by matlab when a model object is
                        % loaded. Update old properties here
                end% }}}
        end
        methods
                function self = fourierlove(varargin) % {{{
                        switch nargin
                                case 0
                                        self=setdefaultparameters(self);
                                otherwise
                                        error('constructor not supported');
                        end
                end % }}}
                function self = setdefaultparameters(self) % {{{
                        %we setup an elastic love number computation by default.
                        self.nfreq=1; 
                        self.frequencies=[0]; %Hz
                        self.sh_nmax=256; % .35 degree, 40 km at the equator.
                        self.sh_nmin=1;
                        % work on matlab script for computing g0 for given Earth's structure. 
                        self.g0=9.81; % m/s^2; 
                        self.r0=6371*1e3; %m;
                        self.mu0=1e11; % Pa
                        self.Gravitational_Constant=6.67259e-11; % m^3 kg^-1 s^-2
                        self.allow_layer_deletion=1;
                        self.underflow_tol=1e-16; %threshold of deep to surface love number ratio to trigger the deletion of layer 
                        self.integration_steps_per_layer=100;
                        self.istemporal=0;
                        self.n_temporal_iterations=8;
                        self.time=[0]; %s
                        self.love_kernels=0; 
                        self.forcing_type = 11; % surface loading
                        self.inner_core_boundary=1;
                        self.core_mantle_boundary=2;
                        self.complex_computation=0;
                end % }}}
                function disp(self) % {{{
                        fielddisplay(self,'nfreq','number of frequencies sampled (default: 1, elastic) [Hz]');
                        fielddisplay(self,'frequencies','frequencies sampled (convention defaults to 0 for the elastic case) [Hz]');
                        fielddisplay(self,'sh_nmax','maximum spherical harmonic degree (default: 256, .35 deg, or 40 km at equator)');
                        fielddisplay(self,'sh_nmin','minimum spherical harmonic degree (default: 1)');
                        fielddisplay(self,'g0','adimensioning constant for gravity (default: 10) [m/s^2]');
                        fielddisplay(self,'r0','adimensioning constant for radius (default: 6371*10^3) [m]');
                        fielddisplay(self,'mu0','adimensioning constant for stress (default: 10^11) [Pa]');
                        fielddisplay(self,'Gravitational_Constant','Newtonian constant of gravitation (default: 6.67259e-11 [m^3 kg^-1 s^-2])');
                        fielddisplay(self,'allow_layer_deletion','allow for migration of the integration boundary with increasing spherical harmonics degree (default: 1)');
                        fielddisplay(self,'underflow_tol','threshold of deep to surface love number ratio to trigger the deletion of layers (default: 1e-16)');
                        fielddisplay(self,'integration_steps_per_layer','number of radial steps to propagate the yi system from the bottom to the top of each layer (default: 100)');
                        fielddisplay(self,'istemporal',{'1 for time-dependent love numbers, 0 for frequency-dependent or elastic love numbers (default: 0)', 'If 1: use fourierlove function build_frequencies_from_time to meet consistency'});
                        fielddisplay(self,'n_temporal_iterations','max number of iterations in the inverse Laplace transform. Also the number of spectral samples per time step requested (default: 8)');
                        fielddisplay(self,'time','time vector for deformation if istemporal (default: 0) [s]');
                        fielddisplay(self,'love_kernels','compute love numbers at depth? (default: 0)');
                        fielddisplay(self,'forcing_type',{'integer indicating the nature and depth of the forcing for the Love number calculation (default: 11):','1:  Inner core boundary -- Volumic Potential','2:  Inner core boundary -- Pressure','3:  Inner core boundary -- Loading','4:  Inner core boundary -- Tangential traction','5:  Core mantle boundary -- Volumic Potential','6:  Core mantle boundary -- Pressure','7:  Core mantle boundary -- Loading','8:  Core mantle boundary -- Tangential traction','9:  Surface -- Volumic Potential','10: Surface -- Pressure','11: Surface -- Loading','12: Surface -- Tangential traction '});
                        fielddisplay(self,'inner_core_boundary','interface index in materials.radius locating forcing. Only used for forcing_type 1--4 (default: 1)');
                        fielddisplay(self,'core_mantle_boundary','interface index in materials.radius locating forcing. Only used for forcing_type 5--8 (default: 2)'); 

                end % }}}
                function md = checkconsistency(self,md,solution,analyses) % {{{

                        if ~ismember('LoveAnalysis',analyses), return; end

                        md = checkfield(md,'fieldname','love.nfreq','NaN',1,'Inf',1,'numel',1,'>',0);
                        md = checkfield(md,'fieldname','love.frequencies','NaN',1,'Inf',1,'numel',md.love.nfreq);
                        md = checkfield(md,'fieldname','love.sh_nmax','NaN',1,'Inf',1,'numel',1,'>',0);
                        md = checkfield(md,'fieldname','love.sh_nmin','NaN',1,'Inf',1,'numel',1,'>',0);
                        md = checkfield(md,'fieldname','love.g0','NaN',1,'Inf',1,'numel',1,'>',0);
                        md = checkfield(md,'fieldname','love.r0','NaN',1,'Inf',1,'numel',1,'>',0);
                        md = checkfield(md,'fieldname','love.mu0','NaN',1,'Inf',1,'numel',1,'>',0);
                        md = checkfield(md,'fieldname','love.Gravitational_Constant','NaN',1,'Inf',1,'numel',1,'>',0);
                        md = checkfield(md,'fieldname','love.allow_layer_deletion','values',[0 1]);
                        md = checkfield(md,'fieldname','love.underflow_tol','NaN',1,'Inf',1,'numel',1,'>',0);
                        md = checkfield(md,'fieldname','love.integration_steps_per_layer','NaN',1,'Inf',1,'numel',1,'>',0);
                        md = checkfield(md,'fieldname','love.love_kernels','values',[0 1]);
                        md = checkfield(md,'fieldname','love.forcing_type','NaN',1,'Inf',1,'numel',1,'>',0, '<=', 12);
                        md = checkfield(md,'fieldname','love.complex_computation','NaN',1,'Inf',1,'numel',1,'values',[0 1]);

                        md = checkfield(md,'fieldname','love.istemporal','values',[0 1]);
                        if md.love.istemporal==1
                                md = checkfield(md,'fieldname','love.n_temporal_iterations','NaN',1,'Inf',1,'numel',1,'>',0);
                                md = checkfield(md,'fieldname','love.time','NaN',1,'Inf',1,'numel',md.love.nfreq/2/md.love.n_temporal_iterations);
                        end
                        if md.love.sh_nmin<=1 & (md.love.forcing_type==1 || md.love.forcing_type==5 || md.love.forcing_type==9)
                                error(['Degree 1 not supported for forcing type ' num2str(md.love.forcing_type) '. Use sh_min>=2 for this kind of calculation.'])
                        end

                        %need 'litho' material: 
                        if ~isa(md.materials,'materials') | ~sum(strcmpi(md.materials.nature,'litho'))
                                error('Need a ''litho'' material to run a Fourier Love number analysis');
                        end

                        mat=find(strcmpi(md.materials.nature,'litho'));
                        if md.love.forcing_type<=4
                                md = checkfield(md,'fieldname','love.inner_core_boundary','NaN',1,'Inf',1,'numel',1,'>',0, '<=', md.materials(mat).numlayers);
                        elseif md.love.forcing_type<=8
                                md = checkfield(md,'fieldname','love.core_mantle_boundary','NaN',1,'Inf',1,'numel',1,'>',0, '<=', md.materials(mat).numlayers);
                        end

                end % }}}
                function marshall(self,prefix,md,fid) % {{{

                        WriteData(fid,prefix,'object',self,'fieldname','nfreq','format','Integer');
                        WriteData(fid,prefix,'object',self,'fieldname','frequencies','format','DoubleMat','mattype',3);
                        WriteData(fid,prefix,'object',self,'fieldname','sh_nmax','format','Integer');
                        WriteData(fid,prefix,'object',self,'fieldname','sh_nmin','format','Integer');
                        WriteData(fid,prefix,'object',self,'fieldname','g0','format','Double');
                        WriteData(fid,prefix,'object',self,'fieldname','r0','format','Double');
                        WriteData(fid,prefix,'object',self,'fieldname','mu0','format','Double');
                        WriteData(fid,prefix,'object',self,'fieldname','Gravitational_Constant','format','Double');
                        WriteData(fid,prefix,'object',self,'fieldname','allow_layer_deletion','format','Boolean');
                        WriteData(fid,prefix,'object',self,'fieldname','underflow_tol','format','Double');
                        WriteData(fid,prefix,'object',self,'fieldname','integration_steps_per_layer','format','Integer');
                        WriteData(fid,prefix,'object',self,'fieldname','istemporal','format','Boolean');
                        WriteData(fid,prefix,'object',self,'fieldname','n_temporal_iterations','format','Integer');
                        WriteData(fid,prefix,'object',self,'fieldname','complex_computation','format','Boolean');
                        %note: no need to marshall the time vector, we have frequencies
                        WriteData(fid,prefix,'object',self,'fieldname','love_kernels','format','Boolean');
                        WriteData(fid,prefix,'object',self,'fieldname','forcing_type','format','Integer');
                        WriteData(fid,prefix,'object',self,'fieldname','inner_core_boundary','format','Integer');
                        WriteData(fid,prefix,'object',self,'fieldname','core_mantle_boundary','format','Integer');

                end % }}}
                function self = extrude(self,md) % {{{
                end % }}}
                function savemodeljs(self,fid,modelname) % {{{
                        error('not implemented yet!');
                end % }}}
                function self=build_frequencies_from_time(self) % {{{
                        if ~self.istemporal
                                error('cannot build frequencies for temporal love numbers if love.istemporal==0')
                        end
                        disp('Temporal love numbers: Overriding md.love.nfreq and md.love.frequencies');
                        self.nfreq=length(self.time)*2*self.n_temporal_iterations;
                        self.frequencies=zeros(self.nfreq,1);
                        for i=1:length(self.time)
                                for j=1:2*self.n_temporal_iterations
                                        self.frequencies((i-1)*2*self.n_temporal_iterations +j) = j*log(2)/self.time(i)/2/pi;
                                end
                        end
                end % }}}
        end
end