New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
phycst.f90 in branches/2014/dev_r4650_UKMO14.12_STAND_ALONE_OBSOPER/NEMOGCM/TOOLS/SIREN/src – NEMO

source: branches/2014/dev_r4650_UKMO14.12_STAND_ALONE_OBSOPER/NEMOGCM/TOOLS/SIREN/src/phycst.f90 @ 5600

Last change on this file since 5600 was 5600, checked in by andrewryan, 9 years ago

merged in latest version of trunk alongside changes to SAO_SRC to be compatible with latest OBS

File size: 1.1 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 November, 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   ! NOTE_avoid_public_variables_if_possible
22
23   PUBLIC :: dp_pi      !< pi
24   PUBLIC :: dp_eps     !< epsilon value
25   PUBLIC :: dp_rearth  !< earth radius (km)
26   PUBLIC :: dp_deg2rad !< degree to radian ratio
27   PUBLIC :: dp_delta   !< 
28
29   REAL(dp), PARAMETER :: dp_pi = 3.14159274101257_dp
30   REAL(dp), PARAMETER :: dp_eps = EPSILON(1._dp)
31   REAL(dp), PARAMETER :: dp_rearth = 6871._dp
32   REAL(dp), PARAMETER :: dp_deg2rad = dp_pi/180.0
33
34   REAL(dp), PARAMETER :: dp_delta=1.e-2
35END MODULE phycst
36
Note: See TracBrowser for help on using the repository browser.