New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 5600 for branches/2014/dev_r4650_UKMO14.12_STAND_ALONE_OBSOPER/NEMOGCM/TOOLS/SIREN/src/phycst.f90 – NEMO

Ignore:
Timestamp:
2015-07-15T17:46:12+02:00 (9 years ago)
Author:
andrewryan
Message:

merged in latest version of trunk alongside changes to SAO_SRC to be compatible with latest OBS

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2014/dev_r4650_UKMO14.12_STAND_ALONE_OBSOPER/NEMOGCM/TOOLS/SIREN/src/phycst.f90

    r4213 r5600  
    1111!> J.paul 
    1212! REVISION HISTORY: 
    13 !> @date Nov, 2013 - Initial Version 
     13!> @date November, 2013 - Initial Version 
    1414! 
    1515!> @note Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt) 
     
    1919 
    2020   IMPLICIT NONE 
    21  
    22    PUBLIC :: dg_pi      !< pi 
    23    PUBLIC :: dg_eps     !< epsilon value 
    24    PUBLIC :: dg_rearth  !< earth radius (km) 
    25    PUBLIC :: dg_deg2rad !<  
    26    PRIVATE 
    2721   ! NOTE_avoid_public_variables_if_possible 
    2822 
    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_delta   !<   
    3328 
     29   REAL(dp), PARAMETER :: dp_pi = 3.14159274101257_dp 
     30   REAL(dp), PARAMETER :: dp_eps = EPSILON(1._dp) 
     31   REAL(dp), PARAMETER :: dp_rearth = 6871._dp 
     32   REAL(dp), PARAMETER :: dp_deg2rad = dp_pi/180.0 
     33 
     34   REAL(dp), PARAMETER :: dp_delta=1.e-2 
    3435END MODULE phycst 
    3536 
Note: See TracChangeset for help on using the changeset viewer.