From 48e14f9b9b8ad5c0e50f2e22e567b52a99715dfa Mon Sep 17 00:00:00 2001
From: Song You Hong <hong@ucar.edu>
Date: Tue, 30 Jun 2026 11:29:29 -0600
Subject: [PATCH]  On branch GWDO-4.8.1 : remove mountain height check for old
 WPS  	modified:   bl_gwdo.F90

---
 bl_gwdo.F90 | 1 -
 1 file changed, 1 deletion(-)

diff --git a/bl_gwdo.F90 b/bl_gwdo.F90
index 383f50d..d3c2af9 100644
--- a/bl_gwdo.F90
+++ b/bl_gwdo.F90
@@ -413,7 +413,6 @@ subroutine bl_gwdo_run(sina, cosa,                                          &
    enddo
 !
    do i = its,ite
-     ldrag(i) = omax(i) <= hmt_min               ! no drag when too small mtn
      ldrag(i) = ldrag(i) .or. var(i) <= 0.       ! no drag when too small std
      ldrag(i) = ldrag(i) .or. velco(i,1)<=0.     ! no drag when critical level
      ldrag(i) = ldrag(i) .or. ulow(i)==1.0       ! no drag when wind calms