pp00aa use dynamic OpenMP scheduling due to load imbalance

PrincetonUniversity · Nov 14, 2024 · fdc832f · fdc832f
1 parent 6d2693c
commit fdc832f
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/pp00aa.f90 b/src/pp00aa.f90
@@ -145,7 +145,7 @@ subroutine pp00aa
       SALLOCATE( utflag, (ioff:lnPtrj                    ),    0 ) ! error flag that indicates if fieldlines successfully followed; 22 Apr 13;
       SALLOCATE(  fiota, (ioff:lnPtrj, 1:2               ), zero ) ! will always need fiota(0,1:2);
 
-!$OMP PARALLEL DO SHARED(lnPtrj,ioff,Wpp00aa,Nz,data,fiota,utflag,iota,oita,myid,vvol,cpus,Lconstraint,nPpts,ppts) PRIVATE(itrj,sti)
+!$OMP PARALLEL DO SHARED(lnPtrj,ioff,Wpp00aa,Nz,data,fiota,utflag,iota,oita,myid,vvol,cpus,Lconstraint,nPpts,ppts) PRIVATE(itrj,sti) SCHEDULE(dynamic)
       do itrj = ioff, lnPtrj ! initialize Poincare plot with trajectories regularly spaced between interfaces along \t=0;
 
         ; sti(1:2) = (/ - one + itrj    * two / lnPtrj   , Ppts*pi /)