mod_xnl4v5.f90 File Reference

Module for computing the quadruplet interaction. More...

Go to the source code of this file.

Modules
module	m_xnldata
	Module for computing the quadruplet interaction.

Functions/Subroutines
subroutine	m_xnldata::xnl_init (sigma, dird, nsigma, ndir, pftail, x_grav, depth, ndepth, iquad, iqgrid, iproc, ierr)
	Initialize coefficients, integration space, file i/o for computation nonlinear quadruplet wave-wave interaction. More...
subroutine	m_xnldata::xnl_main (aspec, sigma, angle, nsig, ndir, depth, iquad, xnl, diag, iproc, ierr)
	Compute nonlinear transfer for a given action density spectrum on a given sigma and direction grid (Webb/Resio/Tracy/Van Vledder). More...
subroutine	m_xnldata::q_allocate
	Check configuration for non-linear transfer. More...
subroutine	m_xnldata::q_chkconfig
	Check configuration for computation of non-linear transfer. More...
subroutine	m_xnldata::q_chkcons (xnl, nk, ndir, sum_e, sum_a, sum_mx, sum_my)
	Check conservation laws of non-linear transfer. More...
subroutine	m_xnldata::q_chkres (k1x, k1y, k2x, k2y, k3x, k3y, k4x, k4y, dep, sum_kx, sum_ky, sum_w)
	Check resonance conditions of 4 interacting wave numbers for a given water depth and dispersion relation. More...
subroutine	m_xnldata::q_cmplocus (ka, kb, km, kw, loclen)
	Compute locus function used for the determination of the resonnance condition. More...
subroutine	m_xnldata::q_ctrgrid (itask, igrid)
	Control of interaction grid administration. More...
subroutine	m_xnldata::q_dscale (n, sigma, angle, nsig, nang, depth, grav, q_dfac)
	Compute scaling factor for nonlinear transfer in finite depth. More...
subroutine	m_xnldata::q_error (err_type, err_name, err_msg)
	Error handling routine. More...
subroutine	m_xnldata::q_getlocus (ik1, ia1, ik3, ia3, ifnd)
	Retrieve locus from basic locus as stored in the database. More...
subroutine	m_xnldata::q_init
	Initializing module for quadruplets and setting default settings. More...
subroutine	m_xnldata::q_locpos (ka, kb, km, kw, loclen)
	Compute characteristics of locus used to optimize its acutal computation. More...
subroutine	m_xnldata::q_makegrid
	Set-up grid for computation of loci. More...
subroutine	m_xnldata::q_modify
	Modify points along the locus, such that they are evenly distributed only when intended, i.e. More...
subroutine	m_xnldata::q_polar2 (kmin, kmax, kx_beg, ky_beg, kx_end, ky_end, loclen, ierr)
	Compute position of locus for given k1-k3 vector. More...
subroutine	m_xnldata::q_setconfig (iquad)
	Set settings for computing the nonlinear interactions. More...
subroutine	m_xnldata::q_searchgrid (depth, igrid)
	Search nearest valid grid, read grid file and scale factor. More...
subroutine	m_xnldata::q_setversion
	Subroutine has automatically been written by MODULE5. More...
subroutine	m_xnldata::q_stack (mod_name)
	Add or remove mod_name name from module stack. More...
subroutine	m_xnldata::q_summary
	Write summary of GurboQuad settings to print file. More...
subroutine	m_xnldata::q_symmetry (k1x, k1y, k3x, k3y, k4x, k4y, symfac, nloc)
	Compute symmetry factor to reduce integration. More...
subroutine	m_xnldata::q_t13v4 (ik1, ia1, ik3, ia3, t13, diagk1, diagk3)
	Compute the function T13, defined as a line integral around a locus. More...
subroutine	m_xnldata::q_weight
	Compute interpolation weights of locus. More...
subroutine	m_xnldata::q_loc_w1w3 (k1x, k1y, k3x, k3y, npts, k2x, k2y, k4x, k4y, s)
	Compute locus for the special case w1=w3. More...
