source: branches/2013/dev_rev4119_MERCATOR4_CONFMAN/NEMOGCM/TOOLS/SIREN/src/phycst.f90 @ 4213

Last change on this file since 4213 was 4213, checked in by cbricaud, 7 years ago

first draft of the CONFIGURATION MANAGER demonstrator

File size: 1.0 KB
Line 
1!----------------------------------------------------------------------
2! NEMO system team, System and Interface for oceanic RElocable Nesting
3!----------------------------------------------------------------------
4!
5! MODULE: phycst
6!
7! DESCRIPTION:
8!> @brief This module defines physical constant.
9!
10!> @author
11!> J.paul
12! REVISION HISTORY:
13!> @date Nov, 2013 - Initial Version
14!
15!> @note Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt)
16!----------------------------------------------------------------------
17MODULE phycst
18   USE kind                         ! F90 kind parameter
19
20   IMPLICIT NONE
21
22   PUBLIC :: dg_pi      !< pi
23   PUBLIC :: dg_eps     !< epsilon value
24   PUBLIC :: dg_rearth  !< earth radius (km)
25   PUBLIC :: dg_deg2rad !<
26   PRIVATE
27   ! NOTE_avoid_public_variables_if_possible
28
29   REAL(dp), PARAMETER :: dg_pi = 3.14159274101257_dp
30   REAL(dp), PARAMETER :: dg_eps = EPSILON(1._dp)
31   REAL(dp), PARAMETER :: dg_rearth = 6871._dp
32   REAL(dp), PARAMETER :: dg_deg2rad = dg_pi/180.0
33
34END MODULE phycst
35
Note: See TracBrowser for help on using the repository browser.