;====================================================================
; Function Name: TUT_Routine
;
; Function:
;   Thermal Uniformity Routine (TUT) Test
;
; Description:
;   Computes the Thermal Uniformity Routine (TUT) test (YES/NO), as described in
;   the ABI cloud mask ATBD
;   
;
; Calling Sequence:
;   Test_Results(Num_Tests,Elem_Idx,Line_Idx) = TUT_Routine (&
;                              Is_Land, &
;                              Is_Coast, &
;                              BT_Chn14_Stddev_3x3, &
;                              Sfc_Hgt_Stddev_3x3)
;
; Inputs:
;   Is pixel land (YES/NO)
;   Is pixel coast (YES/NO)
;   Standard Deviation of the 11 micron BT over a 3x3 box
;   Standard Deviation of the surface height over a 3x3 box
;
; Outputs: 
;   Function returns pass (sym%YES) or fail (sym%NO) result of the test via Test_Result
;
; Dependencies:
;        Cloud Mask threshold include file with various needed thresholds. 
;
; Restrictions:  None
;
;====================================================================
function tut_routine,Is_Coast, $
                     BT_Chn14_Stddev_3x3, $
                     Sfc_Hgt_Stddev_3x3, $
                     BT_CHN14_CLR_UNI_THRESH

   Test_Result = 0
   Test_Threshold = 0.0
   IF (Is_Coast eq 0) THEN BEGIN

         ;
         ;7K/km is the adiabatic lapse rate
         ;
         Test_Threshold = 3.0 * 7.0*Sfc_Hgt_Stddev_3x3/1000.0  


           IF (BT_Chn14_Stddev_3x3 gt BT_CHN14_CLR_UNI_THRESH + Test_Threshold) THEN BEGIN
 
             Test_Result = 1

           ENDIF

   ENDIF

;  print, 'in TUT ', Is_Coast, Sfc_Hgt_Stddev_3x3, BT_Chn14_Stddev_3x3, BT_CHN14_CLR_UNI_THRESH, Test_Threshold, Test_Result

   RETURN, Test_Result

 END