subroutine	m_xnldata::q_xnl4v4 (aspec, sigma, angle, nsig, nang, depth, xnl, diag, ierr)
	Compute nonlinear transfer for a given action density spectrum on a given wave number and direction grid. More...
real function	m_xnldata::x_cosk (k)
	Compute cosine of points on locus for given wave number k. More...
real function	m_xnldata::x_cple (k1x, k1y, k2x, k2y, k3x, k3y, k4x, k4y, iq_cple, depth, grav)
	Compute coupling coefficient between a quadruplet of interacting wave numbers. More...
real function	m_xnldata::x_flocus (kxx, kyy)
	Compute locus function used for the determination of the resonance condition. More...
real function	m_xnldata::x_jacobian (x2, y2, x4, y4)
	Compute gradient/Jacobian term for a given point on the locus. More...
real function	m_xnldata::x_disper (k, d)
	Compute radian frequency for a given wave number and water depth. More...
real function	m_xnldata::x_locus1 (k2)
	Compute locus function along symmetry axis. More...
real function	m_xnldata::x_locus2 (lambda)
	Compute locus function perpendicluar to symmetry axis. More...
real function	m_xnldata::xc_hh (w1x0, w1y0, w2x0, w2y0, w3x0, w3y0, z4x, z4y, h)
	N/A. More...
real function	m_xnldata::tanz (x)
	N/A. More...
real function	m_xnldata::cosz (x)
	N/A. More...
real function	m_xnldata::xc_webb (k1x, k1y, k2x, k2y, k3x, k3y, k4x, k4y, grav)
	Compute deep water coupling coefficient for non-linear quadruplet interactions. More...

Variables
character(len=60)	m_xnldata::q_version
	version string More...
character(len=20)	m_xnldata::sub_name
	Name of active subroutine. More...
character(len=20)	m_xnldata::qbase
	base name for I/O files More...
character(len=20)	m_xnldata::qf_error
	name of file with error messages More...
integer	m_xnldata::iufind
	Specifies handling of unit numbers, see Z_FILEIO. More...
integer	m_xnldata::iscreen
	identifier for screen, set in XNL_INIT More...
integer	m_xnldata::luq_bqf
	binary file storing and retrieving precomputed loci More...
integer	m_xnldata::luq_cfg
	user defined configuration More...
integer	m_xnldata::luq_err
	file with error messages More...
integer	m_xnldata::luq_fil
	test output for filtering More...
integer	m_xnldata::luq_grd
	ASCII file storing and retrieving precomputed loci. More...
integer	m_xnldata::luq_int
	test file for test output of integration More...
integer	m_xnldata::luq_loc
	statistics about computed loci More...
integer	m_xnldata::luq_log
	logging More...
integer	m_xnldata::luq_prt
	general print file for quadruplets More...
integer	m_xnldata::luq_trf
	testing transformation of loci More...
integer	m_xnldata::luq_tst
	test file for quadruplets More...
integer	m_xnldata::luq_txt
	reading (error) text file More...
integer	m_xnldata::luq_t13
	test of basis integration More...
real	m_xnldata::q_grav
	gravitational acceleration (Earth = 9.81 m/s^2) More...
real	m_xnldata::qf_tail
	power of spectral tail of E(f), e.g. More...
real	m_xnldata::qf_krat
	maximum ratio of the interacting wave numbers k1 and k3 More...
real	m_xnldata::qf_dmax
	maximum directional difference between k1 and k3 More...
real	m_xnldata::qf_frac
	fraction of maximum action density to filter More...
integer	m_xnldata::iq_compact
	switch to compact data == 0, do not compact == 1, compact data by elimiting zero contribution along locus More...
integer	m_xnldata::iq_cple
	type of coupling coefficient == 1, deep water coefficient of Webb == 2, deep water coefficient of Zakharov == 3, finite depth coefficient of Hasselmann & Herterich == 4, finite depth coefficient of Zakharov == 5, finite depth coefficient of Lin & Perrie More...
integer	m_xnldata::iq_disp
	type of dispersion relation, viz. More...
