COMMON/comdiurn/ldiurn,                                           &
     &     sinlon(ngridmx),coslon(ngridmx),                             &
     &     sinlat(ngridmx),coslat(ngridmx)
      
      real sinlon,coslon,sinlat,coslat
      logical ldiurn