Computes the divergence using spherical harmonics given the u and v wind components on a gaussian grid.
procedure uv2dvg ( u : numeric, v : numeric, dv : float or double )
Wind components (input, arrays with two or more dimensions, rightmost two dimensions must be nlat x nlon)
- input values must be in ascending latitude order
- input array must be on a global grid
Divergence (output, same dimensions as u and v, values will be in ascending latitude order)
Given wind components u and v, uv2dvg computes the divergence and returns it in the array dv. uv2dvg operates on a gaussian grid.
This procedure does not allow for missing data (defined by the _FillValue attribute) to be present. If any missing values are encountered in a particular 2D input grid, then all of the values in the corresponding output grid will be set to the default missing value appropriate to the type of the output.
Note, if the input arrays are not global or contain missing data, then it is recommended that uv2dv_cfd be used.
Note: For the arrays whose rightmost two dimensions are nlat x nlon, the rest of the dimensions (if any) are collectively referred to as N. If the input/output arrays are just two dimensions, then N can either be considered equal to 1 or nothing at all.
Arrays which have dimensions N x nlat x nlon should not include the cyclic (wraparound) points when invoking the procedures and functions which use spherical harmonics (Spherepack).
Calculate the divergence from the wind components u,v, and then calculate the divergent wind components. u and v are on a gaussian grid.
begin nlat = 64 ; dimensions mlon = 128 mlon1 = mlon+1 fbfile = "uv300.hs" ; Generic Workstation setup nrec = fbinnumrec(fbfile) ; total number of records in the file ntim = nrec/2 ; number of time steps in dataset uvmsg = 1e+36 dv = new ( (/nlat,mlon /), float, uvmsg ) ; divergence ud = new ( (/nlat,mlon /), float, uvmsg ) vd = new ( (/nlat,mlon /), float, uvmsg ) do i = 0,nrec-1,2 month = 1 ; January if (i .ge. 2) then month = 7 ; July end if work = fbinrecread(fbfile,i ,(/nlat,mlon1/),"float") u = work(:,0:mlon-1) work = fbinrecread(fbfile,i+1,(/nlat,mlon1/),"float") v = work(:,0:mlon-1) uv2dvg (u,v,dv) ; u,v ==> divergence dv2uvg (dv, ud,vd) ; dv ==> divergent wind components end do end
If jer or ker is equal to:
1 : error in the specification of nlat
2 : error in the specification of nlon
4 : error in the specification of N (jer only)