diff -r 000000000000 -r 0c6405ab2ff4 class/01.test.ncl
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/class/01.test.ncl	Mon Jan 26 22:08:20 2009 -0500
@@ -0,0 +1,33 @@
+;*************************************************
+; ce_1.ncl
+;************************************************
+load "$NCARG_ROOT/lib/ncarg/nclscripts/csm/gsn_code.ncl"  
+load "$NCARG_ROOT/lib/ncarg/nclscripts/csm/gsn_csm.ncl"  
+;************************************************
+begin
+ 
+;************************************************
+; read in model data
+;************************************************
+  diri  = "/fis/cgd/cseg/people/jeff/clamp/class/"
+  fili  = "T42.clamp.surface-data.060412.nc"
+  f     = addfile(diri+fili,"r")
+
+  y     = f->PCT_PFT
+  printVarSummary(y)
+
+  x = y(0,:,:)
+  
+  dimx = dimsizes(y)
+  nlat = dimx(1)
+  nlon = dimx(2)
+
+  do j= 0,nlat-1
+  do i= 0,nlon-1
+     x(j,i) = sum(y(:,j,i))      
+  end do
+  end do 
+
+  print (x)
+
+end
\ No newline at end of file