fix of openmp directives for dissipation estimate

NOAA-EMC · Nov 8, 2019 · b400a5c · b400a5c
1 parent c4cfedd
commit b400a5c
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/model/dyn_core.F90 b/model/dyn_core.F90
@@ -364,7 +364,7 @@ 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=jsd,jed
               do i=isd,ied