/[MITgcm]/MITgcm/verification/flt_example/input/read_flt_traj.m
ViewVC logotype

Diff of /MITgcm/verification/flt_example/input/read_flt_traj.m

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

revision 1.4 by jmc, Thu Feb 5 01:03:33 2009 UTC revision 1.5 by dfer, Wed Feb 25 01:41:00 2009 UTC
# Line 11  function [flt,data,header] = read_flt_tr Line 11  function [flt,data,header] = read_flt_tr
11  % $Header$  % $Header$
12  % $Name$  % $Name$
13    
14  imax=13;                % record size  imax=13;                  % record size
15  ieee='b';               % IEEE big-endian format  ieee='b';                 % IEEE big-endian format
16  bytesPerRec=imax*8;     % 8 bytes per real*8  bytesPerRec=imax*8;       % 8 bytes per real*8
17    
18  [I]=strfind(fName,'/');  [I]=strfind(fName,'/');
19  if length(I) == 0,  if length(I) == 0,
20   bDr='';   bDr='';
21  else  else
22   fprintf(' found Dir Sep in file name (');   fprintf(' found Dir Sep in file name (');
23   fprintf(' %i',I);   fprintf(' %i',I);
24   bDr=fName(1:I(end));   bDr=fName(1:I(end));
25   fprintf(' ) ; load files from Dir "%s"\n',bDr);   fprintf(' ) ; load files from Dir "%s"\n',bDr);
26  end  end
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22