Merge pull request #10 from climbfuji/update_from_dev_emc_20200312_an…

…d_other_changes Update from dev/emc 2020/03/12
NOAA-EMC · 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