NCCOOS Trac Projects: Top | Web | Platforms | Processing | Viz | Sprints | Sandbox | (Wind)

root/gliderproc/trunk/MATLAB/opnml/FEM/gridinfo.m

Revision 495 (checked in by cbc, 12 years ago)

Initial import of Stark code.

Line 
1 % GRIDINFO - display info about fem_grid_struct
2 %
3 %            GRIDINFO(fem_grid_struct) displays information
4 %            about the grid structure pointed to by the
5 %            input argument fem_grid_struct.  GRIDINFO lists
6 %            each field and the size of its contents.  This function
7 %            amounts to typing WHOS on a valid structure.
8 %
9 %            GRIDINFO, with no input argument, checks to see
10 %            if the global DOMAIN has been set.  If so, it
11 %            describes the fem_grid_struct pointed to by DOMAIN.
12 %
13 %     CALL - GRIDINFO(fem_grid_struct)
14 %            GRIDINFO
15 %
16 % SEE ALSO - FEM_GRID_STRUCT
17 %           
18 %
19 % Written by : Brian O. Blanton
20 % Summer 1997
21 %
22 function gridinfo(fem_grid_struct)
23
24
25 % make sure this is atleast MATLAB version 5.0.0
26 %
27 vers=version;
28 if vers(1)<5
29    disp('??? Error using ==>> GRIDINFO ');
30    disp('GRIDINFO REQUIRES!! MATLAB version 5.0.0 or later.');
31    disp('Sorry, but this is terminal.');
32    return
33 end
34
35 fem_grid_struct
36
37 disp(['Min,Max x= ' num2str(min(fem_grid_struct.x)) ' '   num2str(max(fem_grid_struct.x))])
38 disp(['Min,Max y = ' num2str(min(fem_grid_struct.y)) ' ' num2str(max(fem_grid_struct.y))])
39 disp(['Min,Max z = ' num2str(min(fem_grid_struct.z)) ' ' num2str(max(fem_grid_struct.z))])
40
41 %
42 %        Brian O. Blanton
43 %        Curriculum in Marine Sciences
44 %        15-1A Venable Hall
45 %        CB# 3300
46 %        University of North Carolina
47 %        Chapel Hill, NC
48 %                 27599-3300
49 %
50 %        919-962-4466
51 %        blanton@marine.unc.edu
52 %
53 %        Summer 1997
54 %
55
Note: See TracBrowser for help on using the browser.