Merge pull request #10 from climbfuji/update_from_dev_emc_20200312_an…

…d_other_changes Update from dev/emc 2020/03/12
NOAA-GSL · Mar 13, 2020 · ce66d6a · ce66d6a
2 parents 4279bf7 + 9bacf55
commit ce66d6a
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/model/dyn_core.F90 b/model/dyn_core.F90
@@ -364,10 +364,10 @@ subroutine dyn_core(npx, npy, npz, ng, sphum, nq, bdt, n_split, zvir, cp, akap,
                allocate( dv(isd:ied+1,jsd:jed,  npz) )
                call init_ijk_mem(isd,ied+1, jsd,jed  , npz, dv, 0.)
           endif
-!$OMP parallel do default(none) shared(is,ie,js,je,npz,diss_est)
+!$OMP parallel do default(none) shared(isd,ied,jsd,jed,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