Dynlib: Difference between revisions

From gfi
mNo edit summary
mNo edit summary
Line 205: Line 205:
<code>res = high_enough(zdata,ztest,zthres,dx,dy)</code>
<code>res = high_enough(zdata,ztest,zthres,dx,dy)</code>


{| class="wikitable" style="text-align:center; width:80%;"
{| class="wikitable1"
|+ Arguments
|+ Arguments
|-
|-
|
|
! scope="col" | Type
! scope="col" | Type
! scope="col" | Dimension
! scope="col" | Dim
! scope="col" | Description
! scope="col" | Description
|-
|-

Revision as of 11:14, 21 January 2013

Documentation

The steps necessary to obtain dynlib are described below. A more thorough documentation is compiled in the main documentation page.

Obtaining dynlib

  1. Copying the source code repository
    git clone /Data/gfi/users/tsp065/lib/dynlib.git
  2. Change into the dynlib folder
    cd dynlib
  3. Compile the library
    ./compile

Quick start to developing with dynlib

Editing the Fortran code

The fortran code lives in the main source code directory. At the moment there are six source code files

$ ls *.f95
dynlib_config.f95 dynlib_const.f95 dynlib_conv.f95 dynlib_diag.f95 dynlib_kind.f95 dynlib_stat.f95

The most important are dynlib_diag.f95 which contains subroutines that calculate various diagnostics, and dynlib_stat.f95 which contains statistical functions. Changed Fortran sources need to be recompiled, again using

./compile

Version control

The changes you made to the source code files can be listed by

git status

or viewed in detailed diff-comparisons by

git diff

or for one file only

git diff [filename]

Commit your changes from time to time and give a sensible and brief description of your changes in the editor that is opened (automatically)

git commit -a

The commit is then stored in your copy of the source code repository, but not yet available for others, which allows you to also commit work-in-progress.

A more thorough introduction to the version control system is given here or on the official documentation.

Using the Fortran functions

An example python script which calculates deformation using the Fortran function is provided with deformation.py.

Dynlib functions

The functions operate on real arrays with dimension (nz,ny,nx) where nz is number of times or levels, and ny and nx are number of latitudes and longitudes, respectively. Typically, the results for each level or time are computed individually as a 2-D slice of the 3-D data.

ddx: partial x derivative

res=ddx(dat,dx,dy)

Calculates the partial x derivative of dat, using centred differences. For a non-EW-cyclic grid, 0 is returned on the edges of the x domain.

ddy: partial y derivative

res=ddy(dat,dx,dy)

Calculates the partial y derivative of dat, using centred differences. For a non-EW-cyclic grid, 0 is returned on all edges of the x,y domain. For an EW-cyclic grid, 0 is returned on the first and last latitudes.

grad: gradient of a scalar

(resx,resy)=grad(dat,dx,dy)

Calculates the gradient of dat, using centred differences. For a non-EW-cyclic grid, 0 is returned on all edges of the x,y domain. For an EW-cyclic grid, 0 is returned on the first and last latitudes.

lap2: 2-D laplacian of a scalar

res=lap2(dat,dx,dy)

Calculates the 2-D laplacian of dat, using centred differences. For a non-EW-cyclic grid, 0 is returned on all edges of the x,y domain. For an EW-cyclic grid, 0 is returned on the first and last latitudes.

vor: 2-D vorticity

res=vor(u,v,dx,dy)

Calculates the z component of vorticity of (u,v), using centred differences.

div: 2-D divergence

res=div(u,v,dx,dy)

Calculates the 2-D divergence of (u,v), using centred differences.

def_shear: shear deformation

res=def_shear(u,v,dx,dy)

Calculates the shear (antisymmetric) deformation of (u,v), using centred differences.

def_stretch: stretch deformation

res=def_stretch(u,v,dx,dy)

Calculates the stretch (symmetric) deformation of (u,v), using centred differences.

def_total: total deformation

res=def_total(u,v,dx,dy)

Calculates the total (rotation-independent) deformation of (u,v), using centred differences.

def_angle: deformation angle

res=def_angle(u,v,dx,dy)

Calculates the angle between the x-axis and the dilatation axis of the deformation of (u,v).

isopv_angle: iso-PV line angle

res=isopv_angle(pv,dx,dy)

Calculates the angle between the x-axis and the iso-lines of PV.

beta: angle between dilatation axis and iso-PV lines

res=beta(u,v,pv,dx,dy)

Calculates the angle between the dilatation axis and the iso-lines of PV.

stretch_stir: fractional stretching rate and angular rotation rate of grad(PV)

(stretch,stir)=stretch_stir(u,v,pv,dx,dy)

where:

stretch

= fractional PV gradient stretching rate

= 1/|gradPV| * d/dt(|gradPV|)

= gamma, 'stretching rate' (Lapeyre Klein Hua)

= -1/|gradPV| * F_n (Keyser Reeder Reed) where Fn = 0.5*|gradPV|(D-E*cos(2*beta)) = 1/|gradPV| * F (Markowski Richardson)

stir

= angular rotation rate of grad(PV) (aka stirring rate)

= d(theta)/dt (Lapeyre Klein Hua)

= 1/|gradPV| * F_s (Keyser Reeder Reed) where Fs = 0.5*|gradPV|(vort+E*sin(2*beta))

geop_from_montgp: geopotential

res = geop_from_montgp(m,theta,p,dx,dy)

Calculates geopotential (res) from montgomery potential (m), potential temperature (theta) and pressure (p)

rev: PV gradient reversal

(resa,resc,resai,resci,resaiy,resciy,tested) = rev(pv,highenough,latitudes,ddythres,dx,dy)

Gradient reversal: At each (i,j,k) grid point, finds the reversals of PV y-gradient and classes them as c (cyclonic) or a (anticyclonic)

Arguments:

                   pv: Potential vorticity pv(k,j,i) on (time, lat, lon) grid.
           highenough: array of flags, highenough(k,j,i) = {0 or 1} (type int*1)
                       denoting whether to test the point for reversal. This is
                       typically the output of highenough() funtion, which returns
                       1 where the surface is sufficiently above ground level and
                       0 elsewhere.
            latitudes: vector of latitudes of the pv array
             ddythres: Cutoff y-gradient for pv. The magnitude of (negative) 
                       d(pv)/dy must be above ddythres for reversal to be detected;
                       applies to revc, reva, revci,revai.
            

Returns:

        int*1 ::  revc,   reva   (reversal flag) (threshold test applied)
         real ::  revci,  revai  (reversal absolute gradient) 
                                 (threshold test applied)		
         real ::  revciy, revaiy (reversal absolute y-gradient) 
                                 (no threshold test applied)
         int*1::  tested (flag to 1 all tested points: where highenough==1 
                         and not on edge of grid)

prepare_fft: make data periodic in y for FFT

res = prepare_fft(thedata,dx,dy)

Returns the data extended along complementary meridians (for fft). For each lon, the reflected (lon+180) is attached below so that data is periodic in x and y. NOTE: Input data must be lats -90 to 90, and nx must be even.

sum_kix: sum along k for flagged k-values

(res,nres) = sum_kix(thedata,kix,dx,dy)

Calculates sum along k dimension for k values which are flagged in kix vector (length nz)

returns:

res(ny,nx) - thedata summed over k where kix==1
nres       - sum(kix)

Typically used for calculating seasonal means. To do this, kix is set to 1 for times in the relevant season and 0 elsewhere. After summing res and nres over all years, res/nres gives the mean for the season for all years.

high_enough: flags points which are sufficiently above ground

res = high_enough(zdata,ztest,zthres,dx,dy)

Arguments
Type Dim Description
zdata real (nz,ny,nx) geopotentials of all gridpoints
ztest real (1,ny,nx) geopotential of topography
zthres real 0 threshold geopotential height difference


Arguments:

zdata(nz,ny,nx) : geopotentials of all gridpoints
ztest(1,ny,nx)  : geopotential of topography
zthres          : threshold geopotential height

Returns:

res(nz,ny,nx)   : 3-D flag array set to:
  1 if zdata(t,y,x) > (ztest(1,y,x) + zthres)
  0 otherwise

contour_rwb: detects RWB events, Riviere algorithm

(beta_a_out,beta_c_out) = contour_rwb(pv_in,lonvalues,latvalues,ncon,lev,dx,dy)

Detects the occurrence of anticyclonic and cyclonic wave-breaking events from a PV field on isentropic coordinates.

Reference: Rivière (2009, hereafter R09): Effect of latitudinal variations in low-level baroclinicity on eddy life cycles and upper-tropospheric wave-breaking processes. J. Atmos. Sci., 66, 1569–1592. See the appendix C.

Arguments:

    pv_in(nz,ny,nx) : isentropic pv. Should be on a regular lat-lon grid 
                        and 180W must be the first longitude. 
                       (If 180W is not the first longitude, the outputs
                       will have 180W as the first, so must be rearranged) 
      lonvalues(nx) : vector of longitudes
      latvalues(ny) : vector of latitudes
               ncon : number of contours to test, normally 41 or 21
                lev : potential temperature of the level

Returns:

beta_a_out(nz,ny,nx) : flag array, =1 if anticyclonic wave breaking 
beta_c_out(nz,ny,nx) : flag array, =1 if cyclonic wave breaking 

v_g: geostrophic velocity

(resx,resy) = v_g(mont,lat,dx,dy)

Calculates geostrophic velocity. Returns zero on equator.

okuboweiss: Okubo-Weiss criterion

res = okuboweiss(u,v,dx,dy)

Calculates Okubo-Weiss criterion lambda_0=1/4 (sigma^2-omega^2)= 1/4 W

This is the square of the eigenvalues in Okubo's paper (assumes negligible divergence)

laccel: Lagrangian acceleration

(resx,resy) = laccel(u,v,mont,lat,dx,dy)

Calculates Lagrangian acceleration on the isentropic surface, based on Montgomery potential.

Arguments:

u(nz,ny,nx)     : zonal velocity
v(nz,ny,nx)     : meridional velocity
mont(nz,ny,nx)  : Montgomery potential
lat(ny)         : latitude

accgrad_eigs: Lagrangian acceleration gradient tensor eigenvalues

(respr,respi,resmr,resmi) = accgrad_eigs(u,v,mont,lat,dx,dy)

Calculates eigenvalues of the lagrangian acceleration gradient tensor

Arguments:

u(nz,ny,nx)     : zonal velocity
v(nz,ny,nx)     : meridional velocity
mont(nz,ny,nx)  : Montgomery potential
lat(ny)         : latitude

Returns:

respr(nz,ny,nx)   : Real part of positive eigenvlaue
respi(nz,ny,nx)   : Imaginary part of positive eigenvlaue
resmr(nz,ny,nx)   : Real part of negative eigenvlaue
resmi(nz,ny,nx)   : Imaginary part of negative eigenvlaue

dphidt: Lagrangian derivative of compression axis angle

res = dphidt(u,v,mont,lat,dx,dy)

Calculates Lagrangian time derivative of compression axis angle: d(phi)/dt (ref Lapeyre et. al 1999), from deformation and Lagrangian acceleration tensor.

Arguments:

u(nz,ny,nx)     : zonal velocity
v(nz,ny,nx)     : meridional velocity
mont(nz,ny,nx)  : Montgomery potential
lat(ny)         : latitude