;+
;
; @file_comments
;
;
; @categories
;
;
; @param TIMAVE
;
;
; @param DATE
;
;
; @returns
;
;
; @uses
;
;
; @restrictions
;
;
; @examples
;
;
; @history
;
;
; @version
; $Id$
;
; @todo seb
;-
FUNCTION def_month, timave, date
;
; translate month number in string
;
;
  compile_opt idl2, strictarrsubs
;
   IF strpos(date, '_') GT -1 THEN date = strmid(date, 0, strpos(date, '_'))
   CASE strmid(timave, 0, 2) OF 
      '1m': BEGIN
         CASE strmid(date, strlen(date)-2, 2) OF 
            '01': mn = 'January'
            '02': mn = 'February'
            '03': mn = 'March'
            '04': mn = 'April'
            '05': mn = 'May'
            '06': mn = 'June'
            '07': mn = 'July'
            '08': mn = 'August'
            '09': mn = 'September'
            '10': mn = 'October'
            '11': mn = 'November'
            '12': mn = 'December'
            ELSE: mn = '???'
         ENDCASE 
      END 
      '3m': BEGIN
         CASE strmid(date, strlen(date)-2, 2) OF 
            '01': mn = 'DJF'
            '02': mn = 'MMA'
            '03': mn = 'JJA'
            '04': mn = 'SON'
            ELSE: mn = '???'
         ENDCASE 
      END 
      ELSE:
   ENDCASE  

   return, mn
END