Weather Forecasting APSI #2b

10 CONTINUE

… <Several CALLS> ...

DO 30 K=1,NZ C(I,J,K)=HELP(K) CMASS=CMASS+HELP(K)

30 CONTINUE

50 CONTINUE

!$omp end do

40 CONTINUE

!$omp end parallel

• Reduction means

  • Each thread gets private CMASS
  • Private CMASS added at end of parallel region
  • Serial code unchanged

Previous slide

Next slide

Back to first slide

View graphic version