Weather Forecasting APSI #1

!$omp parallel do

!$omp& default(shared)

!$omp& private(i,k,l)

DO 50 K=1,NZTOP

DO 40 I=1,NX

cWRM removed dependency

cWRM L=L+1

L = (k-1)*nx + I

DCDX(L)=-(UX(L)+UM(K))*DCDX(L)+Q(L)

40 CONTINUE

50 CONTINUE

!$omp end parallel do

• Many parallel loops simply use parallel do

• KAP autoparallelize when possible

• Simplify code by removing unneeded dependences

• Default(shared) simplifies shared list

Previous slide

Next slide

Back to first slide

View graphic version