Fix rank of 'phis' array in routine FV3_zs_filter.

Fixes #105
ufs-community · Aug 5, 2021 · dbe2ba5 · dbe2ba5
1 parent acba0fb
commit dbe2ba5
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
@@ -1203,12 +1203,14 @@ 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
 
     mdim = nint( real(npx_global) * min(10., stretch_fac) )
 
+    print*,'check of phis ',phis(isd,jsd,1)
+
     ! Del-2: high resolution only
     if ( npx_global<=97 ) then
        n_del2 = 0