ncl roef函数使用求助

1649518749

ncl里有个eof_varimax函数是求reof的，但运行时出现：fatal:(time) is not a named dimension in variable (eof_ts).fatal:["Execute.c":8575]:Execute: Error occurred at or near line 122 in file /home/fc/ncl/scripts/500reof.ncl
的报错.
求大神帮忙看看。
蓝色代码的地方是官网的函数使用说明
红色代码的地方就是报错地方
; ==============================================================
; eof_1.ncl
;
; Concepts illustrated:
;   - Calculating EOFs
;   - Using coordinate subscripting to read a specified geographical region
;   - Rearranging longitude data to span -180 to 180
;   - Calculating symmetric contour intervals
;   - Drawing filled bars above and below a given reference line
;   - Drawing subtitles at the top of a plot
;   - Reordering an array
; ==============================================================
; NCL V6.4.0 has new functions eofunc_n_Wrap and
; eofunc_ts_n_Wrap that allow you to calculate the EOFs without
; first having to first reorder the data. See eof_1_640.ncl.
; ==============================================================
; Calculate EOFs of the Sea Level Pressure over the North Atlantic.
; ==============================================================
; The slp.mon.mean file can be downloaded from:
; http://www.esrl.noaa.gov/psd/dat ... alysis.surface.html
; ==============================================================
; These files are loaded by default in NCL V6.2.0 and newer
; load "$NCARG_ROOT/lib/ncarg/nclscripts/csm/gsn_code.ncl"
; load "$NCARG_ROOT/lib/ncarg/nclscripts/csm/gsn_csm.ncl"
; load "$NCARG_ROOT/lib/ncarg/nclscripts/csm/contributed.ncl"
load "$NCARG_ROOT/lib/ncarg/nclscripts/cnmap/cnmap.ncl"
begin
; ==============================================================
; User defined parameters that specify region of globe and
; ==============================================================
  latS   =  0.
  latN   =  87.5
  lonL   =  -180.
  lonR   =  180.


  yrStrt = 1948
  yrLast = 1998


  season = "DJF"    ; choose Dec-Jan-Feb seasonal mean


  neof   = 3        ; number of EOFs
;   neof = nvar
  optEOF = True      
  optEOF@jopt = 0   ; This is the default; most commonly used; no need to specify.
;;optEOF@jopt = 1   ; **only** if the correlation EOF is desired


  optETS = False


; ==============================================================
; Open the file: Read only the user specified period
; ==============================================================
  f      = addfile ("/home/fc/data/slp.mon.mean.nc", "r")


  TIME   = f->time
  YYYY   = cd_calendar(TIME,-1)/100                 ; entire file
  iYYYY  = ind(YYYY.ge.yrStrt .and. YYYY.le.yrLast)


  slp    = f->slp(iYYYY,:,:)
  printVarSummary(slp)                              ; variable overview


; ==============================================================
; dataset longitudes span 0=>357.5
; Because EOFs of the North Atlantic Oscillation are desired
; use the "lonFlip" (contributed.ncl) to reorder
; longitudes to span -180 to 177.5: facilitate coordinate subscripting
; ==============================================================
  slp    = lonFlip( slp )
  printVarSummary(slp)                              ; note the longitude coord


; ==============================================================
; compute desired global seasonal mean: month_to_season (contributed.ncl)
; ==============================================================
  SLP    = month_to_season (slp, season)
  nyrs   = dimsizes(SLP&time)
  printVarSummary(SLP)


; =================================================================
; create weights:  sqrt(cos(lat))   [or sqrt(gw) ]
; =================================================================
  rad    = 4.*atan(1.)/180.
  clat   = f->lat           
  clat   = sqrt( cos(rad*clat) )                 ; gw for gaussian grid


; =================================================================
; weight all observations
; =================================================================
  wSLP   = SLP                                   ; copy meta data
  wSLP   = SLP*conform(SLP, clat, 1)
  wSLP@long_name = "Wgt: "+wSLP@long_name


; =================================================================
; Reorder (lat,lon,time) the *weighted* input data
; Access the area of interest via coordinate subscripting
; =================================================================
  xw     = wSLP({lat|latS:latN},{lon|lonL:lonR},time|:)
  x      = wSLP(time|:,{lat|latS:latN},{lon|lonL:lonR})


;  eof      = eofunc_Wrap(xw, neof, optEOF)      
;  eof_ts   = eofunc_ts_Wrap (xw, eof, optETS)
ev = eofcor(xw,neof)
  option      = True
  option@jopt = 1
    eof = eofcor(xw,neof)
    eof_ts = eof_varimax(eof)


  printVarSummary( eof )                         ; examine EOF variables
  printVarSummary( eof_ts )


; =================================================================
; Normalize time series: Sum spatial weights over the area of used
; =================================================================
  dimxw  = dimsizes( xw )
  mln    = dimxw(1)
  sumWgt = mln*sum( clat({lat|latS:latN}) )
  eof_ts = eof_ts/sumWgt


; =================================================================
; Extract the YYYYMM from the time coordinate
; associated with eof_ts [same as SLP&time]
; =================================================================


  yyyymm = cd_calendar(eof_ts&time,-2)/100  
