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.
constants.f90 in branches/UKMO/restart_datestamp/NEMOGCM/TOOLS/WEIGHTS/src – NEMO

source: branches/UKMO/restart_datestamp/NEMOGCM/TOOLS/WEIGHTS/src/constants.f90 @ 5420

Last change on this file since 5420 was 5420, checked in by davestorkey, 9 years ago

Remove keyword updating from UKMO restart_datestamp branch.

File size: 2.7 KB
Line 
1!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
2!
3!     This module defines common constants used in many routines.
4!
5!-----------------------------------------------------------------------
6!
7!     CVS:$Id$
8!
9!     Copyright (c) 1997, 1998 the Regents of the University of
10!       California.
11!
12!     This software and ancillary information (herein called software)
13!     called SCRIP is made available under the terms described here. 
14!     The software has been approved for release with associated
15!     LA-CC Number 98-45.
16!
17!     Unless otherwise indicated, this software has been authored
18!     by an employee or employees of the University of California,
19!     operator of the Los Alamos National Laboratory under Contract
20!     No. W-7405-ENG-36 with the U.S. Department of Energy.  The U.S.
21!     Government has rights to use, reproduce, and distribute this
22!     software.  The public may copy and use this software without
23!     charge, provided that this Notice and any statement of authorship
24!     are reproduced on all copies.  Neither the Government nor the
25!     University makes any warranty, express or implied, or assumes
26!     any liability or responsibility for the use of this software.
27!
28!     If software is modified to produce derivative works, such modified
29!     software should be clearly marked, so as not to confuse it with
30!     the version available from Los Alamos National Laboratory.
31!
32!***********************************************************************
33
34      module constants
35
36!-----------------------------------------------------------------------
37
38      use kinds_mod  ! defines common data types
39
40      implicit none
41
42      save
43
44!-----------------------------------------------------------------------
45
46      real (kind = dbl_kind), parameter ::  &
47                              zero   = 0.0_dbl_kind, &
48                              one    = 1.0_dbl_kind, &
49                              two    = 2.0_dbl_kind, &
50                              three  = 3.0_dbl_kind, &
51                              four   = 4.0_dbl_kind, &
52                              five   = 5.0_dbl_kind, &
53                              half   = 0.5_dbl_kind, &
54                              quart  = 0.25_dbl_kind, &
55                              bignum = 1.e+20_dbl_kind, &
56                              tiny   = 1.e-14_dbl_kind, &
57                              pi     = 3.14159265359_dbl_kind, &
58                              pi2    = two*pi, &
59                              pih    = half*pi
60
61!-----------------------------------------------------------------------
62
63      end module constants
64
65!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Note: See TracBrowser for help on using the repository browser.