Weather Forecasting APSI #4

!!$omp parallel don't! it slows down

!!$omp& default(shared)

!!$omp& private(i)

DO 30 I=1,LOOP

Y2=F2(I)

F2(I)=F0(I)+2.*DELTAT*F1(I)

F0(I)=Y2

30 CONTINUE

!!$omp end parallel do

• Don’t over parallelize small loops

  • GuideView helps find them

• Use if(<condition>) clause when sometimes big, sometimes small

Previous slide

Next slide

Back to first slide

View graphic version