From 41ed23267e8f2b87d78e272e1c46b27ca7b82afa Mon Sep 17 00:00:00 2001
From: WenMeng-NOAA <48260754+WenMeng-NOAA@users.noreply.github.com>
Date: Thu, 9 Jul 2020 12:44:33 -0400
Subject: [PATCH] Set 1 mb upper bound for searching EQ level in CAPE
 computation from Hui-ya. (#149)

---
 sorc/ncep_post.fd/CALCAPE.f | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/sorc/ncep_post.fd/CALCAPE.f b/sorc/ncep_post.fd/CALCAPE.f
index d90fd488f3..4afb8f3eac 100644
--- a/sorc/ncep_post.fd/CALCAPE.f
+++ b/sorc/ncep_post.fd/CALCAPE.f
@@ -401,7 +401,8 @@ SUBROUTINE CALCAPE(ITYPE,DPBND,P1D,T1D,Q1D,L1D,CAPE,    &
         DO J=JSTA,JEND
           DO I=1,IM
             IF(KLRES(I,J) > 0) THEN
-              IF(TPAR(I,J,L) > T(I,J,L)) IEQL(I,J) = L
+              IF(TPAR(I,J,L) > T(I,J,L) .AND. &
+               PMID(I,J,L)>100.) IEQL(I,J) = L
             ENDIF
           ENDDO
         ENDDO