- Timestamp:
- 2016-01-08T10:35:19+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2014/dev_r4704_NOC5_MPP_BDY_UPDATE/NEMOGCM/TOOLS/SIREN/src/phycst.f90
r4213 r6225 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_rad2deg !< radian to degree ratio 28 PUBLIC :: dp_delta !< 33 29 30 REAL(dp), PARAMETER :: dp_pi = 3.14159274101257_dp 31 REAL(dp), PARAMETER :: dp_eps = EPSILON(1._dp) 32 REAL(dp), PARAMETER :: dp_rearth = 6871._dp 33 REAL(dp), PARAMETER :: dp_deg2rad = dp_pi/180.0 34 REAL(dp), PARAMETER :: dp_rad2deg = 180.0/dp_pi 35 36 REAL(dp), PARAMETER :: dp_delta=1.e-6 34 37 END MODULE phycst 35 38
Note: See TracChangeset
for help on using the changeset viewer.