module comdiurn_h

       implicit none

       ! These arrays are allocated in inifis
       real, allocatable, save, dimension(:) :: sinlon, coslon, sinlat, coslat
       logical,save :: ldiurn

       end module comdiurn_h