Fix two bugs in MDL2P.f for "ID" (#154)

On branch release/gefs_v12 modified: MDL2P.f
NOAA-EMC · Jul 29, 2020 · 5e88e06 · 5e88e06
1 parent 0baf6bf
commit 5e88e06
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/sorc/ncep_post.fd/MDL2P.f b/sorc/ncep_post.fd/MDL2P.f
@@ -2290,9 +2290,8 @@ SUBROUTINE MDL2P(iostatusD3D)
                ENDDO
              ENDDO
              if(grib == 'grib1')then
-               ID(1:46)=0
+               ID(1:25)=0
                ID(02)=141             ! Parameter Table 141
-               ID(36)=2
                CALL GRIBIT(IGET(738),LP,GRID1,IM,JM)
              elseif(grib == 'grib2') then
                cfld = cfld + 1