Skip to content

Commit

Permalink
Merge pull request #10 from climbfuji/update_from_dev_emc_20200312_an…
Browse files Browse the repository at this point in the history
…d_other_changes

Update from dev/emc 2020/03/12
  • Loading branch information
climbfuji authored Mar 13, 2020
2 parents 4279bf7 + 9bacf55 commit ce66d6a
Showing 1 changed file with 3 additions and 3 deletions.
6 changes: 3 additions & 3 deletions model/dyn_core.F90
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down

0 comments on commit ce66d6a

Please sign in to comment.