add tefit and debug seq

git-svn-id: https://spcsvn.epfl.ch/repos/TCV/gdat/trunk@1888 d63d8f72-b253-0410-a779-e742ad2e26cf

JET/psinrzjet.m

-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);