w3snl4md.F90 File Reference

Generic shallow-water Boltzmann integral (FBI or TSA). More...

Go to the source code of this file.

Modules
module	w3snl4md
	Generic shallow-water Boltzmann integral (FBI or TSA).

Functions/Subroutines
subroutine	w3snl4md::insnl4
	It reads look-up tables (generated by gridsetr) if file exists otherwise it must generate the look-up tables file. More...
subroutine	w3snl4md::w3snl4 (A, CG, WN, DEPTH, S, D)
	Interface module for TSA type nonlinear interactions. More...
subroutine	w3snl4md::gridsetr (dep, wka1, cgnrng1)
	This routine sets up the geometric part of the Boltzmann integral. More...
subroutine	w3snl4md::shloxr (dep, wk1x, wk1y, wk3x, wk3y)
	General locus solution for input vectors (wk1x,wk1y). More...
subroutine	w3snl4md::shlocr (dep, wk1x, wk1y, wk3x, wk3y)
	N/A. More...
subroutine	w3snl4md::cplshr (w1x0, w1y0, w2x0, w2y0, w3x0, w3y0, h, csq, irng, krng, kang, ipt)
	Calculates four-wave Boltzmann coupling coefficient in shallow water. More...
subroutine	w3snl4md::optsa2 (nrmn, nrmx, npk, fpk, nbins, wka, cga)
	Splits the Action Density into two parts. More...
subroutine	w3snl4md::snlr_fbi (pha, ialt)
	For a given Action Density array dens1(k,theta), computes the rate-of-change array sumint(k,theta) = dN(k,theta)/dt owing to wave-wave interaction. More...
subroutine	w3snl4md::snlr_tsa (pha, ialt)
	For a given Action Density array dens1(k,theta), computes the rate-of-change array sumint(k,theta) = dN(k,theta)/dt owing to wave-wave interaction. More...
subroutine	w3snl4md::interp2 (X)
	Interpolate bi-linearly to fill in tsa/fbi & diag/diag2 arrays. More...
real function	w3snl4md::wkfnc (f, dep)
	Calculate the Wavenumber k (rad/m) as function of frequency 'f' (Hz) and depth 'dep' (m). More...
real function	w3snl4md::cgfnc (f, dep, cvel)
	Calculate the Group velocity Cg (m/s) as function of frequency 'f' (Hz), depth 'dep' (m) and phase speed 'cvel' (m/s). More...

Variables
integer, parameter	w3snl4md::ismo = 1
integer, parameter	w3snl4md::npts = 30
integer, parameter	w3snl4md::ndep = 37
integer	w3snl4md::nrng
integer	w3snl4md::nzz
integer	w3snl4md::kzone
integer	w3snl4md::nb2fp
integer	w3snl4md::nang
integer	w3snl4md::na2p1
integer	w3snl4md::np2p1
real	w3snl4md::dfrq
real	w3snl4md::f0
real	w3snl4md::ainc
real	w3snl4md::twopi
real, dimension(:), allocatable	w3snl4md::frqa
real, dimension(:), allocatable	w3snl4md::oma
real, dimension(:), allocatable	w3snl4md::angl
real, dimension(:), allocatable	w3snl4md::sinan
real, dimension(:), allocatable	w3snl4md::cosan
real, dimension(:), allocatable	w3snl4md::dep_tbl
integer, dimension(:,:,:,:), allocatable	w3snl4md::kref2_tbl
integer, dimension(:,:,:,:), allocatable	w3snl4md::kref4_tbl
integer, dimension(:,:,:,:), allocatable	w3snl4md::jref2_tbl
integer, dimension(:,:,:,:), allocatable	w3snl4md::jref4_tbl
real, dimension(:,:,:,:), allocatable	w3snl4md::wtk2_tbl
real, dimension(:,:,:,:), allocatable	w3snl4md::wtk4_tbl
real, dimension(:,:,:,:), allocatable	w3snl4md::wta2_tbl
real, dimension(:,:,:,:), allocatable	w3snl4md::wta4_tbl
real, dimension(:,:,:,:), allocatable	w3snl4md::tfac2_tbl
real, dimension(:,:,:,:), allocatable	w3snl4md::tfac4_tbl
real, dimension(:,:,:,:), allocatable	w3snl4md::grad_tbl
real, dimension(:,:), allocatable	w3snl4md::pha_tbl
integer, dimension(:,:,:), allocatable	w3snl4md::kref2
integer, dimension(:,:,:), allocatable	w3snl4md::kref4
integer, dimension(:,:,:), allocatable	w3snl4md::jref2
integer, dimension(:,:,:), allocatable	w3snl4md::jref4
real, dimension(:,:,:), allocatable	w3snl4md::wtk2
real, dimension(:,:,:), allocatable	w3snl4md::wtk4
real, dimension(:,:,:), allocatable	w3snl4md::wta2
real, dimension(:,:,:), allocatable	w3snl4md::wta4
real, dimension(:,:,:), allocatable	w3snl4md::tfac2
real, dimension(:,:,:), allocatable	w3snl4md::tfac4
real, dimension(:,:,:), allocatable	w3snl4md::grad
real, dimension(:), allocatable	w3snl4md::wk2x
real, dimension(:), allocatable	w3snl4md::wk2y
real, dimension(:), allocatable	w3snl4md::wk4x
real, dimension(:), allocatable	w3snl4md::wk4y
real, dimension(:), allocatable	w3snl4md::ds
real, dimension(:,:), allocatable	w3snl4md::ef2
real, dimension(:), allocatable	w3snl4md::ef1
real, dimension(:,:), allocatable	w3snl4md::dens1
real, dimension(:,:), allocatable	w3snl4md::dens2
real, dimension(:,:), allocatable	w3snl4md::tsa
real, dimension(:,:), allocatable	w3snl4md::diag
real, dimension(:,:), allocatable	w3snl4md::fbi
real, dimension(:,:), allocatable	w3snl4md::diag2

Detailed Description

Generic shallow-water Boltzmann integral (FBI or TSA).

Author

Bash Toulany

Michael Casey

William Perrie

Date

12-Apr-2016

Definition in file w3snl4md.F90.