integer	m_xnldata::iq_dscale
	switch to activate depth scaling according to Herterich and Hasselmann == 0, No depth scaling == 1, depth scaling activated More...
integer	m_xnldata::iq_filt
	switch to activate filtering in wave number space ==0, no filtering ==1, filtering activated More...
integer	m_xnldata::iq_gauleg
	switch for Gauss-Legendre interpolation == 0, No Gauss-Legendre, default 0 Gauss-Legendre, iq_gauleg is number of points More...
integer	m_xnldata::iq_geom
	type of scaling == 0, no geometric scaling, only directional scaling of loci == 1, geometric scaling using Resio/Tracy method only possible in the case IQ_DISP=1 More...
integer	m_xnldata::iq_grid
	type of spectral grid == 1, sector & symmetric around zero == 2, sector & symmetric around zero & non-symmetric == 3, full circle & non-symmetric More...
integer	m_xnldata::iq_integ
	option to output integration results ==0 no output of integration ==1 only sum per locus ==2 also information per point on locus ==3 only basic line integrals More...
integer	m_xnldata::iq_interp
	type of interpolation to retrieve action density == 1, bi-linear interpolation in discrete spectrum (default) == 2, take nearest bins, on the basis of maximum weight More...
integer	m_xnldata::iq_locus
	Option for computation of locus ==1, explicit polar method with fixed k-step ==2, explicit polar method with adpative k-stepping ==3, explicit polar method with geometric k-spacing. More...
integer	m_xnldata::iq_log
	switch to activate logging to file QBASE//.LOG == 0, No print output == 1, print output More...
integer	m_xnldata::iq_lump
	switch to activate lumping on locus == 0, No lumping == 1, Lumping along locus More...
integer	m_xnldata::iq_make
	option to make quadruplet grid == 1, make when needed (default) == 2, always make quadruplet grid == 3, only make grid file More...
integer	m_xnldata::iq_mod
	option to redistribute points on locus == 0, Points will be used as computed by tracing algortihm == 1, Equi-distant spacing on points along locus (NLOC1) More...
integer	m_xnldata::iq_prt
	switch to activate print output, to file QBASE//.PRT == 0, No print output == 1, print output More...
integer	m_xnldata::iq_search
	switch to determine search for a proper grid == 0, no search is carried out == 1, search nearest (relative) interaction grid More...
integer	m_xnldata::iq_screen
	option to send output to the screen == 0, no output is send to screen == 1, output is send to screen More...
integer	m_xnldata::iq_sym
	switch to activate use of symmetry reduction == 0, no symmetries are used == 1, symmetry activated (default) More...
integer	m_xnldata::iq_test
	test level, output is directed to unit luqtst == 0, no test output == 1, output of basic I/O == 2, extensive test output More...
integer	m_xnldata::iq_trace
	trace option == 0, no trace of subroutine calls 0, maximum number of traces per subroutine < 0, as for >0 but now output is send to the screen More...
integer	m_xnldata::iq_trf
	option to print transformed loci to special output file == 0, no output to data file unit luqtrf == 1, test output from routine Q_GETLOCUS More...
integer	m_xnldata::iq_t13
	option to output T13 integration ==0, no output ==1, test output of T13 per locus More...
integer	m_xnldata::iq_xdia
	switch to activate output to extended DIA data file == 0, no output 0, output to data file, but only when lumping is also activated More...
character(len=13)	m_xnldata::aqname
	name of ASCII grid file More...
character(len=13)	m_xnldata::bqname
	name of binary quadruplet grid file More...
character(len=13)	m_xnldata::lastquadfile
	name of last retrieved BQF file More...
character(len=21)	m_xnldata::q_header
	header of Binary Quadruplet File as intended in BQF-file More...
character(len=21)	m_xnldata::r_header
	header of Binary Quadruplet File as exists in BQF-file More...
logical	m_xnldata::lq_grid
	flag to make (new) interaction grid More...
integer	m_xnldata::nkq
	number of wave numbers of quad-grid More...
integer	m_xnldata::naq
	number of angles of quad-grad More...
