Fix intent attribute hc in routine get_xnsum3.

Fixes ufs-community#970.
GeorgeGayno-NOAA · Sep 18, 2024 · e54edb9 · e54edb9
1 parent 71b0779
commit e54edb9
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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