Changeset 9987 for branches/UKMO/dev_r5518_obs_oper_update_icethick/NEMOGCM/TOOLS/SIREN/src/phycst.f90
- Timestamp:
- 2018-07-23T11:33:03+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_obs_oper_update_icethick/NEMOGCM/TOOLS/SIREN/src/phycst.f90
r5037 r9987 25 25 PUBLIC :: dp_rearth !< earth radius (km) 26 26 PUBLIC :: dp_deg2rad !< degree to radian ratio 27 PUBLIC :: dp_rad2deg !< radian to degree ratio 27 28 PUBLIC :: dp_delta !< 28 29 … … 31 32 REAL(dp), PARAMETER :: dp_rearth = 6871._dp 32 33 REAL(dp), PARAMETER :: dp_deg2rad = dp_pi/180.0 34 REAL(dp), PARAMETER :: dp_rad2deg = 180.0/dp_pi 33 35 34 REAL(dp), PARAMETER :: dp_delta=1.e- 236 REAL(dp), PARAMETER :: dp_delta=1.e-6 35 37 END MODULE phycst 36 38
Note: See TracChangeset
for help on using the changeset viewer.