integer	m_xnldata::ncirc
	number of angles on a full circle More...
integer	m_xnldata::ia_k1
integer	m_xnldata::ik_k1
	indices of main loop variables More...
integer	m_xnldata::ia_k3
integer	m_xnldata::ik_k3
	indices of main loop variables More...
real	m_xnldata::fqmin
	lowest frequency in Hz More...
real	m_xnldata::fqmax
	highest frequency in Hz More...
real	m_xnldata::q_sector
	half plane width in degrees (for iq_grid=1,2) More...
real	m_xnldata::q_dstep
	step size for generating BQF files More...
integer, parameter	m_xnldata::mq_stack =10
	maximum number of elements in stack More...
integer	m_xnldata::mlocus
	maximum number of points on locus for defining arrays More...
integer	m_xnldata::nlocus0
	preferred number of points on locus More...
integer	m_xnldata::nlocus1
	number of points on locus as computed in Q_CMPLOCUS More...
integer	m_xnldata::klocus
	number of points on locus as stored in quadruplet database based on nlocus0, iq_gauleg and iq_lump (without compacting) used in Q_ALLOCATE to define size of data arrays More...
integer	m_xnldata::nlocus
	number of points on locus, equal to klocus More...
integer	m_xnldata::nlocusx
	number of points on locus for use in computation (nlocusx <= nlocus) More...
real	m_xnldata::kqmin
	lowest wave number More...
real	m_xnldata::kqmax
	highest wave number More...
real	m_xnldata::wk_max
	maximum weight for wave number interpolation, set in Q_INIT More...
real	m_xnldata::k0x
real	m_xnldata::k0y
real	m_xnldata::dk0
	components of initial wave number of locus, More...
real	m_xnldata::krefx
real	m_xnldata::krefy
	components of reference wave number for quad-grid More...
real	m_xnldata::k1x
real	m_xnldata::k1y
	components of k1 wave number More...
real	m_xnldata::k2x
real	m_xnldata::k2y
	components of k2 wave number More...
real	m_xnldata::k3x
real	m_xnldata::k3y
	components of k3 wave number More...
real	m_xnldata::k4x
real	m_xnldata::k4y
	components of k4 wave number More...
real	m_xnldata::px
real	m_xnldata::py
	components of difference k1-k3 wave number More...
real	m_xnldata::pmag
	magnitude of P-vector More...
real	m_xnldata::pang
	angle related of P-vector, Pang = atan2(py,px), (radians) More...
real	m_xnldata::sang
	angle of symmytry axis of locus, SANG = PANG +/ pi° (radians) More...
real	m_xnldata::xang
	angle of locus for the case that w1=w3, Xang=atan2(-px,py), (radians) More...
real	m_xnldata::q
	difference of radian frequencies, used in Resio-Tracy method More...
real	m_xnldata::kmin_loc
	minimum wave number of locus along symmetry axis More...
real	m_xnldata::kmax_loc
	maximum wave number of locus along symmetry axis More...
real	m_xnldata::kmid
	wave number at midpoint of locus along symmetry axis More...
real	m_xnldata::kmidx
	x-component of wave number at midpoint of locus along symmetry axis More...
real	m_xnldata::kmidy
	y-component of wave number at midpoint of locus along symmetry axis More...
real	m_xnldata::loc_crf
	circumference of locus in (kx,ky)-space More...
real	m_xnldata::loc_area
	area of locus, measured in (kx-ky)- space More...
real	m_xnldata::loc_xz
	x-coordinate of center of gravity of locus in (kx,ky)-space More...
real	m_xnldata::loc_yz
	y-coordinate of center of gravity of locus in (kx,ky)-space More...
integer, dimension(:,:), allocatable	m_xnldata::quad_nloc
	number of points on locus More...
integer, dimension(:,:,:), allocatable	m_xnldata::quad_ik2
	lower wave number index of k2 More...
integer, dimension(:,:,:), allocatable	m_xnldata::quad_ia2
	lower direction index of k2 More...
