Changeset 5600 for branches/2014/dev_r4650_UKMO14.12_STAND_ALONE_OBSOPER/NEMOGCM/TOOLS/SIREN/src/phycst.f90
- Timestamp:
- 2015-07-15T17:46:12+02:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2014/dev_r4650_UKMO14.12_STAND_ALONE_OBSOPER/NEMOGCM/TOOLS/SIREN/src/phycst.f90
r4213 r5600 11 11 !> J.paul 12 12 ! REVISION HISTORY: 13 !> @date Nov , 2013 - Initial Version13 !> @date November, 2013 - Initial Version 14 14 ! 15 15 !> @note Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) … … 19 19 20 20 IMPLICIT NONE 21 22 PUBLIC :: dg_pi !< pi23 PUBLIC :: dg_eps !< epsilon value24 PUBLIC :: dg_rearth !< earth radius (km)25 PUBLIC :: dg_deg2rad !<26 PRIVATE27 21 ! NOTE_avoid_public_variables_if_possible 28 22 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 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 !< 33 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 34 35 END MODULE phycst 35 36
Note: See TracChangeset
for help on using the changeset viewer.