diff --git a/sorc/orog_mask_tools.fd/orog.fd/orog_utils.F90 b/sorc/orog_mask_tools.fd/orog.fd/orog_utils.F90
index 92ac571a3..cae1f2bec 100644
--- a/sorc/orog_mask_tools.fd/orog.fd/orog_utils.F90
+++ b/sorc/orog_mask_tools.fd/orog.fd/orog_utils.F90
@@ -1031,9 +1031,9 @@ subroutine get_xnsum3(lon1,lat1,lon2,lat2,imn,jmn, &
  integer, intent(in) :: imn,jmn
  integer, intent(in) :: zavg(imn,jmn)
 
- real, intent(in)    :: glat(jmn)
+ real, intent(in)    :: hc, glat(jmn)
  real, intent(in)    :: lon1,lat1,lon2,lat2,delxn
- real, intent(out)   :: xnsum1,xnsum2,hc
+ real, intent(out)   :: xnsum1,xnsum2
 
  integer             :: i, j, ist, ien, jst, jen, i1