mapres

From: cnl88 <cnl88_at_nyahnyahspammersnyahnyah>
Date: Wed Nov 02 2011 - 04:20:23 MDT

I have two questions .One is how can I remove the frameto make it as 1008
The other is that my setting below did not work :
    resp@cnHighLabelFontColor = "Black"
    resp@cnLowLabelFontColor = "Red"
 
why ?hope for your reply! below is my script
 
  load "$NCARG_ROOT/lib/ncarg/nclscripts/csm/gsn_code.ncl"
  load "$NCARG_ROOT/lib/ncarg/nclscripts/wrf/WRFUserARW.ncl"
load "$NCARG_ROOT/lib/ncarg/nclscripts/csm/gsn_csm.ncl"
load "/usr/local/ncl/lib/ncarg/nclscripts/wrf/WRF_contributed.ncl"
load "/usr/local/ncl/lib/ncarg/nclscripts/csm/shea_util.ncl"
load "/usr/local/ncl/lib/ncarg/nclscripts/csm/contributed.ncl"

  a = addfile("./2011-04-13_18:00:00box.nc","r")
fon ="2011041418nudgebox"
  wks = gsn_open_wks("eps",fon)
time =24
istep1=24
 T = a->T(istep1,:,:,:)
       th = T + 290.
       P = a->P(istep1,:,:,:)
       PB = a->PB(istep1,:,:,:)
       p = ( P + PB )
       tk = wrf_tk( p , th )
       QVAPOR = a->QVAPOR(istep1,:,:,:)
       PH = a->PH(istep1,:,:,:)
       PHB = a->PHB(istep1,:,:,:)
       var = ( PH + PHB ) / 9.81
       dim = dimsizes(var)
       z = 0.5 * ( var(0:dim(0)-2,:,:) + var(1:dim(0)-1,:,:) )
          slp= wrf_slp( z, tk, p, QVAPOR )
        wrf_smooth_2d( slp, 3 ) ; smooth slp
              tmp = ndtooned(slp)
  xmean = dim_avg(tmp)
  xdev = dim_stddev(tmp)
  xmax = dim_max(tmp)
  xmin = dim_min(tmp)
 
  u = wrf_user_getvar(a,"U10",time) ; u at 10 m
  v = wrf_user_getvar(a,"V10",time) ; v at 10 m

  resp = True
 resp@cnLineColor = "NavyBlue"
     resp@ContourParameters = (/ 990., 1046., 2. /)
     resp@cnLineLabelBackgroundColor = -1
    resp@cnLineThicknessF = 1 ; change line thickness
    resp@cnHighLabelsOn = True
    resp@cnLowLabelsOn = True
    resp@cnHighLabelFontColor = "Black"
    resp@cnLowLabelFontColor = "Red"
     resp@cnHighLabelFontHeightF = 0.025
    resp@NoHeaderFooter = True
    resp@MainTitle = fon
  contour_p = wrf_contour(a,wks,slp,resp)

  resw = True
  resw@vcRefMagnitudeF = 20.0 ; make vectors larger
 resw@vcRefLengthF = 0.040 ; ref vec length
   resw@vcGlyphStyle = "CurlyVector"
 resw@vcMinDistanceF = 0.027
   resw@vcRefAnnoOrthogonalPosF = .1 ; move ref vector down
resw@NoHeaderFooter = True
 
  vector = wrf_vector(a,wks,u(::3,::3),v(::3,::3),resw)
 
 plres = True
 
plres@mpOutlineBoundarySets = "National"
 ;plres@mpDataSetName = "Earth..4"
 ;plres@mpDataBaseVersion = "MediumRes"
 plres@mpGeophysicalLineColor = "Black"
 plres@mpNationalLineColor = "Black"
plres@NoHeaderFooter = True
plres@mpNationalLineThicknessF = 1.5
plres@mpGeophysicalLineThicknessF =1.5
 
  mpres = True
    mpres@mpProjection = "LambertConformal"
  mpres@mpLambertParallel1F = 21
  mpres@mpLambertParallel2F = 46
  mpres@mpLambertMeridianF = 110
 

 mpres@mpOutlineBoundarySets = "National"
 ;mpres@mpDataSetName = "Earth..4"
 ;mpres@mpDataBaseVersion = "MediumRes"
 mpres@mpGeophysicalLineColor = "Black"
 mpres@mpNationalLineColor = "Black"
 mpres@mpGridLineColor = "Black"
 mpres@mpLimbLineColor = "Black"
 mpres@mpPerimLineColor = "Black"
mpres@NoHeaderFooter = True

  over_id = wrf_map_overlays(a, wks,(/contour_p,vector/),mpres,plres)
delete(wks)
 cmd="convert -geometry 800x800 -density 300 -trim "+fon+".eps "+fon+".png"
print(cmd)
  system(cmd)

 
 

_______________________________________________
ncl-talk mailing list
List instructions, subscriber options, unsubscribe:
http://mailman.ucar.edu/mailman/listinfo/ncl-talk

____1.png ____2.png
Received on Wed Nov 2 04:20:45 2011

This archive was generated by hypermail 2.1.8 : Fri Nov 04 2011 - 08:43:41 MDT