The bug fix for a printout of a out of boundary array. (#239)

* The bug fix for a printout of a out of boundary array. * Tweaking the printout line.
NOAA-EMC · Dec 11, 2020 · 54c360a · 54c360a
1 parent a5fe7f2
commit 54c360a
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/sorc/ncep_post.fd/INITPOST_GFS_NEMS_MPIIO.f b/sorc/ncep_post.fd/INITPOST_GFS_NEMS_MPIIO.f
@@ -1110,8 +1110,8 @@ SUBROUTINE INITPOST_GFS_NEMS_MPIIO(iostatusAER)
               pint(i,j,l)   = pint(i,j,l-1) + dpres(i,j,l-1)
             enddo
           enddo
-          if (me == 0) print*,'sample model pint,pmid' ,ii,jj,l &
-          ,pint(ii,jj,l),pmid(ii,jj,l)
+          if (me == 0) print*,'sample model pint' ,ii,jj,l &
+          ,pint(ii,jj,l)
         end do
       endif