TLNS3DConvergence Checking

• CKRCONV serial --

  • Global convergence check
  • Put into a Single Process section
  • Would be slower in parallel

. . .

if(nitr .eq. 1 .and. igrid .eq. isoln

.and. ilast .ne. 1) then

!$OMP SINGLE

if(ibloc .eq. 1

.and. nstage .eq. mstage)

nres = nres + 1

if(nstage .eq. mstage) call ckrconv (…)

!$OMP END SINGLE

. . .

Previous slide

Next slide

Back to first slide

View graphic version