[ncl-talk] unstagger a C grid (as WRF data)

Paolina Bongioannini Cerlini paolina.cerlini at unipg.it
Fri Sep 26 01:12:41 MDT 2014


I'll try it, thanks!

Paolina

----- Messaggio originale -----
Da: jmason at eos.ubc.ca
A: "Paolina Bongioannini Cerlini" <paolina.cerlini at unipg.it>, ncl-talk at ucar.edu
Inviato: Giovedì, 25 settembre 2014 21:03:02
Oggetto: Re: [ncl-talk] unstagger a C grid (as WRF data)

I use this to get access to my U and V on the C grid

     uvmet = wrf_user_getvar(in, "uvmet", time)   ; destagger and rotate u
an v
      u = uvmet(0,:,:,:)                       ; extract u
      v = uvmet(1,:,:,:)                       ; extract v



> Paolina,
>
> I think you're doing more than you need to. Take another look at the
> function page (linked below).  The second argument should be a string
> either "X", "Y", or "Z".   Your variables already have this info
> attached to the variables   "stagger :     Y".
>
> https://www.ncl.ucar.edu/Document/Functions/WRF_arw/wrf_user_unstagger.shtml
>
> Therefore I think you can skip straight from the read in line to the
> unstagger line and change the unstagger commands to as below:
>
>   u = *wrf_user_unstagger*(U,U at stagger)
>
>
> Good luck,
>
> Alan Brammer
>
>
>
> On Thu, Sep 25, 2014 at 12:12 PM, Paolina Bongioannini Cerlini <
> paolina.cerlini at unipg.it> wrote:
>
>> Hi NCL people,
>>
>> I have this simple script where I am trying to calculate a divergence
>> but I have a staggered C grid. Trying to unstagger the grid ,
>> I cannot define correctly the staggered dimensions, as you may see in
>> the
>> error:
>>
>>
>> -------------------------------------------------------------------------------------------------------------------
>> ;*************************************************
>> ; wind_1.ncl
>> ;*************************************************
>> 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/wrf/WRFUserARW.ncl"
>> ;*************************************************
>> begin
>> ;*************************************************
>> ; open file and read in data: data are on Arakawa C grid
>> ;*************************************************
>>   f    =   addfile("rce-bret-2005.net000000.nc","r")
>>   U    = f->U(0,0,:,:)
>>   V    = f->V(0,0,:,:)
>>
>>   printVarSummary(U)
>>   printVarSummary(V)
>>
>>   U!0="y"
>>   U!1="x_stag"
>>   xstag=ispan(1,195,1)
>>   U at x_stag=xstag
>>   x_stag=U at x_stag
>>   V!0="y_stag"
>>   V!1="x"
>>   V at y_stag=ispan(1,195,1)
>>   y_stag=V at y_stag
>>
>>   u = wrf_user_unstagger(U,x_stag)
>>   v = wrf_user_unstagger(V,y_stag)
>>   printVarSummary(u)
>>   printVarSummary(v)
>>
>> ;*************************************************
>> ; calculate divergence: Use Wrap to include meta data
>> ;*************************************************
>>   div = uv2dvG_Wrap(u,v)       ; u,v ==> divergence
>>
>> ;*************************************************
>> ; calculate divergent wind components
>> ;*************************************************
>>   ud    = new ( dimsizes(u), typeof(u), u at _FillValue )
>>   vd    = new ( dimsizes(v), typeof(v), v at _FillValue )
>>
>>   dv2uvg(div,ud,vd) ; div  ==> divergent  wind components
>>
>>   copy_VarCoords(u, ud )
>>   copy_VarCoords(u, vd )
>>   ud at long_name  = "Zonal Divergent Wind"
>>   ud at units      = u at units
>>   vd at long_name  = "Meridional Divergent Wind"
>>   vd at units      = v at units
>> ;*************************************************
>> ; plot results
>> ;*************************************************
>>   wks  = gsn_open_wks("ps","wind")            ; open a workstation
>>
>>   res                 = True
>>   res at vcRefMagnitudeF = 3.                    ; make vectors larger
>>   res at vcRefLengthF    = 0.050                 ; reference vector length
>>   res at vcGlyphStyle    = "CurlyVector"         ; turn on curly vectors
>>   res at vcMinDistanceF  = 0.012                 ; thin the vectors
>>
>>   res at gsnLeftString   = "Divergent Wind"
>>                                               ; plot 1st time step
>>   plot= gsn_csm_vector_map_ce(wks,ud(0,:,:),vd(0,:,:),res)
>>
>> end
>>
>> --------------------------------------------------------------------------------------
>> I get this error:
>> Variable: U
>> Type: float
>> Total Size: 151320 bytes
>>             37830 values
>> Number of Dimensions: 2
>> Dimensions and sizes:   [y | 194] x [x_stag | 195]
>> Coordinates:
>>             x_stag: [-3000..579000]
>> Number Of Attributes: 5
>>   Time :        3600
>>   standard_name :       x_wind
>>   long_name :   U-velocity
>>   units :       m s-1
>>   stagger :     X
>>
>> Variable: V
>> Type: float
>> Total Size: 151320 bytes
>>             37830 values
>> Number of Dimensions: 2
>> Dimensions and sizes:   [y_stag | 195] x [x | 194]
>> Coordinates:
>>             y_stag: [-3000..579000]
>> Number Of Attributes: 5
>>   Time :        3600
>>   standard_name :       y_wind
>>   long_name :   V-velocity
>>   units :       m s-1
>>   stagger :     Y
>> warning:Argument 1 of the current function or procedure was coerced to
>> the
>> appropriate type and thus will not change if the function or procedure
>> modifies its value
>> fatal:Conditional statements (if and do while) require SCALAR logical
>> values, see all and any functions
>> fatal:["Execute.c":8567]:Execute: Error occurred at or near line 536 in
>> file $NCARG_ROOT/lib/ncarg/nclscripts/wrf/WRFUserARW.ncl
>>
>> fatal:["Execute.c":8567]:Execute: Error occurred at or near line 29 in
>> file wind_1.ncl
>>
>>
>> -------------------------------------------------------------------------------------------------------------
>> Thank you.
>>
>> paolina
>> --
>> --
>> Dr. Paolina Bongioannini Cerlini Ph.D.
>> University of Perugia
>> Dip.to Ingegneria
>> CIRIAF -room 8
>> Via G. Duranti, 67
>> 06125 - Perugia
>>
>> Tel.+39 075 585 3576
>> Fax +39 075 585 3697
>> e-mail: paolina.cerlini at unipg.it
>>         paolina.cerlini at fisica.unipg.it
>> cell.:+39 3405761980
>> --
>> _______________________________________________
>> 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
>



-- 
-- 
Dr. Paolina Bongioannini Cerlini Ph.D.
University of Perugia
Dip.to Ingegneria
CIRIAF -room 8
Via G. Duranti, 67
06125 - Perugia

Tel.+39 075 585 3576
Fax +39 075 585 3697
e-mail: paolina.cerlini at unipg.it
        paolina.cerlini at fisica.unipg.it        
cell.:+39 3405761980
--


More information about the ncl-talk mailing list