mod_constants.f90

Go to the documentation of this file.

 
 
!------------------------------------------------------------------------------
 
module m_constants
!------------------------------------------------------------------------------
!
! physical constants
!
real grav
real sqrtg
real gsq
real nu
!
real d_water
real d_air
!
! mathematical constants
!
real pi
real pi2
real pih
real dera
real rade
real expmin
real expmax
real sqrt2
!
contains
!
  
!------------------------------------------------------------------------------
 
subroutine init_constants
!------------------------------------------------------------------------------
!
pi   = 4.*atan(1.)
pi2  = 2.*pi
pih  = 0.5*pi
dera = pi/180.
rade = 180./pi
!
expmin = -20.
expmax =  20.
!
!  physical constants
!
grav    = 9.81
sqrtg   = sqrt(grav)
gsq     = grav*grav
nu      = 1.e-6
d_air   = 1.2
d_water = 1027
!
end subroutine
!
end module