From e54edb959d2a2ea149b9101aadefa2c91864f631 Mon Sep 17 00:00:00 2001 From: George Gayno Date: Wed, 18 Sep 2024 08:04:39 -0500 Subject: [PATCH] Fix intent attribute hc in routine get_xnsum3. Fixes #970. --- sorc/orog_mask_tools.fd/orog.fd/orog_utils.F90 | 4 ++-- 1 file changed, 2 insertions(+), 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 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