diff --git a/sorc/ncep_post.fd/INITPOST_GFS_NEMS_MPIIO.f b/sorc/ncep_post.fd/INITPOST_GFS_NEMS_MPIIO.f index 5d773cea6..ed2ed5a60 100644 --- 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