;+ ; Contains the coeff procedure ; ; :Author: ; Baptiste Cecconi, Philippe Zarka ; ; :History: ; 2008/03/24: Created ; ; 2008/03/24: Last Edit ;- ; ;+ ; coeff is a procedure that <behavior desc here> ; ; :Uses: ; coeff_d, coeff_o6, coeff_spv, coeff_spvr, coeff_vip4, coeff_vit4, coeff_z3 ; ; :Params: ; g: out, required, type=fltarr(6) ; coeff. des polynomes de Legendre ; h: out, required, type=fltarr(6) ; coeff. des polynomes de Legendre ; n: out, required, type=byte ; ordre du developpement ; dip: out, required, type=fltarr(2) ; position du dipole/axe de rotation ; crt: out, required, type=fltarr(4) ; Anneau de courant ; tdip: out, required, type='fltarr(3,3)' ; A parameter named tdip ; ; :Keywords: ; mfl_model: in, optional, type=sometype ; A keyword named mfl_model ;- pro COEFF, g,h,n,dip,crt,tdip,mfl_model=mfl_model if ~ keyword_set(mfl_model) then stop,'You must choose a magnetic field model. Aborting...' case mfl_model of ; Jupiter: 'D' : COEFF_D, g,h,n,dip,crt,tdip 'O6' : COEFF_O6, g,h,n,dip,crt,tdip 'VIP4' : COEFF_VIP4, g,h,n,dip,crt,tdip 'VIT4' : COEFF_VIT4, g,h,n,dip,crt,tdip ; Saturne: 'Z3' : COEFF_Z3, g,h,n,dip,crt,tdip 'SPV' : COEFF_SPV, g,h,n,dip,crt,tdip 'SPVR' : COEFF_SPVR, g,h,n,dip,crt,tdip endcase return end