From fe03060fce03fc1d62eb67a1636c6d032f4363d4 Mon Sep 17 00:00:00 2001
From: Olivier Sauter <olivier.sauter@epfl.ch>
Date: Mon, 11 Nov 2002 15:55:40 +0000
Subject: [PATCH] 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 | 14 ++++++++++++--
1 file changed, 12 insertions(+), 2 deletions(-)
diff --git a/JET/psinrzjet.m b/JET/psinrzjet.m
index 09c82d12..84d105ed 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);
--
GitLab