Changeset 398

Timestamp:

07/01/09 11:01:13 (15 years ago)

Author:

smasson

Message:

set the value of vardate to time[0]

File:

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

trunk/SRC/ToBeReviewed/LECTURE/read_ncdf.pro

@@ -339 +339 @@
   IF NOT keyword_set(callitself) THEN varunit = units
 ; vardate
-; We make a legible date in function of the specified language.
-  year = long(beginning[0])/10000
-  month = (long(beginning[0])/100) MOD 100
-  day = (long(beginning[0]) MOD 100)
+; We make a legible date
+  caldat, time[0], year, month, day
   vardate = string(format = '(C(CMoA))', 31*(month-1))+' '+strtrim(day, 1)+', '+strtrim(year, 1)
   varexp = file_basename(filename)