! NOAA/PMEL TMAP
 ! Program FERRET  
 ! Version 5.22 - 07/27/00
 ! 26-Aug-02 10:05     

use sst_clim_hurrell_1x1_020724.nc
sho dat
shade/l=1 ignore0(ifrac)
go tlandr
go landr
go land
shade/l=2 ignore0(ifrac)
go land
shade/l=3 ignore0(ifrac)
go land
shade/l=4 ignore0(ifrac)
go land
set reg/x=0e:100e/y=25n:50n
shade/l=4 ignore0(ifrac)
go land
con/over/l=4 sst
shade /l=4 sst
go land
shade /l=4 ignore0(ifrac)
go land
set dat sst_clim_hurrell_gx1v3_020618.nc
sho dat
shade ignore0(ice_cov)
can reg/all
shade ignore0(ice_cov)
shade/l=1 ignore0(ice_cov)
shade/l=1 ignore0(ice_cov)
shade/l=2 ignore0(ice_cov)
shade/l=2 ignore0(sst)
let ice1 = if ice_cov lt 1.0 then 0 else ice_cov
shade/l=1 ignore0(ice1)
let ice1 = if ice_cov lt 0.01 then 0 else ice_cov
shade/l=1 ignore0(ice1)
shade/l=1 ignore0(ice1-ice_cov)
shade/l=2 ignore0(ice1-ice_cov)
shade/l=4 ignore0(ice_cov)
shade/l=3 ignore0(ice_cov)
shade/l=3 ignore0(ice1)
use domain.gx1v3_020308.nc
sho dat
set dat 2
let mm = mask[d=3]
shade/l=3 ignore0(ice1)
shade/over ignore0(mm)
let mm = 1-mask[d=3]
shade/l=3 ignore0(ice1)
let mm = 1-mask[d=3]
shade/over ignore0(mm)
shade/l=3 ignore0(ice1)
shade/overj/pal=black ignore0(mm)
shade/l=3 ignore0(ice_cov)
shade/overj/pal=black ignore0(mm)
shade/over/pal=black ignore0(mm)
set reg/i=20:100/j=270:320
shade/l=3 ignore0(ice_cov)
shade/over/pal=black ignore0(mm)
shade/l=3 ignore0(ice1)
shade/l=3 ignore0(ice_cov)
shade/l=3 ignore0(ice1)
shade/over/pal=black ignore0(mm)
shade/l=4 ignore0(ice_cov)
shade/over/pal=black ignore0(mm)
shade/l=4 ignore0(ice1)
shade/over/pal=black ignore0(mm)
can reg/all
sho dat
shade ice[l=@sum}
shade ice_cov[l=@sum}
shade ice_cov[l=@sum]
shade ignore0(ice_cov[l=@sum])
set reg/j=30:80
shade ignore0(ice_cov[l=@sum])
shade ignore0(ice_cov[l=1])
shade ignore0(ice_cov[l=2])
shade ignore0(ice_cov[l=3])
shade ignore0(ice_cov[l=4])
shade ignore0(ice_cov[l=5])
shade ignore0(ice_cov[l=6])
shade ignore0(ice1[l=6])
quit