Re: mapres

To fix the first problem, try:

       opts@cnLineLabelBackgroundColor = "white"
       opts@cnLabelDrawOrder = "PostDraw"

As for the second problem with the high/low label font colors, this is
due to the "wrf_contour"
routine resetting these resources under the hood to the setting for
"cnLineLabelFontColor".

If you want to fix this, you can copy

> $NCARG_ROOT/lib/ncarg/nclscripts/wrf/WRFUserARW.ncl

to your own directory, modify the file, and comment these two lines:

   opts@cnHighLabelFontColor = opts@cnLineColor
   opts@cnLowLabelFontColor = opts@cnLineColor

--Mary

On Nov 2, 2011, at 4:20 AM, cnl88 wrote:

> <½Øͼ1.png>
> I have two questions .One is how can I remove the frame <½Øͼ
> 2.png>to 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

_______________________________________________
ncl-talk mailing list
List instructions, subscriber options, unsubscribe:
http://mailman.ucar.edu/mailman/listinfo/ncl-talk
Received on Wed Nov 2 08:04:02 2011