TLNS3DSOLVE

!$OMP PARALLEL

!$OMP&PRIVATE(WK1D5A,WK1D5B,

!$OMP& … 32 variables in list …

!$OMP& ,NBEG2,NEND2,NBCTYPE)

do 520 ibloc = 1,nbloc

…

call blkstp (imn,jmn,kmn,

if ( … ) then

call filtf

call navier

else

call filtc

endif

call deltaw (…)

call adfluxd (…)

525 continue

!$OMP END PARALLEL

Directive version follows original serial, just add directives

Privatize work arrays

Assure verifies that choices were right

Accuracy comparable to serial code

Previous slide Next slide Back to first slide View graphic version