/[MITgcm]/MITgcm_contrib/jmc_script/read_StD.m
ViewVC logotype

Diff of /MITgcm_contrib/jmc_script/read_StD.m

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.3 by jmc, Wed Oct 8 18:18:04 2008 UTC revision 1.5 by jmc, Wed May 14 16:53:04 2014 UTC
# Line 19  function [nIt,rList,tim,vvA,listV,kList] Line 19  function [nIt,rList,tim,vvA,listV,kList]
19  % $Name$  % $Name$
20    
21  %- Remove insignificant whitespace:  %- Remove insignificant whitespace:
22  sufx=strtrim(char(sufx));  %sufx=strtrim(char(sufx)); % <-- only with matlab-7 or more recent
23    sufx=strrep(char(sufx),' ','');
24  namfhd=[namF,'_head','.',sufx];  namfhd=[namF,'_head','.',sufx];
25  namfil=[namF,'_Iter','.',sufx];  namfil=[namF,'_Iter','.',sufx];
26   fprintf(['read ',sufx,' :']);   fprintf(['read ',sufx,' :']);
# Line 128  if frq > 0, dIt=1./max(1,dIt); else dIt= Line 129  if frq > 0, dIt=1./max(1,dIt); else dIt=
129    
130  %- build time:  %- build time:
131  delT=0;  delT=0;
132  if nIt > 1, delT=tim(2,1)-tim(1,1); delT=max(0,delT); end  if nIt > 1, delT=(tim(nIt,1)-tim(1,1))/(nIt-1); delT=max(0,delT); end
133  if delT > 0,  if delT > 0,
134    delT=abs(frq)/delT;    delT=abs(frq)/delT;
135    delta=delT-round(delT);    delta=delT-round(delT);
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22