Changeset 74 for trunk/SRC/ToBeReviewed/GRILLE/cmpgrid.pro

Timestamp:

05/23/06 15:45:47 (18 years ago)

Author:

smasson

Message:

debug xxx and cie + clean data file + rm perldoc_idl

File:

• trunk/SRC/ToBeReviewed/GRILLE/cmpgrid.pro (modified) (2 diffs)

trunk/SRC/ToBeReviewed/GRILLE/cmpgrid.pro

@@ -12 +12 @@
    if n_elements(ccmeshparameters) EQ 0 then return, 1
 ;
-; does ccmeshparameters contains the new parameters ?
-;
-   if (where(strlowcase(tag_names(ccmeshparameters)) EQ 'key_partialstep'))[0] EQ -1 then return, 1
-;
 ; we compare the structure which caracterise the grid whith
 ; ccmeshparameters
@@ -26 +22 @@
       ccmeshparameters.jpj NE newgrid.jpj:
       ccmeshparameters.jpk NE newgrid.jpk:
-      array_equal(ccmeshparameters.glaminfo, newgrid.glaminfo) EQ 0:
-      array_equal(ccmeshparameters.gphiinfo, newgrid.gphiinfo) EQ 0:
+      total(ccmeshparameters.glaminfo - newgrid.glaminfo) NE 0:
+      total(ccmeshparameters.gphiinfo - newgrid.gphiinfo) NE 0:
       ccmeshparameters.ixminmesh NE newgrid.ixminmesh:
       ccmeshparameters.ixmaxmesh NE newgrid.ixmaxmesh: