Changeset 199 for trunk/SRC/ToBeReviewed/LECTURE/read_ncdf.pro

Timestamp:

12/13/06 08:47:14 (18 years ago)

Author:

smasson

Message:

minor bugfixs

File:

• trunk/SRC/ToBeReviewed/LECTURE/read_ncdf.pro (modified) (1 diff)

trunk/SRC/ToBeReviewed/LECTURE/read_ncdf.pro

@@ -261 +261 @@
         return, report('time units does not start with seconds/hours/days/months/years')
       ENDIF
-      IF stregex(value, '[^ ]* since ([0-9]){4}-([0-9]){2}-([0-9]){2}.*', /boolean) EQ 0 THEN BEGIN
-        ncdf_close, cdfid
-        return, report('attribut units of time has not the good format: [^ ]* since ([0-9]){4}-([0-9]){2}-([0-9]){2}.*')
+      IF stregex(value, '[^ ]* since ([0-9]){1,4}-([0-9]){1,2}-([0-9]){1,2}.*', /boolean) EQ 0 THEN BEGIN
+        ncdf_close, cdfid
+        return, report('attribut units of time has not the good format: [^ ]* since ([0-9]){1,4}-([0-9]){1,2}-([0-9]){1,2}.*')
       ENDIF
       depart = str_sep(mots[2], '-')