Changeset 12080 for utils/tools/SIREN/src/phycst.f90

Timestamp:

2019-12-06T10:30:14+01:00 (4 years ago)

Author:

jpaul

Message:

update nemo trunk

File:

• utils/tools/SIREN/src/phycst.f90 (modified) (4 diffs)

utils/tools/SIREN/src/phycst.f90

@@ -3 +3 @@
 !----------------------------------------------------------------------
 !
-! MODULE: phycst
-!
 ! DESCRIPTION:
 !> @brief This module defines physical constant.
-!
+!>
 !> @author
 !> J.paul
@@ -14 +12 @@
 !> @date September, 2015
 !> - add physical constant to compute meshmask
-!
-!> @note Software governed by the CeCILL licence     (./LICENSE)
+!> @date January, 2019
+!> - half reduce epsilon value
+!>
+!> @note Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt)
 !----------------------------------------------------------------------
 MODULE phycst
+
    USE kind                         ! F90 kind parameter
 
@@ -40 +41 @@
    REAL(dp), PARAMETER :: dp_pi = 3.14159274101257_dp
    REAL(dp), PARAMETER :: dp_eps = 0.5 * EPSILON(1._dp)
-   REAL(dp), PARAMETER :: dp_rearth = 6371229._dp
+   REAL(dp), PARAMETER :: dp_rearth = 6371229._dp !m
    REAL(dp), PARAMETER :: dp_deg2rad = dp_pi/180.0
    REAL(dp), PARAMETER :: dp_rad2deg = 180.0/dp_pi
@@ -49 +50 @@
    REAL(dp), PARAMETER :: dp_siday = dp_day / ( 1._dp + dp_day / dp_siyea )
 
-   REAL(dp), PARAMETER :: dp_delta=1.e-5
+   REAL(dp), PARAMETER :: dp_delta=1.e-6
    REAL(dp), PARAMETER :: dp_omega= 2._dp * dp_pi / dp_siday
+
 END MODULE phycst