From 8a766e634b09cfec9a0c61855ed655316861c830 Mon Sep 17 00:00:00 2001
From: Coda Phillips <coda.phillips@wisc.edu>
Date: Mon, 30 Oct 2023 20:38:24 +0000
Subject: [PATCH] Revert "added uncertain phase median filter"

This reverts commit 9fb21829447091b2867a5e92ae462e4ceff67b81.
---
 .../nbm_cloud_mask_clavrx_bridge_module.f90    | 18 +++++++-----------
 1 file changed, 7 insertions(+), 11 deletions(-)

diff --git a/src/cloud_mask/ECM2/nbm_cloud_mask_clavrx_bridge_module.f90 b/src/cloud_mask/ECM2/nbm_cloud_mask_clavrx_bridge_module.f90
index 35af2ab1..676752e3 100644
--- a/src/cloud_mask/ECM2/nbm_cloud_mask_clavrx_bridge_module.f90
+++ b/src/cloud_mask/ECM2/nbm_cloud_mask_clavrx_bridge_module.f90
@@ -117,7 +117,6 @@ module ECM2_CLOUD_MASK_CLAVRX_BRIDGE
    private :: BETA_11_12_OVERLAP_TEST
    private :: BETA_11_133_OVERLAP_TEST
    private :: WATER_EDGE_FILTER
-   private :: UNCERTAIN_PHASE_FILTER
    private :: MODIS_AQUA_SBAF
    private :: ABI_GOES16_SBAF
    private :: SBAF_QUAD
@@ -446,21 +445,18 @@ contains
 
             endif
 
+            !-- this logic could extend supercooled to water erroneously
+            if ((Cld_Phase(i,j) == sym%SUPERCOOLED_PHASE) .and. (Tc_Opaque_Cloud(i,j) >= 273.0)) then
+               Cld_Phase(i,j) = sym%WATER_PHASE
+            endif
+
         endif
 
       end do elem_loop_lrc
    end do line_loop_lrc
 
-   !--- apply median filter to pixels with uncertain phase
-   call UNCERTAIN_PHASE_FILTER(Cld_Phase,Cld_Phase_Uncertainty,5)
-
-   !--- account for supercooled and water phase consistency
-   where((Cld_Phase == sym%SUPERCOOLED_PHASE) .and. (Tc_Opaque_Cloud .GEfp. 273.0))
-          Cld_Phase = sym%WATER_PHASE
-   end where
-   where((Cld_Phase == sym%WATER_PHASE) .and. (Tc_Opaque_Cloud < 273.0))
-          Cld_Phase = sym%SUPERCOOLED_PHASE
-   end where
+   !--- try to remove water edges around cirrus that impacts AMVs
+   call WATER_EDGE_FILTER(Cld_Phase,2)
 
    !---  WAITPOINT cloud mask done
    call waitpoint(2)
-- 
GitLab