Skip to content

Commit

Permalink
Fix compilation error with "-check all" for gfs_bufrsnd (#1580)
Browse files Browse the repository at this point in the history
Resolves NCO bugzilla #1208 within the GFSv16 package.
  • Loading branch information
BoCui-NOAA authored May 5, 2023
1 parent bf0d96f commit b8f6c95
Showing 1 changed file with 2 additions and 1 deletion.
3 changes: 2 additions & 1 deletion sorc/gfs_bufr.fd/meteorg.f
Original file line number Diff line number Diff line change
Expand Up @@ -35,6 +35,7 @@ subroutine meteorg(npoint,rlat,rlon,istat,cstat,elevstn,
! RELATED CALLS AND CLEAN UP THE CODE.
! 2020-04-24 GUANG PING LOU Clean up code and remove station height
! adjustment
! 2023-03-28 Bo Cui Fix compilation error with "-check all" for gfs_bufrsnd
!
! USAGE: CALL PROGRAM meteorg
! INPUT:
Expand Down Expand Up @@ -1105,7 +1106,7 @@ subroutine meteorg(npoint,rlat,rlon,istat,cstat,elevstn,
endif
print*,'finish computing MSLP'
print*,'finish computing zp ', (zp(11,k),k=1,levs)
print*,'finish computing zp2(11-12) ', zp2(11),zp2(12)
print*,'finish computing zp2(1-2) ', zp2(1),zp2(2)
!
! prepare buffer data
!
Expand Down

0 comments on commit b8f6c95

Please sign in to comment.