;+
; NAME:
;       temp_at_lcl
;
; PURPOSE:
;       To calculate the temperature at the lifted condensation level given a vertical profile of
;       temperature and water vapor
; CATEGORY:
;       Function
; CALLING SEQUENCE:
;
; INPUTS:
;
; OPTIONAL INPUTS:
;	
; KEYWORD PARAMETERS:
;
; OUTPUTS:
;
; OPTIONAL OUTPUTS:
;
; COMMON BLOCKS:
;
; SIDE EFFECTS:
;
; RESTRICTIONS:
;
; PROCEDURE:
;
; EXAMPLE:
;
; MODIFICATION HISTORY:
;       Written by:     Wayne F. Feltz, CIMSS/SSEC 
;
; $Date:$       May 10, 1998
; $Id:$
; $Log:$
;
;
;-

function temp_at_lcl, t, td

;  Calculate Temperature at LCL

temp_at_lcl=(td-(.001296*td-.15772)*(t-td))

return, temp_at_lcl

end