ugwpv0_wmsdis_init Module Reference

This module contains init-solvers for "broad" non-stationary multi-wave spectra.

Functions/Subroutines
subroutine	initsolv_wmsdis_v0 (me, master, nwaves, nazdir, nstoch, effac, do_physb, kxw)

Variables
real, parameter	maxdudt = 250.e-5
real, parameter	hpscale = 7000.
real, parameter	rhp2 = 0.5/hpscale
real, parameter	omega2 = 2.*6.28/86400
real, parameter	gptwo =2.0
real, parameter	dked_min =0.01
real, parameter	gssec = (6.28/30.)**2
real, parameter	bv2min = (6.28/60./120.)**2
real, parameter	minvel = 0.5
real, parameter	v_kxw = 6.28e-3/200.
real, parameter	v_kxw2 = v_kxw*v_kxw
real, parameter	tamp_mpa = 30.e-3
real, parameter	zfluxglob = 3.75e-3
real, parameter	nslope =1
integer, parameter	iazidim =4
integer, parameter	incdim =25
real, parameter	ucrit2 =0.5
real, parameter	zcimin = ucrit2
real, parameter	zcimax = 125.0
real, parameter	zgam = 0.25
real, parameter	zms_l = 2000.0
real, parameter	zms = pi2 / zms_l
real, parameter	zmsi = 1.0 / zms
integer	ilaunch
real	gw_eff
integer	nwav
integer	nazd
integer	nst
real	eff
real	zaz_fct
real, dimension(:), allocatable	zci
real, dimension(:), allocatable	zci4
real, dimension(:), allocatable	zci3
real, dimension(:), allocatable	zci2
real, dimension(:), allocatable	zdci
real, dimension(:), allocatable	zcosang
real, dimension(:), allocatable	zsinang