integer, dimension(:,:,:), allocatable	m_xnldata::quad_ik4
	lower wave number index of k4 More...
integer, dimension(:,:,:), allocatable	m_xnldata::quad_ia4
	lower direction index of k4 More...
real, dimension(:,:,:), allocatable	m_xnldata::quad_w1k2
	weight 1 of k2 More...
real, dimension(:,:,:), allocatable	m_xnldata::quad_w2k2
	weight 2 of k2 More...
real, dimension(:,:,:), allocatable	m_xnldata::quad_w3k2
	weight 3 of k2 More...
real, dimension(:,:,:), allocatable	m_xnldata::quad_w4k2
	weight 4 of k2 More...
real, dimension(:,:,:), allocatable	m_xnldata::quad_w1k4
	weight 1 of k4 More...
real, dimension(:,:,:), allocatable	m_xnldata::quad_w2k4
	weight 2 of k4 More...
real, dimension(:,:,:), allocatable	m_xnldata::quad_w3k4
	weight 3 of k4 More...
real, dimension(:,:,:), allocatable	m_xnldata::quad_w4k4
	weight 4 of k4 More...
real, dimension(:,:,:), allocatable	m_xnldata::quad_zz
	compound product of cple*ds*sym/jac More...
real, dimension(:), allocatable	m_xnldata::x2_loc
	k2x coordinates around locus More...
real, dimension(:), allocatable	m_xnldata::y2_loc
	k2y coordinates around locus More...
real, dimension(:), allocatable	m_xnldata::z_loc
	data value around locus More...
real, dimension(:), allocatable	m_xnldata::s_loc
	coordinate along locus More...
real, dimension(:), allocatable	m_xnldata::x4_loc
	k4x coordinates around locus More...
real, dimension(:), allocatable	m_xnldata::y4_loc
	k4y coordinates around locus More...
real, dimension(:), allocatable	m_xnldata::ds_loc
	step size around locus More...
real, dimension(:), allocatable	m_xnldata::jac_loc
	jacobian term around locus More...
real, dimension(:), allocatable	m_xnldata::cple_loc
	coupling coefficient around locus More...
real, dimension(:), allocatable	m_xnldata::sym_loc
	factor for symmetry between k3 and k4 More...
real, dimension(:), allocatable	m_xnldata::k_pol
	wave numbers during polar generation of locus More...
real, dimension(:), allocatable	m_xnldata::c_pol
	cosines during polar generation of locus More...
real, dimension(:), allocatable	m_xnldata::a_pol
	angles of polar locus More...
real, dimension(:), allocatable	m_xnldata::x2_mod
	k2x coordinates along locus More...
real, dimension(:), allocatable	m_xnldata::y2_mod
	k2y coordinates along locus More...
real, dimension(:), allocatable	m_xnldata::x4_mod
	k4x coordinates along locus More...
real, dimension(:), allocatable	m_xnldata::y4_mod
	k4y coordinates along locus More...
real, dimension(:), allocatable	m_xnldata::z_mod
	data value around locus More...
real, dimension(:), allocatable	m_xnldata::s_mod
	coordinate along locus More...
real, dimension(:), allocatable	m_xnldata::ds_mod
	step size around locus More...
real, dimension(:), allocatable	m_xnldata::jac_mod
	jacobian term around locus More...
real, dimension(:), allocatable	m_xnldata::cple_mod
	coupling coefficient around locus More...
real, dimension(:), allocatable	m_xnldata::sym_mod
	factor for symmetry between k3 and k4 More...
real, dimension(:), allocatable	m_xnldata::k2m_mod
	k2 magnitude around locus More...
real, dimension(:), allocatable	m_xnldata::k2a_mod
	k2 angle around locus More...
real, dimension(:), allocatable	m_xnldata::k4m_mod
	k4 magnitude around locus More...
real, dimension(:), allocatable	m_xnldata::k4a_mod
	k4 angle around locus More...
real, dimension(:), allocatable	m_xnldata::wk_k2
	position of k2 and k4 wave number More...