;;yrfrac = yyyymm_to_yyyyfrac(yyyymm, 0.0); not used here


;============================================================
; PLOTS
;============================================================
  wks = gsn_open_wks("png","reof500")         ; send graphics to PNG file
  plot = new(neof,graphic)                ; create graphic array
                                          ; only needed if paneling
; EOF patterns


  res                      = True         
  res@gsnDraw              = False        ; don't draw yet
  res@gsnFrame             = False        ; don't advance frame yet
  res@gsnAddCyclic         = False        ; plotted dataa are not cyclic

  res@mpFillOn             = False        ; turn off map fill
  res@mpMinLatF            = latS         ; zoom in on map
  res@mpMaxLatF            = latN
  res@mpMinLonF            = lonL
  res@mpMaxLonF            = lonR
  res@cnFillOn             = False         ; turn on color fill
  res@cnLinesOn            = True        ; True is default
res@cnLineLabelInterval       = 1        ; True is default
;  res@cnFillPalette        = "BlWhRe"     ; set color map
;  res@lbLabelBarOn         = True       ; turn off individual lb's
  res@cnLineColor = "red"
res@gsnContourLineThicknessesScale =1.5
res@gsnContourNegLineDashPattern = 1
res@cnInfoLabelOn = False
res@mpOutlineOn             = True  ; Use outlines from shapefile
res@cnFillDrawOrder         = "PreDraw"
res@mpDataBaseVersion       = "MediumRes"
res@mpDataSetName           = "Earth..4"
; res@mpAreaMaskingOn         = True
; res@mpMaskAreaSpecifiers    = (/"China","Taiwan","Disputed area between India and China","India:Arunachal Pradesh"/)
; res@mpLandFillColor         = "white"
; res@mpInlandWaterFillColor  = "white"
; res@mpOceanFillColor        = "white"
; res@mpOutlineBoundarySets   = "NoBoundaries"
res@mpNationalLineColor     = "black"        ;guojie yan se
res@mpGeophysicalLineColor  = "black"     ; kao shui diyu yan se
res@mpCenterLonF = 180
                                          ; set symmetric plot min/max
  symMinMaxPlt(eof, 16, False, res)       ; contributed.ncl


; panel plot only resources
  resP                     = True         ; modify the panel plot
  resP@gsnMaximize         = True         ; large format
  resP@gsnPanelLabelBar    = True         ; add common colorbar


  yStrt                    = yyyymm(0)/100
  yLast                    = yyyymm(nyrs-1)/100
  resP@txString            = "SLP: "+season+": "+yStrt+"-"+yLast


;*******************************************
; first plot
;*******************************************
  do n=0,neof-1
     res@gsnLeftString  = "EOF "+(n+1)
     res@gsnRightString = sprintf("%5.1f", eof@pcvar(n)) +"%"
     plot(n)=gsn_csm_contour_map_ce(wks,eof(n,:,:),res)
  end do
  gsn_panel(wks,plot,(/neof,1/),resP)     ; now draw as one plot


;*******************************************
; second plot
;*******************************************
; EOF time series  [bar form]


  rts           = True
  rts@gsnDraw   = False       ; don't draw yet
  rts@gsnFrame  = False       ; don't advance frame yet
  rts@gsnScale  = True        ; force text scaling               


; these four rtsources allow the user to stretch the plot size, and
; decide exactly where on the page to draw it.


  rts@vpHeightF = 0.40        ; Changes the aspect ratio
  rts@vpWidthF  = 0.85
  rts@vpXF      = 0.10        ; change start locations
  rts@vpYF      = 0.75        ; the plot




  rts@tiYAxisString = "Pa"                    ; y-axis label      


  rts@gsnYRefLine           = 0.              ; reference line   
  rts@gsnXYBarChart         = True            ; create bar chart
  rts@gsnAboveYRefLineColor = "red"           ; above ref line fill red
  rts@gsnBelowYRefLineColor = "blue"          ; below ref line fill blue


; panel plot only resources
  rtsP                      = True            ; modify the panel plot
  rtsP@gsnMaximize          = True            ; large format
  rtsP@txString             = "SLP: "+season+": "+yStrt+"-"+yLast


  year = yyyymm/100


; create individual plots
  do n=0,neof-1
     rts@gsnLeftString  = "EOF "+(n+1)
     rts@gsnRightString = sprintf("%5.1f", eof@pcvar(n)) +"%"
     plot(n) = gsn_csm_xy (wks,year,eof_ts(n,:),rts)


  end do
  gsn_panel(wks,plot,(/neof,1/),rtsP)     ; now draw as one plot


end

风往北吹

必须要有mixed Julian/Gregorian date属性才能用cd_calender,自己看函数属性吧。错误提示已经很清楚了

handsoman22

跟着来学习的~正在研究NCL

藕茭白空心菜

同为跟着来学习的~

handsoman22

为楼主呼吁一下，有此类大神赶紧帮解决一下啊~

xigua

楼主reof已经做出来了吗？有计算reof的时间系数？（ncl）

Pilgrim

来学习学习学习学习学习学习学习学习

kaiofchina

{:5_275:}

kermit

学习了学习了

kermit

学习了学习了{:5_213:}{:5_213:}