zero out dissipation estimate in halo region, needed for SAR

NOAA-EMC · Nov 8, 2019 · c4cfedd · c4cfedd
1 parent 4e2e957
commit c4cfedd
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/model/dyn_core.F90 b/model/dyn_core.F90
@@ -366,8 +366,8 @@ subroutine dyn_core(npx, npy, npz, ng, sphum, nq, bdt, n_split, zvir, cp, akap,
           endif
 !$OMP parallel do default(none) shared(is,ie,js,je,npz,diss_est)
           do k=1,npz
-            do j=js,je
-              do i=is,ie
+            do j=jsd,jed
+              do i=isd,ied
                 diss_est(i,j,k) = 0.
               enddo
             enddo