SUBROUTINE S1SCOR (S1, f, v, ni, nj, iw1, iw2, nw1, nw2, igl)

ARGUMENTS

OUT

S1        s1 score                                              real

IN

F(NI,NJ)  forecast field                                        real
V(NI,NJ)  verifying field                                       real
NI        x-dimension of arrays F and V                         integer
NJ        y-dimension of arrays F and V                         integer
IW1       x-coordinate of bottom left corner of window          integer
IW2       y-coordinate of bottom left corner of window          integer
NW1       x-coordinate of upper right corner of window          integer
NW2       y-coordinate of upper right corner of window          integer
IGl       grid point interval for verification (set to 1 or 2)  integer
  (1,NJ)      (NI,NJ)  
   +-------------+
   |             | 
   |             |  arrays F and V 
   |             |
   |             |
   |             |
   +-------------+
  (1,1)       (NI,1)

DESCRIPTION

EXAMPLE

NOTES

If the coordinates are outside the limits of the arrays
or if IGL is not equal to 1 or 2, S1 is set to 99999.

SEE ALSO