bug fix in MISCLN.f (NOAA-EMC#25)

EdwardColon-NOAA · Apr 25, 2022 · 8cae2a3 · 8cae2a3
1 parent 82f3133
commit 8cae2a3
Showing 1 changed file with 0 additions and 1 deletion.
diff --git a/sorc/ncep_post.fd/MISCLN.f b/sorc/ncep_post.fd/MISCLN.f
@@ -3276,7 +3276,6 @@ SUBROUTINE MISCLN
            DPBND = 300.E2
            CALL CALCAPE(ITYPE,DPBND,P1D,T1D,Q1D,LB2,EGRID1,     &
                         EGRID2,EGRID3,EGRID4,EGRID5)
-           IF (SUBMODELNAME == 'RTMA') MUMIXR(I,J) = Q1D(I,J)
            IF (IGET(584)>0) THEN
 ! dong add missing value to cin
                GRID1 = spval