m_constants Module Reference

Functions/Subroutines
subroutine	init_constants

Variables
real	sqrtg
real	gsq
real	nu
real	d_water
real	d_air
real	trshdep
real	pih
real	dera
real	rade
real	expmin
real	expmax
real	sqrt2

Function/Subroutine Documentation

init_constants()

subroutine m_constants::init_constants

(

)

Definition at line 49 of file swmod3.f90.

!------------------------------------------------------------------------------
!
    USE swcomm3

    pih  = 0.5*pi_w
    dera = pi_w/180.
    rade = 180./pi_w
!
    expmin = -20.
    expmax =  20.
!
!  physical constants
!
    sqrtg   = sqrt(grav_w)
    gsq     = grav_w*grav_w
    nu      = 1.e-6
    d_air   = pwind(16)
    d_water = pwind(17)
    trshdep = depmin
!

Variable Documentation

d_air

real m_constants::d_air

Definition at line 32 of file swmod3.f90.

    real d_air   ! density of air

d_water

real m_constants::d_water

Definition at line 31 of file swmod3.f90.

    real d_water ! density of water

dera

real m_constants::dera

Definition at line 39 of file swmod3.f90.

    real dera   ! conversion from degrees to radians

expmax

real m_constants::expmax

Definition at line 42 of file swmod3.f90.

    real expmax ! max argument for exp. function to avoid overflow

expmin

real m_constants::expmin

Definition at line 41 of file swmod3.f90.

    real expmin ! min argument for exp. function to avoid underflow

gsq

real m_constants::gsq

Definition at line 28 of file swmod3.f90.

    real gsq     ! square of gravity

nu

real m_constants::nu

Definition at line 29 of file swmod3.f90.

    real nu      ! kinematic viscosity of water

pih

real m_constants::pih

Definition at line 38 of file swmod3.f90.

    real pih    ! pi/2

rade

real m_constants::rade

Definition at line 40 of file swmod3.f90.

    real rade   ! conversion from radians to degrees

sqrt2

real m_constants::sqrt2

Definition at line 43 of file swmod3.f90.

    real sqrt2  ! square root of 2 ~ 1.41

sqrtg

real m_constants::sqrtg

Definition at line 27 of file swmod3.f90.

    real sqrtg   ! square root of gravity

trshdep

real m_constants::trshdep

Definition at line 34 of file swmod3.f90.

    real trshdep ! treshold depth (=DEPMIN as given by SWAN)