COMMON/comdiurn_r/sinlon(ngridmx),coslon(ngridmx),                &
     &        sinlat(ngridmx),coslat(ngridmx)
      COMMON/comdiurn_l/ldiurn

      REAL sinlon,coslon,sinlat,coslat
      LOGICAL ldiurn