ugwpv0_wmsdis_init Module Reference

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

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

Detailed Description

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

Function/Subroutine Documentation

initsolv_wmsdis_v0()

subroutine ugwpv0_wmsdis_init::initsolv_wmsdis_v0	(	integer	me,
		integer	master,
		integer	nwaves,
		integer	nazdir,
		integer	nstoch,
		real	effac,
		logical	do_physb,
		real	kxw
	)

Definition at line 324 of file cires_ugwp_initialize.F90.

Variable Documentation

bv2min

real, parameter ugwpv0_wmsdis_init::bv2min = (6.28/60./120.)**2

Definition at line 289 of file cires_ugwp_initialize.F90.

dked_min

real, parameter ugwpv0_wmsdis_init::dked_min =0.01

Definition at line 287 of file cires_ugwp_initialize.F90.

eff

real ugwpv0_wmsdis_init::eff

Definition at line 317 of file cires_ugwp_initialize.F90.

gptwo

real, parameter ugwpv0_wmsdis_init::gptwo =2.0

Definition at line 285 of file cires_ugwp_initialize.F90.

gssec

real, parameter ugwpv0_wmsdis_init::gssec = (6.28/30.)**2

Definition at line 288 of file cires_ugwp_initialize.F90.

gw_eff

real ugwpv0_wmsdis_init::gw_eff

Definition at line 313 of file cires_ugwp_initialize.F90.

hpscale

real, parameter ugwpv0_wmsdis_init::hpscale = 7000.

Definition at line 283 of file cires_ugwp_initialize.F90.

iazidim

integer, parameter ugwpv0_wmsdis_init::iazidim =4

Definition at line 303 of file cires_ugwp_initialize.F90.

ilaunch

integer ugwpv0_wmsdis_init::ilaunch

Definition at line 312 of file cires_ugwp_initialize.F90.

incdim

integer, parameter ugwpv0_wmsdis_init::incdim =25

Definition at line 304 of file cires_ugwp_initialize.F90.

maxdudt

real, parameter ugwpv0_wmsdis_init::maxdudt = 250.e-5

Definition at line 281 of file cires_ugwp_initialize.F90.

minvel

real, parameter ugwpv0_wmsdis_init::minvel = 0.5

Definition at line 290 of file cires_ugwp_initialize.F90.

nazd

integer ugwpv0_wmsdis_init::nazd

Definition at line 316 of file cires_ugwp_initialize.F90.

nslope

real, parameter ugwpv0_wmsdis_init::nslope =1

Definition at line 301 of file cires_ugwp_initialize.F90.

nst

integer ugwpv0_wmsdis_init::nst

Definition at line 316 of file cires_ugwp_initialize.F90.

nwav

integer ugwpv0_wmsdis_init::nwav

Definition at line 316 of file cires_ugwp_initialize.F90.

omega2

real, parameter ugwpv0_wmsdis_init::omega2 = 2.*6.28/86400

Definition at line 284 of file cires_ugwp_initialize.F90.

rhp2

real, parameter ugwpv0_wmsdis_init::rhp2 = 0.5/hpscale

Definition at line 283 of file cires_ugwp_initialize.F90.

tamp_mpa

real, parameter ugwpv0_wmsdis_init::tamp_mpa = 30.e-3

Definition at line 298 of file cires_ugwp_initialize.F90.

ucrit2

real, parameter ugwpv0_wmsdis_init::ucrit2 =0.5

Definition at line 305 of file cires_ugwp_initialize.F90.

v_kxw

real, parameter ugwpv0_wmsdis_init::v_kxw = 6.28e-3/200.

Definition at line 296 of file cires_ugwp_initialize.F90.

v_kxw2

real, parameter ugwpv0_wmsdis_init::v_kxw2 = v_kxw*v_kxw

Definition at line 297 of file cires_ugwp_initialize.F90.

zaz_fct

real ugwpv0_wmsdis_init::zaz_fct

Definition at line 319 of file cires_ugwp_initialize.F90.

zci

real, dimension(:), allocatable ugwpv0_wmsdis_init::zci

Definition at line 320 of file cires_ugwp_initialize.F90.

zci2

real, dimension(:), allocatable ugwpv0_wmsdis_init::zci2

Definition at line 320 of file cires_ugwp_initialize.F90.

zci3

real, dimension(:), allocatable ugwpv0_wmsdis_init::zci3

Definition at line 320 of file cires_ugwp_initialize.F90.

zci4

real, dimension(:), allocatable ugwpv0_wmsdis_init::zci4

Definition at line 320 of file cires_ugwp_initialize.F90.

zcimax

real, parameter ugwpv0_wmsdis_init::zcimax = 125.0

Definition at line 308 of file cires_ugwp_initialize.F90.

zcimin

real, parameter ugwpv0_wmsdis_init::zcimin = ucrit2

Definition at line 307 of file cires_ugwp_initialize.F90.

zcosang

real, dimension(:), allocatable ugwpv0_wmsdis_init::zcosang

Definition at line 321 of file cires_ugwp_initialize.F90.

zdci

real, dimension(:), allocatable ugwpv0_wmsdis_init::zdci

Definition at line 320 of file cires_ugwp_initialize.F90.

zfluxglob

real, parameter ugwpv0_wmsdis_init::zfluxglob = 3.75e-3

Definition at line 299 of file cires_ugwp_initialize.F90.

zgam

real, parameter ugwpv0_wmsdis_init::zgam = 0.25

Definition at line 309 of file cires_ugwp_initialize.F90.

zms

real, parameter ugwpv0_wmsdis_init::zms = pi2 / zms_l

Definition at line 310 of file cires_ugwp_initialize.F90.

zms_l

real, parameter ugwpv0_wmsdis_init::zms_l = 2000.0

Definition at line 310 of file cires_ugwp_initialize.F90.

zmsi

real, parameter ugwpv0_wmsdis_init::zmsi = 1.0 / zms

Definition at line 310 of file cires_ugwp_initialize.F90.

zsinang

real, dimension(:), allocatable ugwpv0_wmsdis_init::zsinang

Definition at line 321 of file cires_ugwp_initialize.F90.