| author | Forrest Hoffman <forrest@climatemodeling.org> |
| Mon, 26 Jan 2009 22:08:20 -0500 | |
| changeset 0 | 0c6405ab2ff4 |
| permissions | -rw-r--r-- |
| forrest@0 | 1 |
; **************************************************** |
| forrest@0 | 2 |
; combine scatter, histogram, global and zonal plots |
| forrest@0 | 3 |
; compute all correlation coef and M score |
| forrest@0 | 4 |
; **************************************************** |
| forrest@0 | 5 |
load "$NCARG_ROOT/lib/ncarg/nclscripts/csm/gsn_code.ncl.test" |
| forrest@0 | 6 |
load "$NCARG_ROOT/lib/ncarg/nclscripts/csm/gsn_csm.ncl.test" |
| forrest@0 | 7 |
load "$NCARG_ROOT/lib/ncarg/nclscripts/csm/contributed.ncl" |
| forrest@0 | 8 |
;************************************************ |
| forrest@0 | 9 |
|
| forrest@0 | 10 |
; Main code. |
| forrest@0 | 11 |
begin |
| forrest@0 | 12 |
|
| forrest@0 | 13 |
dirm = "/fis/cgd/cseg/people/jeff/clamp_data/model/" |
| forrest@0 | 14 |
film = "surf_co2.clamp.T42.20070208.nc" |
| forrest@0 | 15 |
fm = addfile (dirm+film,"r") |
| forrest@0 | 16 |
|
| forrest@0 | 17 |
surf_co2 = fm->surf_co2 |
| forrest@0 | 18 |
|
| forrest@0 | 19 |
print (surf_co2(:,0,0)) |
| forrest@0 | 20 |
|
| forrest@0 | 21 |
avg_co2_1990_2004 = avg(surf_co2(192:206,0,0)) |
| forrest@0 | 22 |
|
| forrest@0 | 23 |
print (avg_co2_1990_2004) |
| forrest@0 | 24 |
|
| forrest@0 | 25 |
end |