tomawac_constants.f

Go to the documentation of this file.

!                   ****************************
                    SUBROUTINE tomawac_constants
!                   ****************************
!
!
!***********************************************************************
! TOMAWAC   V6P3                                   14/06/2011
!***********************************************************************
!
!brief    Sets a number of constants used by Tomawac, like PI, etc.
!
!
!history  J-M HERVOUET (EDF-LNHE)
!+        27/11/2012
!+        V6P3
!+   First version
!
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!|                |---|
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!
      USE declarations_tomawac
      USE declarations_special
      IMPLICIT NONE
!
!+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
!
!     VARIOUS CONSTANTS LINKED TO PI
!
      pi = 4.d0 * atan( 1.d0 )
      deupi  = 2.d0*pi
      pisur2 = pi/2.d0
      usdpi  = 1.d0/deupi
      gradeg = 180.d0/pi
      degrad = pi/180.d0
!
!     GRAVITY ACCELERATION
!
      gravit = 9.81d0
!
!     SQUARE AND INVERSE OF EARTH RADIUS
!
      r2 = (6400.d3)**2
      sr = 1.d0/6400.d3
!
!-----------------------------------------------------------------------
!
      RETURN
      END