Weather Forecasting APSI #5

!$omp parallel do schedule(dynamic)

!$omp& shared(...)

!$omp& private(help, ...)

!$omp& firstprivate (savex,savey)

DO 30 II=1,NZTOP

CALL DCTDX(..., SAVEX)

CALL DCTDY(HELP,… ,SAVEY)

30 CONTINUE

!$omp end parallel do

• First private (…) initializes private variables

Previous slide

Next slide

Back to first slide

View graphic version