source: trunk/SRC/ToBeReviewed/GRILLE/cmpgrid.pro @ 74

Last change on this file since 74 was 74, checked in by smasson, 18 years ago

debug xxx and cie + clean data file + rm perldoc_idl

  • Property svn:eol-style set to native
  • Property svn:executable set to *
  • Property svn:keywords set to Author Date Id Revision
File size: 1.6 KB
Line 
1FUNCTION cmpgrid, newgrid
2;
3@common
4;
5;
6; newgrid must be a structure
7;
8   if size(newgrid, /type) NE 8 then return, 0
9;
10; does ccmeshparameters exist ?
11;
12   if n_elements(ccmeshparameters) EQ 0 then return, 1
13;
14; we compare the structure which caracterise the grid whith
15; ccmeshparameters
16;
17   case 1 of
18      ccmeshparameters.jpiglo NE newgrid.jpiglo:
19      ccmeshparameters.jpjglo NE newgrid.jpjglo:
20      ccmeshparameters.jpkglo NE newgrid.jpkglo:
21      ccmeshparameters.jpi NE newgrid.jpi:
22      ccmeshparameters.jpj NE newgrid.jpj:
23      ccmeshparameters.jpk NE newgrid.jpk:
24      total(ccmeshparameters.glaminfo - newgrid.glaminfo) NE 0:
25      total(ccmeshparameters.gphiinfo - newgrid.gphiinfo) NE 0:
26      ccmeshparameters.ixminmesh NE newgrid.ixminmesh:
27      ccmeshparameters.ixmaxmesh NE newgrid.ixmaxmesh:
28      ccmeshparameters.iyminmesh NE newgrid.iyminmesh:
29      ccmeshparameters.iymaxmesh NE newgrid.iymaxmesh:
30      ccmeshparameters.izminmesh NE newgrid.izminmesh:
31      ccmeshparameters.izmaxmesh NE newgrid.izmaxmesh:
32      ccmeshparameters.key_shift NE newgrid.key_shift:
33      ccmeshparameters.key_periodic NE newgrid.key_periodic:
34      array_equal(ccmeshparameters.key_stride, newgrid.key_stride) EQ 0:
35      ccmeshparameters.key_gridtype NE newgrid.key_gridtype:
36      ccmeshparameters.key_yreverse NE newgrid.key_yreverse:
37      ccmeshparameters.key_zreverse NE newgrid.key_zreverse:
38      ccmeshparameters.key_partialstep NE newgrid.key_partialstep:
39      ccmeshparameters.key_onearth NE newgrid.key_onearth:
40      ELSE:return, 0
41   endcase
42
43   return, 1
44end
Note: See TracBrowser for help on using the repository browser.