Weather Forecasting APSI #2a

CMASS = 0.0

!$omp parallel default(shared)

!$omp& private(i,j,k,vd,help, ...)

!$omp& reduction(+:cmass)

DO 40 J=1,NY

!$omp do

DO 50 I=1,NX

VD=VDEP(I,J)

DO 10 K=1,NZ

HELP(K)=C(I,J,K)

10 CONTINUE

• Parallel region makes nested parallel do more efficient

  • Avoid entering and leave parallel mode

• Reduction clause generates parallel summing

Previous slide

Next slide

Back to first slide

View graphic version