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