Data Types
type	filenames
type	shortspectrum
type	spectrum
type	waveparamsnew
Public Member Functions
subroutine, public	spectral_wave_bc (s, par, curline)
subroutine	read_spectrum_input (par, wp, fn, specin)
subroutine	read_jonswap_file (par, wp, readfile, listline, specin)
subroutine	jonswapgk (x, gam, y)
subroutine	read_vardens_file (par, readfile, specin)
subroutine	interpolate_spectrum (specin, specinterp, par, fmax)
subroutine	set_reuseall
subroutine	generate_wavetrain_components (combspec, wp, par, x0, y0, xe, ye)
subroutine	tpDcalc (Sf, f, Trep, trepfac, switch)
subroutine	init_seed (outseed)
subroutine	generate_wave_train_variance (wp, specinterp)
subroutine	generate_wave_train_properties_per_offshore_point (wp, s, nonhspectrum, swkhmin)
subroutine	generate_wave_train_Fourier (wp, s, par)
subroutine	distribute_wave_train_directions (wp, s, px, nspr, nonhspec)
subroutine	generate_ebcf (wp, s, par)
subroutine	generate_swts (wp, s, par)
subroutine	generate_qbcf (wp, s, par)
subroutine	generate_nhtimeseries_file (wp, par)
subroutine	set_stationary_spectrum (s, par, wp, combspec)
subroutine	generate_admin_files (par, wp, rtbc_local, dtbc_local, maindir_local, spectrumendtimeold, spectrumendtime)
subroutine	generate_secondorder (par, s, wp)
Public Attributes
integer, dimension(:), allocatable, public	n_index_loc
integer, public	nspectra
type(filenames), dimension(:), allocatable, public	bcfiles
logical, public	reuseall
integer, save, public	bccount
real *8, public	spectrumendtime
real *8, dimension(:,:), allocatable, public	lastwaveelevation
Private Member Functions
subroutine	read_swan_file (par, readfile, specin)
subroutine	set_bcfilenames (wp)
subroutine	generate_combined_spectrum (specinterp, combspec, px, trepfac, Tm01switch)
pure function	calculate_average_water_depth (s)
subroutine	frange (par, f, Sf, fmax, firstp, lastp, findlineout)
subroutine	generate_wave_time_axis (par, wp)
Private Attributes
integer, save	fidelist
integer, save	fidqlist
integer, save	fidnhlist
integer, save	fideslist
integer	ind_end_taper
integer, parameter, private	nfint = 801
integer, parameter, private	naint = 401
integer, parameter, private	Kmin = 200
real *8, parameter, private	wdmax = 5.d0
real *8, parameter, private	par_pi = 4.d0*atan(1.d0)

Detailed Description

Definition at line 2 of file waveparamsnew.F90.

Member Function/Subroutine Documentation

pure function spectral_wave_bc_module::calculate_average_water_depth ( type(spacepars), intent(in) s ) [private]

Definition at line 1517 of file waveparamsnew.F90.

subroutine spectral_wave_bc_module::distribute_wave_train_directions	(	type(waveparamsnew), intent(inout)	wp,
		type(spacepars), intent(in)	s,
		real*8, intent(in)	px,
		integer, intent(in)	nspr,
		logical, intent(in)	nonhspec
	)

Definition at line 2160 of file waveparamsnew.F90.

subroutine spectral_wave_bc_module::frange	(	type(parameters), intent(in)	par,
		real*8, dimension(:), intent(in)	f,
		real*8, dimension(:), intent(in)	Sf,
		real*8, intent(in)	fmax,
		integer, intent(out)	firstp,
		integer, intent(out)	lastp,
		real*8, dimension(:), intent(out), optional, allocatable	findlineout
	)		`[private]`

Definition at line 1752 of file waveparamsnew.F90.

subroutine spectral_wave_bc_module::generate_admin_files	(	type(parameters), intent(in)	par,
		type(waveparamsnew), intent(in)	wp,
		real*8, intent(in)	rtbc_local,
		real*8, intent(in)	dtbc_local,
		real*8, intent(in)	maindir_local,
		real*8, intent(in)	spectrumendtimeold,
		real*8, intent(in)	spectrumendtime
	)

Definition at line 3092 of file waveparamsnew.F90.

subroutine spectral_wave_bc_module::generate_combined_spectrum	(	type(spectrum), dimension(nspectra), intent(in)	specinterp,
		type(spectrum), intent(inout)	combspec,
		real*8, intent(in)	px,
		real*8, intent(in)	trepfac,
		integer, intent(in)	Tm01switch
	)		`[private]`

Definition at line 1440 of file waveparamsnew.F90.

subroutine spectral_wave_bc_module::generate_ebcf	(	type(waveparamsnew), intent(inout)	wp,
		type(spacepars), intent(in)	s,
		type(parameters), intent(in)	par
	)

Definition at line 2307 of file waveparamsnew.F90.

subroutine spectral_wave_bc_module::generate_nhtimeseries_file	(	type(waveparamsnew), intent(inout)	wp,
		type(parameters), intent(in)	par
	)

Definition at line 3008 of file waveparamsnew.F90.

subroutine spectral_wave_bc_module::generate_qbcf	(	type(waveparamsnew), intent(inout)	wp,
		type(spacepars), intent(in)	s,
		type(parameters), intent(in)	par
	)

