diff --git a/JET/psinrzjet.m b/JET/psinrzjet.m index 09c82d122b0163b3dc511893a065479526752f4e..84d105ed286e962af36523ee55803296badadb09 100644 --- a/JET/psinrzjet.m +++ b/JET/psinrzjet.m @@ -1,4 +1,6 @@ -function [r,z,psinrz,sspr,sspi]=psinrzjet(shot,time,nrg_rg,nzg_zg,efitlab,uid,seqd,varargin); +function [r,z,psinrz,sspr,sspi,tefit_eff]=psinrzjet(shot,time,nrg_rg,nzg_zg,efitlab,uid,seq,varargin); +% +% function [r,z,psinrz,sspr,sspi,tefit_eff]=psinrzjet(shot,time,nrg_rg,nzg_zg,efitlab,uid,seq,varargin); % % psirz : reconstruction des surfaces de flux % @@ -40,8 +42,14 @@ end if nargin<=5 | isempty(uid) uid='jetppf'; end -if nargin<=6 | isempty(seqd) +if nargin<=6 | isempty(seq) seqd='0'; +else + if ischar(seq) + seqd=seq; + else + seqd=num2str(seq); + end end ncont=0; if nargin>=8 & ~isempty(varargin{1}) @@ -76,6 +84,8 @@ else end [x,ind]=min(abs(time-tpefit)); +tefit_eff=tpefit(ind); + sspr_t=ssprs(:,ind); sspi_t=sspis(:,ind);