Flush example nt variable

[arthur.avramiea]

I'm trying to understand the example in page 117 of the book, the one that explains how to use the flush directive to synchronize threads. I do not understand what is the nt variable in the if(iam .lt. nt) conditional (it is the 10th line down to up).

Code: Select all

!$OMP PARALLEL PRIVATE(k, iam)
iam = OMP_GET_THREAD_NUM()
isync(iam) = 0 ! Initialize synchronization array

! Wait for neighbor thread to finish
!$OMP BARRIER
do k = 2, nz
   if (iam .gt. 0) then
      do while(isync(iam-1) .eq. 0)
         !$OMP FLUSH(isync)
      end do
      isync(iam-1) = 0
      !$OMP FLUSH(isync,v)
   end if
   !$OMP DO SCHEDULE(STATIC, nchunk)
   do j = 2, ny; do i = 2, nx
      v(i,j,k) = v(i,j,k) + v(i-1,j,k) + ....
   end do; end do
!$OMP END DO NOWAIT

! Signal the availability of data to neighbor thread
   if (iam .lt. nt) then
      !$OMP FLUSH(isync,v)
      do while (isync(iam) .eq. 1)
         !$OMP FLUSH(isync)
      end do
      isync (iam) = 1
      !$OMP FLUSH(isync)
   end if
end do
!$OMP END PARALLEL

[ejd]

If you read what it says in the text for the Figure, you will find the following: "Note that ny is assumed to be a multiple of the number of threads nt".