Definition at line 2681 of file waveparamsnew.F90.

subroutine spectral_wave_bc_module::generate_secondorder	(	type(parameters), intent(in)	par,
		type(spacepars), intent(in)	s,
		type(waveparamsnew), intent(inout)	wp
	)

Definition at line 3149 of file waveparamsnew.F90.

subroutine spectral_wave_bc_module::generate_swts	(	type(waveparamsnew), intent(inout)	wp,
		type(spacepars), intent(in)	s,
		type(parameters), intent(in)	par
	)

Definition at line 2553 of file waveparamsnew.F90.

subroutine spectral_wave_bc_module::generate_wave_time_axis	(	type(parameters), intent(in)	par,
		type(waveparamsnew), intent(inout)	wp
	)		`[private]`

Definition at line 1826 of file waveparamsnew.F90.

subroutine spectral_wave_bc_module::generate_wave_train_Fourier	(	type(waveparamsnew), intent(inout)	wp,
		type(spacepars), intent(in)	s,
		type(parameters), intent(in)	par
	)

Definition at line 2098 of file waveparamsnew.F90.

subroutine spectral_wave_bc_module::generate_wave_train_properties_per_offshore_point	(	type(waveparamsnew), intent(inout)	wp,
		type(spacepars), intent(in)	s,
		integer, intent(in)	nonhspectrum,
		real*8, intent(in)	swkhmin
	)

Definition at line 1970 of file waveparamsnew.F90.

subroutine spectral_wave_bc_module::generate_wave_train_variance	(	type(waveparamsnew), intent(inout)	wp,
		type(spectrum), dimension(nspectra), intent(in)	specinterp
	)

Definition at line 1911 of file waveparamsnew.F90.

subroutine spectral_wave_bc_module::generate_wavetrain_components	(	type(spectrum), intent(in)	combspec,
		type(waveparamsnew), intent(inout)	wp,
		type(parameters), intent(in)	par,
		real*8, intent(in)	x0,
		real*8, intent(in)	y0,
		real*8, intent(in)	xe,
		real*8, intent(in)	ye
	)

Definition at line 1537 of file waveparamsnew.F90.

subroutine spectral_wave_bc_module::init_seed ( integer, intent(out) outseed )

Definition at line 1797 of file waveparamsnew.F90.

subroutine spectral_wave_bc_module::interpolate_spectrum	(	type(spectrum), intent(in)	specin,
		type(spectrum), intent(inout)	specinterp,
		type(parameters), intent(in)	par,
		real*8, intent(in)	fmax
	)

Definition at line 1262 of file waveparamsnew.F90.

subroutine spectral_wave_bc_module::jonswapgk	(	real*8, dimension(:), intent(in)	x,
		real*8, intent(in)	gam,
		real*8, dimension(:), intent(inout)	y
	)

Definition at line 888 of file waveparamsnew.F90.

subroutine spectral_wave_bc_module::read_jonswap_file	(	type(parameters), intent(in)	par,
		type(waveparamsnew), intent(inout)	wp,
		character(len=*), intent(in)	readfile,
		integer, intent(inout)	listline,
		type(spectrum), intent(inout)	specin
	)

Definition at line 428 of file waveparamsnew.F90.

subroutine spectral_wave_bc_module::read_spectrum_input	(	type(parameters), intent(in)	par,
		type(waveparamsnew), intent(inout)	wp,
		type(filenames), intent(inout)	fn,
		type(spectrum), intent(inout)	specin
	)

Definition at line 339 of file waveparamsnew.F90.

subroutine spectral_wave_bc_module::read_swan_file	(	type(parameters), intent(in)	par,
		character(len=*), intent(in)	readfile,
		type(spectrum), intent(inout)	specin
	)		`[private]`

Definition at line 935 of file waveparamsnew.F90.

subroutine spectral_wave_bc_module::read_vardens_file	(	type(parameters), intent(in)	par,
		character(len=*), intent(in)	readfile,
		type(spectrum), intent(inout)	specin
	)

Definition at line 1151 of file waveparamsnew.F90.

subroutine spectral_wave_bc_module::set_bcfilenames ( type(waveparamsnew), intent(inout) wp ) [private]

Definition at line 1410 of file waveparamsnew.F90.

subroutine spectral_wave_bc_module::set_reuseall ( )

Definition at line 1389 of file waveparamsnew.F90.

subroutine spectral_wave_bc_module::set_stationary_spectrum	(	type(spacepars)	s,
		type(parameters)	par,
		type(waveparamsnew), intent(in)	wp,
		type(spectrum)	combspec
	)

Definition at line 3051 of file waveparamsnew.F90.

subroutine, public spectral_wave_bc_module::spectral_wave_bc	(	type(spacepars), intent(inout)	s,
		type(parameters), intent(inout)	par,
		integer, intent(out)	curline
	)

Definition at line 98 of file waveparamsnew.F90.

subroutine spectral_wave_bc_module::tpDcalc	(	real*8, dimension(:), intent(in)	Sf,
		real*8, dimension(:), intent(in)	f,
		real*8, intent(out)	Trep,
		real*8, intent(in)	trepfac,
		integer, intent(in)	switch
	)