;+
; NAME:
;       pressure_at_lcl
;
; PURPOSE:
;       To calculate the lifted condensation level given a parcel of atmosphere
; 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 pressure_at_lcl, p, t, td, p_surf

;  Calculate Lifted Condensation Level

theta=t*(p_surf/p)^0.28541
pressure_at_lcl=(p_surf/(theta/temp_at_lcl(t,td))^3.5)

return,pressure_at_lcl
end