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