Changeset 13369 for utils/tools/SIREN/src/phycst.f90
- Timestamp:
- 2020-07-31T10:50:52+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
utils/tools/SIREN/src/phycst.f90
r12080 r13369 27 27 PUBLIC :: dp_eps !< epsilon value 28 28 PUBLIC :: dp_rearth !< earth radius [m] 29 PUBLIC :: dp_deg2rad !< degree to radian ratio 30 PUBLIC :: dp_rad2deg !< radian to degree ratio 31 PUBLIC :: dp_delta !< 32 PUBLIC :: dp_omega !< earth rotation parameter [s-1] 29 PUBLIC :: dp_deg2rad !< degree to radian ratio 30 PUBLIC :: dp_rad2deg !< radian to degree ratio 31 PUBLIC :: dp_delta !< 32 PUBLIC :: dp_omega !< earth rotation parameter [s-1] 33 33 PUBLIC :: dp_day !< day [s] 34 34 PUBLIC :: dp_siyea !< sideral year [s] … … 45 45 REAL(dp), PARAMETER :: dp_rad2deg = 180.0/dp_pi 46 46 47 REAL(dp), PARAMETER :: dp_day = 24.*60.*60. 47 REAL(dp), PARAMETER :: dp_day = 24.*60.*60. 48 48 REAL(dp), PARAMETER :: dp_siyea = 365.25_dp * dp_day * & 49 49 & 2._dp * dp_pi / 6.283076_dp
Note: See TracChangeset
for help on using the changeset viewer.