;+
;
; @file_comments
; compute the 3D e3[tuvw] from e3[tw] and e3[tw]_ps according to the
; grid type defined in vargrid
;
; @categories
; diagnostics
;
; @keyword e1 {default=0}{type=scalar: 0 or 1}
; activate to compute e1 * e3 instead of e3
; note that of both keywords e1 and e2 are activated we compute e1 * e2 * e3 instead of e3
;
; @keyword e2 {default=0}{type=scalar: 0 or 1}
; activate to compute e2 * e3 instead of e3
; note that of both keywords e1 and e2 are activated we compute e1 * e2 * e3 instead of e3
;
; @returns
; e3[tuvw]
;
; @uses
; cm_4data.pro, e3[tuvw]_3d.pro
;
; @history
; Sebastien Masson, Jan 2011
;
; @version
; $Id$
;
;-
function e3_3d, e1 = e1, e2 = e2
;
  compile_opt idl2, strictarrsubs
;
@cm_4data
;
  CASE vargrid OF
    'T':return, e3t_3d(e1 = e1, e2 = e2)
    'U':return, e3u_3d(e1 = e1, e2 = e2)
    'V':return, e3v_3d(e1 = e1, e2 = e2)
    'W':return, e3w_3d(e1 = e1, e2 = e2)
  ENDCASE

END