Weather Forecasting APSI #3

!$omp parallel

DO 40 J=1,NY

!$omp do schedule(dynamic)

DO 30 I=1,NX

cWRM serial bug? DKS uninitialized

DKS(1) = 0.0

IF(ISH.EQ.1) THEN

CALL UPADE(...)

ELSE

CALL UCRANK(...)

ENDIF

30 CONTINUE

40 CONTINUE

!$omp end parallel

• Schedule(dynamic) load balances when different iterations take different times

• Parallelizing detects parallel and serial bugs

  • Assure helps find them

Previous slide

Next slide

Back to first slide

View graphic version