Fix bugs in FV3_zs_filter and two_delta_filter.

RatkoVasic-NOAA · Aug 25, 2021 · 06cc530 · 06cc530
1 parent dc72965
commit 06cc530
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/sorc/grid_tools.fd/filter_topo.fd/filter_topo.F90 b/sorc/grid_tools.fd/filter_topo.fd/filter_topo.F90
@@ -1223,7 +1223,7 @@ subroutine FV3_zs_filter (is, ie, js, je, isd, ied, jsd, jed, npx, npy, npx_glob
     real, intent(IN):: sin_sg(4,isd:ied,jsd:jed,ntiles)
     real, intent(IN):: stretch_fac
     logical, intent(IN) :: nested, regional
-    real, intent(inout):: phis(isd:ied,jsd,jed,ntiles)
+    real, intent(inout):: phis(isd:ied,jsd:jed,ntiles)
     real:: cd2
     integer mdim, n_del2, n_del4
 
@@ -1334,6 +1334,8 @@ subroutine two_delta_filter(is, ie, js, je, isd, ied, jsd, jed, npx, npy, ntiles
     integer:: i,j, nt, t
     integer:: is1, ie2, js1, je2
 
+    a2 = 0.
+
     if ( .not. nested .and. grid_type<3 ) then
        is1 = max(3,is-1);  ie2 = min(npx-2,ie+2)
        js1 = max(3,js-1);  je2 = min(npy-2,je+2)