module comdiurn_h

       implicit none

       real, allocatable, dimension(:) :: sinlon, coslon, sinlat, coslat
       logical :: ldiurn
!$OMP THREADPRIVATE(sinlon,coslon,sinlat,coslat,ldiurn) !ldiurn is unused

       end module comdiurn_h