fluxes_dke_jd

PURPOSE ^

SYNOPSIS ^

function [Sp0_imj,Sp0_ipj,Sm0_ijm,Sm0_ijp] =fluxes_dke_jd(df0dpn_imj,df0dpn_ipj,df0dmhu_imj,df0dmhu_ipj,f0_imj,f0_ipj,Dpp_imj,Dpp_ipj,Dpm_imj,Dpm_ipj,Fp_imj,Fp_ipj,lmmhu2,pnm,pnp,df0dmhu_ijm,df0dmhu_ijp,df0dpn_ijm,df0dpn_ijp,f0_ijm,f0_ijp,Dmm_ijm,Dmm_ijp,Dmp_ijm,Dmp_ijp,Fm_ijm,Fm_ijp,lmmhu2m,lmmhu2p,pn);

DESCRIPTION ^

 by J. Decker. 12/03/02

 modified J.D. 07/02/03

CROSS-REFERENCE INFORMATION ^

This function calls: This function is called by:

SOURCE CODE ^

0001 function [Sp0_imj,Sp0_ipj,Sm0_ijm,Sm0_ijp] = ...
0002     fluxes_dke_jd(df0dpn_imj,df0dpn_ipj,df0dmhu_imj,df0dmhu_ipj,f0_imj,f0_ipj,...
0003                   Dpp_imj,Dpp_ipj,Dpm_imj,Dpm_ipj,Fp_imj,Fp_ipj,lmmhu2,pnm,pnp,...
0004                   df0dmhu_ijm,df0dmhu_ijp,df0dpn_ijm,df0dpn_ijp,f0_ijm,f0_ijp,...
0005                   Dmm_ijm,Dmm_ijp,Dmp_ijm,Dmp_ijp,Fm_ijm,Fm_ijp,lmmhu2m,lmmhu2p,pn);
0006 %
0007 % by J. Decker. 12/03/02
0008 %
0009 % modified J.D. 07/02/03
0010 %
0011 Sp0_imj = - Dpp_imj.*df0dpn_imj...
0012           + Dpm_imj.*sqrt(lmmhu2).*df0dmhu_imj./pnm...
0013           + Fp_imj.*f0_imj;
0014 %
0015 Sp0_ipj = - Dpp_ipj.*df0dpn_ipj...
0016           + Dpm_ipj.*sqrt(lmmhu2).*df0dmhu_ipj./pnp...
0017           + Fp_ipj.*f0_ipj;
0018 
0019 %
0020 if nargout > 2,
0021     %
0022     Sm0_ijm = Dmm_ijm.*sqrt(lmmhu2m).*df0dmhu_ijm./pn...
0023             - Dmp_ijm.*df0dpn_ijm...
0024             + Fm_ijm.*f0_ijm;
0025     %
0026     Sm0_ijp = Dmm_ijp.*sqrt(lmmhu2p).*df0dmhu_ijp./pn...
0027             - Dmp_ijp.*df0dpn_ijp...
0028             + Fm_ijp.*f0_ijp;
0029     %
0030 end
0031 %
0032
Community support and wiki are available on Redmine. Last update: 18-Apr-2019.