w3src3md.F90 File Reference

The 'WAM4+' source terms based on P.A.E.M. Janssen's work, with extensions by him and by J.-R. Bidlot. More...

Go to the source code of this file.

Modules
module	w3src3md
	The 'WAM4+' source terms based on P.A.E.M.

Functions/Subroutines
subroutine	w3src3md::w3spr3 (A, CG, WN, EMEAN, FMEAN, FMEANS, WNMEAN, AMAX, U, UDIR, USTAR, USDIR, TAUWX, TAUWY, CD, Z0, CHARN, LLWS, FMEANWS)
	Calculate mean wave parameters for the use in the source term routines. More...
subroutine	w3src3md::w3sin3 (A, CG, K, U, USTAR, DRAT, AS, USDIR, Z0, CD, TAUWX, TAUWY, TAUWNX, TAUWNY, ICE, S, D, LLWS, IX, IY)
	Calculate diagonal and input source term for WAM4+ approach. More...
subroutine	w3src3md::insin3
	Initialization for source term routine. More...
subroutine	w3src3md::tabu_stress
	To generate the friction velocity table, TAUT(TAUW,U10)=SQRT(TAU). More...
subroutine	w3src3md::tabu_tauhf (FRMAX)
	Tabulation of the high-frequency wave-supported stress. More...
subroutine	w3src3md::calc_ustar (WINDSPEED, TAUW, USTAR, Z0, CHARN)
	Compute friction velocity based on wind speed U10. More...
subroutine	w3src3md::w3sds3 (A, K, CG, EMEAN, FMEAN, WNMEAN, USTAR, USDIR, DEPTH, S, D, IX, IY)
	Calculate whitecapping source term and diagonal term of derivative. More...

Variables
integer, parameter	w3src3md::itaumax =200
integer, parameter	w3src3md::jumax =200
integer, parameter	w3src3md::iustar =100
integer, parameter	w3src3md::ialpha =200
integer, parameter	w3src3md::ilevtail =50
real, dimension(0:itaumax, 0:jumax)	w3src3md::taut
real	w3src3md::deltauw
real	w3src3md::delu
real, dimension(0:iustar, 0:ialpha)	w3src3md::tauhft
real	w3src3md::delust
real	w3src3md::delalp
real, parameter	w3src3md::umax = 50.
real, parameter	w3src3md::tauwmax = 2.2361

Detailed Description

The 'WAM4+' source terms based on P.A.E.M. Janssen's work, with extensions by him and by J.-R. Bidlot.

Author

F. Ardhuin

H. L. Tolman

Date

02-Sep-2012

Definition in file w3src3md.F90.