1.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.2 +++ b/lai/03.2.ncl	Mon Jan 26 22:08:20 2009 -0500
     1.3 @@ -0,0 +1,132 @@
     1.4 +; ***********************************************
     1.5 +; interpolate into model grids (T31)
     1.6 +; ***********************************************
     1.7 +load "$NCARG_ROOT/lib/ncarg/nclscripts/csm/gsn_code.ncl"
     1.8 +load "$NCARG_ROOT/lib/ncarg/nclscripts/csm/gsn_csm.ncl"
     1.9 +load "$NCARG_ROOT/lib/ncarg/nclscripts/csm/contributed.ncl"
    1.10 +;************************************************
    1.11 +begin
    1.12 +
    1.13 +  year = 2001
    1.14 +
    1.15 +;************************************************
    1.16 +; output data
    1.17 +;************************************************
    1.18 +  diro  = "/fis/cgd/cseg/people/jeff/clamp_data/lai/ob/"
    1.19 +  filo  = "LAI_" + year + "_monthly_1.9.nc"
    1.20 +
    1.21 +  c = addfile(diro+filo,"c")
    1.22 +  filedimdef(c,"time",-1,True)
    1.23 +
    1.24 +;************************************************
    1.25 +; read in observed data
    1.26 +;************************************************
    1.27 +  diri  = "/fis/cgd/cseg/people/jeff/clamp_data/lai/ob/"
    1.28 +  fili  = "LAI_" + year + "_monthly.nc"
    1.29 +
    1.30 +  g     = addfile (diri+fili,"r")
    1.31 +  bi    = g->LAI   
    1.32 +  xi    = g->lon 
    1.33 +  yi    = g->lat
    1.34 +
    1.35 +;************************************************
    1.36 +; change into 0-360E, 90S-90N
    1.37 +;************************************************
    1.38 + 
    1.39 + yi    = (/ yi(::-1) /)
    1.40 + bi    = (/ bi(:,::-1,:) /)
    1.41 + printVarSummary(bi)
    1.42 +
    1.43 + b2    = bi
    1.44 + x2    = xi   
    1.45 + 
    1.46 + nx = dimsizes(xi)
    1.47 + do i= 0,nx-1
    1.48 +    if (i .lt. 3600) then
    1.49 +       p = i + 3600
    1.50 +       xi(p) = x2(i) + 360.      
    1.51 +    else
    1.52 +       p = i - 3600
    1.53 +       xi(p) = x2(i)
    1.54 +    end if
    1.55 +    bi(:,:,p)= b2(:,:,i) 
    1.56 + end do
    1.57 +
    1.58 + bi&lat =  yi
    1.59 + bi&lon =  xi
    1.60 +
    1.61 +;print (xi)
    1.62 +;print (yi)
    1.63 +
    1.64 +;************************************************
    1.65 +; read in model data
    1.66 +;************************************************
    1.67 + diri2  = "/fis/cgd/cseg/people/jeff/clamp_data/model/"
    1.68 + fili2  = "newcn05_ncep_1i_MONS_climo_lnd.nc"
    1.69 + f      = addfile (diri2+fili2,"r")
    1.70 +
    1.71 + lon    = f->lon     
    1.72 + lat    = f->lat
    1.73 + nlon   = dimsizes(lon)
    1.74 + nlat   = dimsizes(lat)      
    1.75 +
    1.76 +; print (xi)
    1.77 +; print (yi)
    1.78 +; print (xo)
    1.79 +; print (yo)
    1.80 +
    1.81 + bo = new((/12,nlat,nlon/),float)
    1.82 +
    1.83 + do m = 0,11
    1.84 +    do j=0,nlat-1
    1.85 +       if (j.eq.0 .or. j.eq.nlat-1) then
    1.86 +          if (j.eq.0) then
    1.87 +             LATS = -90.          
    1.88 +             LATN = lat(j)+0.5*(lat(j+1)-lat(j))
    1.89 +          end if
    1.90 +          if (j.eq.nlat-1) then
    1.91 +             LATS = lat(j)-0.5*(lat(j)-lat(j-1))
    1.92 +             LATN = 90.                  
    1.93 +          end if
    1.94 +       else
    1.95 +          LATS = lat(j)-0.5*(lat(j)-lat(j-1))
    1.96 +          LATN = lat(j)+0.5*(lat(j+1)-lat(j))
    1.97 +       end if
    1.98 + 
    1.99 +      do i=0,nlon-1
   1.100 +       if (i.eq.0 .or. i.eq.nlon-1) then
   1.101 +          if (i.eq.0) then
   1.102 +             LONL = 0.          
   1.103 +             LONR = lon(i)+0.5*(lon(i+1)-lon(i))
   1.104 +          end if
   1.105 +          if (i.eq.nlon-1) then
   1.106 +             LONL = lon(i)-0.5*(lon(i)-lon(i-1))
   1.107 +             LONR = 360.                 
   1.108 +          end if
   1.109 +       else
   1.110 +          LONL = lon(i)-0.5*(lon(i)-lon(i-1))
   1.111 +          LONR = lon(i)+0.5*(lon(i+1)-lon(i))
   1.112 +       end if
   1.113 +
   1.114 +;print (LATS)
   1.115 +;print (LATN)
   1.116 +;print (LONL)
   1.117 +;print (LONR)
   1.118 +
   1.119 +         bo(m,j,i) = avg(bi(m,{LATS:LATN},{LONL:LONR}))  
   1.120 +      end do 
   1.121 +    end do
   1.122 +  end do
   1.123 +
   1.124 +  bo!0   = "time"
   1.125 +  bo!1   = "lat"
   1.126 +  bo!2   = "lon"
   1.127 +  bo&time= bi&time
   1.128 +  bo&lat = lat
   1.129 +  bo&lon = lon
   1.130 +  bo@units      = bi@units
   1.131 +  bo@long_name  = bi@long_name
   1.132 +  bo@_FillValue = bi@_FillValue
   1.133 +
   1.134 +  c->LAI  = bo
   1.135 +end
   1.136 \ No newline at end of file