Set 1 mb upper bound for searching EQ level in CAPE computation from …

…Hui-ya. (NOAA-EMC#149)
lgannoaa · Jul 20, 2020 · 41ed232 · 41ed232
1 parent a25f6ab
commit 41ed232
Showing 1 changed file with 2 additions and 1 deletion.
diff --git 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