## 1 (i)
 SOURCES .KAPLAN .EXTENDED .v2 .ssta
  T (Jan 1900) (Dec 2012) RANGE
  T 12 boxAverage
  T 12 STEP
  [X Y][T]svd
  .evaln
  ev 1 25 RANGE
  
  ## 1(i)  change to ev 1 RANGE, ev 2 RANGE, etc. to get
  ## spatial patterns of 1, 2, 3 and 4 modes
   SOURCES .KAPLAN .EXTENDED .v2 .ssta
  T (Jan 1900) (Dec 2012) RANGE
  T 12 boxAverage
  T 12 STEP
  [X Y][T]svd
  .Ss
  ev 3 RANGE
  /color_smoothing null def
  X Y fig- colors |
          contours coasts -fig
### 1(i) change ev 1 RANGE, ev 2 RANGE etc. to get
### temporal patterns of first 4 modes		  
SOURCES .KAPLAN .EXTENDED .v2 .ssta
  T (Jan 1900) (Dec 2012) RANGE
  T 12 boxAverage
  T 12 STEP
  [X Y][T]svd
  .Ts
  ev 4 RANGE

### 1(ii)  mode 2 is ENSO remove and same commands as above to get
## .S, .Ts etc.
 SOURCES .KAPLAN .EXTENDED .v2 .ssta
  T (Jan 1900) (Dec 2012) RANGE
  T 12 boxAverage
  T 12 STEP
  [X Y][T]svd
  ev 2 RANGE
  Ss
   Ts[ev]mulsum
   SOURCES .KAPLAN .EXTENDED .v2 .ssta
    T (Jan 1900) (Dec 2012) RANGE
    T 12 boxAverage
    T 12 STEP
    exch sub
   [X Y][T]svd
   .Ss
   ev 4 RANGE
   /color_smoothing null def
   X Y fig- colors |
           contours coasts -fig
#### PCs
		    .Ts
   ev 4 RANGE

  
### 1(iii) change the years to get the sub-periods

####################################################
#### 2 PCA on climate div pcp and correlate with PCs of SST
 expert
 SOURCES .NOAA .NCDC .CIRS .ClimateDivision .pcp
  T (Nov 1958) (Dec 2012) RANGE
  T 12 splitstreamgrid
  T (Nov) (Dec) (Jan) (Feb) (Mar) VALUES
  [T]average
  T2 /T renameGRID
  SOURCES .KAPLAN .EXTENDED .v2 .ssta
   T (Nov 1958) (Mar 2013) RANGE
   T 12 splitstreamgrid
   T (Nov) (Dec) (Jan) (Feb) (Mar) VALUES
   [T]average
   T2 /T renameGRID
   [X Y][T]svd
   ev 2 RANGE
   .Ts
   T 2 index .T replaceGRID
   [T]correlate
  IDIV 201 207 RANGE