COMMON/comdiurn/ldiurn,
     s     sinlon(ngridmx),coslon(ngridmx),
     s     sinlat(ngridmx),coslat(ngridmx)
      REAL sinlon,coslon,sinlat,coslat
      LOGICAL ldiurn