gmaze_pv/subfct/readrec_cs510.m

% C = READREC_CS510(fnam,NZ,fldprec)
%
% Get one record from the CS510 run
%
% fnam : string to the file (include path)
% NZ   : number of levels to read
% fldprec : float32 or float64
% ouput is: C(510,510,NZ,6)
%
%

function C = readrec_cs510(fnam,NZ,fldprec)

fmt = 'ieee-be';
nx  = 510;
ny  = 510;


fid  = fopen(fnam,'r',fmt);
C    = fread(fid,6*nx*ny*NZ,fldprec);
fclose(fid);
C    = reshape(C,[6*nx ny NZ]);


1	gmaze	1.1	% C = READREC_CS510(fnam,NZ,fldprec)
2			%
3			% Get one record from the CS510 run
4			%
5			% fnam : string to the file (include path)
6			% NZ : number of levels to read
7			% fldprec : float32 or float64
8			% ouput is: C(510,510,NZ,6)
9			%
10			%
11
12			function C = readrec_cs510(fnam,NZ,fldprec)
13
14			fmt = 'ieee-be';
15			nx = 510;
16			ny = 510;
17
18
19			fid = fopen(fnam,'r',fmt);
20			C = fread(fid,6nxny*NZ,fldprec);
21			fclose(fid);
22			C = reshape(C,[6*nx ny NZ]);
23
24