/[MITgcm]/MITgcm_contrib/enderton/Diagnostics/DiagUtility/ini_poly3.m
ViewVC logotype

Annotation of /MITgcm_contrib/enderton/Diagnostics/DiagUtility/ini_poly3.m

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


Revision 1.1 - (hide annotations) (download)
Mon Jan 31 15:43:28 2005 UTC (20 years, 5 months ago) by enderton
Branch: MAIN
CVS Tags: HEAD
 o Initial check in.

1 enderton 1.1 function [poly3] = ini_poly3()
2     % P=INI_POLY3
3     %
4     % Reads the file 'POLY3.COEFFS' and returns coefficients in P
5    
6     fid=fopen('POLY3.COEFFS','r');
7    
8     n=fscanf(fid,'%i',1);
9    
10     for k=1:n,
11     a=fscanf(fid,'%g',3);
12     T(k)=a(1);
13     S(k)=a(2);
14     D(k)=a(3);
15     poly3(k).t=a(1);
16     poly3(k).s=a(2);
17     poly3(k).dens=a(3);
18     end
19     for k=1:n,
20     a=fscanf(fid,'%g',9);
21     P(k,:)=a';
22     poly3(k).coeffs=a';
23     end
24     P(:,10)=T';
25     P(:,11)=S';
26     P(:,12)=D';

  ViewVC Help
Powered by ViewVC 1.1.22