Merge pull request ufs-community#7 from noaa-psd/skeb_sar

Skeb sar
LarissaReames-NOAA · Mar 11, 2020 · 371a29a · 371a29a
2 parents db3acfb + feaf652
commit 371a29a
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