- Timestamp:
- 2016-04-07T16:32:24+02:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GC3p0_package/NEMOGCM/TOOLS/SIREN/src/phycst.f90
r5037 r6440 12 12 ! REVISION HISTORY: 13 13 !> @date November, 2013 - Initial Version 14 !> @date September, 2015 15 !> - add physical constant to compute meshmask 14 16 ! 15 17 !> @note Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) … … 23 25 PUBLIC :: dp_pi !< pi 24 26 PUBLIC :: dp_eps !< epsilon value 25 PUBLIC :: dp_rearth !< earth radius (km)27 PUBLIC :: dp_rearth !< earth radius [m] 26 28 PUBLIC :: dp_deg2rad !< degree to radian ratio 29 PUBLIC :: dp_rad2deg !< radian to degree ratio 27 30 PUBLIC :: dp_delta !< 31 PUBLIC :: dp_omega !< earth rotation parameter [s-1] 32 PUBLIC :: dp_day !< day [s] 33 PUBLIC :: dp_siyea !< sideral year [s] 34 PUBLIC :: dp_siday !< sideral day [s] 35 36 REAL(wp), PUBLIC :: rday = 24.*60.*60. !: day [s] 37 REAL(wp), PUBLIC :: rsiyea !: sideral year [s] 38 REAL(wp), PUBLIC :: rsiday !: sideral day [s] 28 39 29 40 REAL(dp), PARAMETER :: dp_pi = 3.14159274101257_dp 30 41 REAL(dp), PARAMETER :: dp_eps = EPSILON(1._dp) 31 REAL(dp), PARAMETER :: dp_rearth = 6 871._dp42 REAL(dp), PARAMETER :: dp_rearth = 6371229._dp 32 43 REAL(dp), PARAMETER :: dp_deg2rad = dp_pi/180.0 44 REAL(dp), PARAMETER :: dp_rad2deg = 180.0/dp_pi 33 45 34 REAL(dp), PARAMETER :: dp_delta=1.e-2 46 REAL(dp), PARAMETER :: dp_day = 24.*60.*60. 47 REAL(dp), PARAMETER :: dp_siyea = 365.25_wp * dp_day * & 48 & 2._wp * dp_pi / 6.283076_dp 49 REAL(dp), PARAMETER :: dp_siday = dp_day / ( 1._wp + dp_day / dp_siyea ) 50 51 REAL(dp), PARAMETER :: dp_delta=1.e-6 52 REAL(dp), PARAMETER :: dp_omega= 2._dp * dp_pi / dp_siday 35 53 END MODULE phycst 36 54
Note: See TracChangeset
for help on using the changeset viewer.