module comdiurn_h

       implicit none

       real, allocatable, dimension(:) :: sinlon, coslon, sinlat, coslat
       logical :: ldiurn

       end module comdiurn_h