TLNS3DReductions

• STEP contains a reduction --

  • Used Reduction clause
  • Min reductions is more stable than Sums

!$omp do reduction(min: dtmin)

do 60 k=kmn+1,kmx

do 60 j=jmn+1,jmx

do 60 i=imn+1,imx

dtli = 1./dti(i,j,k)

dtlj = 1./dtj(i,j,k)

dtlk = 1./dtk(i,j,k)

dtl = vol(i,j,k)*dtli*dtlj*dtlk/

. (dtli*dtlj +dtlj*dtlk +dtlk*dtli)

dtl = (1.-i2dfl)*dtl + i2dfl*vol(i,j,k)*

. dtli*dtlj/(dtli+dtlj)

dtmin = amin1(dtmin,dtl)

60 continue

Previous slide

Next slide

Back to first slide

View graphic version