real, dimension(:), allocatable	m_xnldata::wk_k4
	w.r.t. More...
real, dimension(:), allocatable	m_xnldata::wa_k2
	position of k2 and k4 wave number More...
real, dimension(:), allocatable	m_xnldata::wa_k4
	w.r.t. More...
real, dimension(:), allocatable	m_xnldata::wt_k2
	weight factor in tail, More...
real, dimension(:), allocatable	m_xnldata::wt_k4
	wt==1 for wave numbers inside k-grid More...
integer, dimension(:), allocatable	m_xnldata::t_ik2
	transformed weight for k2-magnitude More...
integer, dimension(:), allocatable	m_xnldata::t_ia2
	transformed direction for k2 More...
integer, dimension(:), allocatable	m_xnldata::t_ik4
	transformed tail factor for k2 More...
integer, dimension(:), allocatable	m_xnldata::t_ia4
	transformed weight for k4 More...
real, dimension(:), allocatable	m_xnldata::t_w1k2
	transformed weight 1 for k2 More...
real, dimension(:), allocatable	m_xnldata::t_w2k2
	transformed weight 2 for k2 More...
real, dimension(:), allocatable	m_xnldata::t_w3k2
	transformed weight 3 for k2 More...
real, dimension(:), allocatable	m_xnldata::t_w4k2
	transformed weight 4 for k2 More...
real, dimension(:), allocatable	m_xnldata::t_w1k4
	transformed weight 1 for k4 More...
real, dimension(:), allocatable	m_xnldata::t_w2k4
	transformed weight 2 for k4 More...
real, dimension(:), allocatable	m_xnldata::t_w3k4
	transformed weight 3 for k4 More...
real, dimension(:), allocatable	m_xnldata::t_w4k4
	transformed weight 4 for k4 More...
real, dimension(:), allocatable	m_xnldata::t_zz
	product term More...
integer, dimension(:), allocatable	m_xnldata::r_ik2
	corresponding declarations r_ik2 More...
integer, dimension(:), allocatable	m_xnldata::r_ia2
	corresponding declarations r_ia2 More...
integer, dimension(:), allocatable	m_xnldata::r_ik4
	corresponding declarations r_ik4 More...
integer, dimension(:), allocatable	m_xnldata::r_ia4
	corresponding declarations r_ia4 More...
real, dimension(:), allocatable	m_xnldata::r_w1k2
real, dimension(:), allocatable	m_xnldata::r_w2k2
real, dimension(:), allocatable	m_xnldata::r_w3k2
real, dimension(:), allocatable	m_xnldata::r_w4k2
	corresponding declarations More...
real, dimension(:), allocatable	m_xnldata::r_w1k4
real, dimension(:), allocatable	m_xnldata::r_w2k4
real, dimension(:), allocatable	m_xnldata::r_w3k4
real, dimension(:), allocatable	m_xnldata::r_w4k4
	corresponding declarations More...
real, dimension(:), allocatable	m_xnldata::r_zz
real, dimension(:), allocatable	m_xnldata::r_jac
real, dimension(:), allocatable	m_xnldata::r_cple
real, dimension(:), allocatable	m_xnldata::r_sym
real, dimension(:), allocatable	m_xnldata::r_ws
	corresponding declarations More...
real, dimension(:), allocatable	m_xnldata::dt13
	increment along locus More...
real, dimension(:), allocatable	m_xnldata::q_xk
	extended wave number array starting at index 0 More...
real, dimension(:), allocatable	m_xnldata::q_sk
	step size of extended wave number array More...
real	m_xnldata::sk_max
	maximum wave number in extended array More...
real, dimension(:), allocatable	m_xnldata::q_k
	wave number grid [1/m] More...
real, dimension(:), allocatable	m_xnldata::q_dk
	width of wave number bins [1/m] More...
real, dimension(:), allocatable	m_xnldata::q_kpow
	wave number to a certain power, used in filtering More...
real, dimension(:), allocatable	m_xnldata::q_f
	frequencies accociated to wave number/depth More...
real, dimension(:), allocatable	m_xnldata::q_df
	step size of frequency grid More...
real, dimension(:), allocatable	m_xnldata::q_sig
	radian frequencies associated to wave number/depth More...
real, dimension(:), allocatable	m_xnldata::q_dsig
	step size of radian frequency grid More...
real, dimension(:), allocatable	m_xnldata::q_cg
	group velocity (m/s) More...
real, dimension(:), allocatable	m_xnldata::q_a
	directions of quadruplet grid in radians More...
real, dimension(:), allocatable	m_xnldata::q_ad
	directions of quadruplet grid in degrees More...
real, dimension(:,:), allocatable	m_xnldata::a
	Action density on wave number grid A(sigma,theta) More...
real, dimension(:,:), allocatable	m_xnldata::nspec
	Action density on wave number grid N(kx,ky) More...
real, dimension(:), allocatable	m_xnldata::nk1d
	Internal 1d action density spectrum N(k) More...
real, dimension(:,:), allocatable	m_xnldata::qnl
	Nonlinear energy transfer Snl(k,theta) More...
integer	m_xnldata::id_facmax
	Factor for determining range of depth search (Q_SEARCHGRID) More...
real	m_xnldata::q_dird1
real	m_xnldata::q_dird2
	first and last direction of host model (via XNL_INIT) degrees More...
real	m_xnldata::q_depth
	local water depth in m More...
real	m_xnldata::q_maxdepth
	maximum water depth, set in XNL_INIT, used in Q_CTRGRID More...
real	m_xnldata::q_mindepth
	minimum water depth, set in XNL_INIT, used in Q_CTRGRID More...
real	m_xnldata::q_lambda
	geometric scaling factor for 'deep' water loci More...
real	m_xnldata::q_scale
	additional scale factor resulting from SEARCH for neasrest grid More...
real	m_xnldata::eps_q
	absolute accuracy for check of Q More...
real	m_xnldata::eps_k
	absolute accuracy for equality check of k More...
real	m_xnldata::rel_k
	relative accuracy for equality check of k More...
integer	m_xnldata::iq_stack
	Sequence number of stack with subroutine calls. More...
character(len=21), dimension(mq_stack)	m_xnldata::cstack
	Stack with module names. More...
real	m_xnldata::crf1
	estimated circumference of locus More...
integer	m_xnldata::iaref
	index of first angle of reference wave numbers More...
integer	m_xnldata::iamax
	maximum difference in indices for sector grids More...
integer	m_xnldata::iaq1
integer	m_xnldata::iaq2
	indices of do-loop for directions More...
integer	m_xnldata::iag1
integer	m_xnldata::iag2
	range of directions for precomputed interaction grid More...
real	m_xnldata::q_ang1
real	m_xnldata::q_ang2
	lower and upper angle of grid in degrees More...
real	m_xnldata::q_delta
	directional spacing of angular grid in radians More...
real	m_xnldata::q_deltad
	directional spacing of angular grid in degrees More...
real	m_xnldata::q_ffac
	geometric factor between subsequent frequencies More...
real	m_xnldata::q_kfac
	geometric factor between subsequent wave numbers (only valid for IQ_IDISP==1) More...
real	m_xnldata::qk_tail
	power of spectral tail of N(k), computed from qf_tail More...
integer	m_xnldata::iq_type
	method for computing the nonlinear interactions depending on the value of iq_type a number of settings for other processes or schematizations are set in Q_COMPU iq_type==1: deep water, symmetric spectrum, Webb coupling coefficient 2: deep water computation with WAM depth scaling based on Herterich and Hasselmann (1980) 3: finite depth transfer More...
integer	m_xnldata::iq_err
	counts the number of errors if no error occurred, IQ_ERR = 0 for each occuring error, iq_err is incremented errors are always terminating routine Q_ERROR handles the reporting on the error More...
integer	m_xnldata::iq_warn
	counts the number of warnings More...

Detailed Description

Module for computing the quadruplet interaction.

Author

Gerbrant van Vledder

Date

9-Sep-2003

Definition in file mod_xnl4v5.f90.