source: LMDZ6/trunk/libf/phylmd/modd_csts.F90 @ 4869

Last change on this file since 4869 was 4722, checked in by Laurent Fairhead, 8 months ago

Modification by O. Torres to the cdrag routines to include different bulk formulae
to calculate cdrag coefficients over ocean as well as an iteration of that
calculation.
The iteration is controlled by flag ok_cdrag_iter which if set to FALSE by default
to converge with previous results.
The choice of bulk formulae is set with the choix_bulk parameter
The number of iterations to run is set with nit_bulk
OT, PB, CD, LF
File size: 3.6 KB
Line 
1!SFX_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier
2!SFX_LIC This is part of the SURFEX software governed by the CeCILL-C licence
3!SFX_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt 
4!SFX_LIC for details. version 1.
5!     ###############
6      MODULE MODD_CSTS     
7!     ###############
8!
9!!****  *MODD_CSTS* - declaration of Physic constants
10!!
11!!    PURPOSE
12!!    -------
13!       The purpose of this declarative module is to declare  the
14!     Physics constants.   
15!
16!!
17!!**  IMPLICIT ARGUMENTS
18!!    ------------------
19!!      None
20!!
21!!    REFERENCE
22!!    ---------
23!!         
24!!    AUTHOR
25!!    ------
26!!      V. Ducrocq   *Meteo France*
27!!
28!!    MODIFICATIONS
29!!    -------------
30!!      Original    16/05/94 
31!!      J. Stein    02/01/95  add xrholw                   
32!!      J.-P. Pinty 13/12/95  add XALPI,XBETAI,XGAMI
33!!      J. Stein    25/07/97  add XTH00                   
34!!      V. Masson   05/10/98  add XRHOLI
35!!      C. Mari     31/10/00  add NDAYSEC
36!!      J. Escobar     06/13  add XSURF_TIMY XSURF_TIMY_12 XSURF_EPSILON for REAL*4
37!-------------------------------------------------------------------------------
38!
39!*       0.   DECLARATIONS
40!             ------------
41!
42IMPLICIT NONE
43REAL,SAVE :: XPI                ! Pi
44!
45REAL,SAVE :: XDAY,XSIYEA,XSIDAY ! day duration, sideral year duration,
46                                ! sideral day duration
47!
48REAL,SAVE :: XKARMAN            ! von karman constant
49REAL,SAVE :: XLIGHTSPEED        ! light speed
50REAL,SAVE :: XPLANCK            ! Planck constant
51REAL,SAVE :: XBOLTZ             ! Boltzman constant
52REAL,SAVE :: XAVOGADRO          ! Avogadro number
53!
54REAL,SAVE :: XRADIUS,XOMEGA     ! Earth radius, earth rotation
55REAL,SAVE :: XG                 ! Gravity constant
56!
57REAL,SAVE :: XP00               ! Reference pressure
58!
59REAL,SAVE :: XSTEFAN,XI0        ! Stefan-Boltzman constant, solar constant
60!
61REAL,SAVE :: XMD,XMV            ! Molar mass of dry air and molar mass of vapor
62REAL,SAVE :: XRD,XRV            ! Gaz constant for dry air, gaz constant for vapor
63REAL,SAVE :: XCPD,XCPV          ! Cpd (dry air), Cpv (vapor)
64REAL,SAVE :: XRHOLW             ! Volumic mass of liquid water
65REAL,SAVE :: XCL,XCI            ! Cl (liquid), Ci (ice)
66REAL,SAVE :: XTT                ! Triple point temperature
67REAL,SAVE :: XTTSI              ! Temperature of ice fusion over salty sea
68REAL,SAVE :: XTTS               ! Equivalent temperature of ice fusion over a mixed of sea and sea-ice
69REAL,SAVE :: XICEC              ! Threshold fraction over which the tile is considered as only covered with ice
70REAL,SAVE :: XLVTT              ! Vaporization heat constant
71REAL,SAVE :: XLSTT              ! Sublimation heat constant
72REAL,SAVE :: XLMTT              ! Melting heat constant
73REAL,SAVE :: XESTT              ! Saturation vapor pressure  at triple point
74                                ! temperature 
75REAL,SAVE :: XALPW,XBETAW,XGAMW ! Constants for saturation vapor
76                                !  pressure  function
77REAL,SAVE :: XALPI,XBETAI,XGAMI ! Constants for saturation vapor
78                                !  pressure  function over solid ice
79REAL, SAVE        :: XTH00      ! reference value  for the potential
80                                ! temperature
81REAL,SAVE :: XRHOLI             ! Volumic mass of ice
82REAL,SAVE :: XCONDI             ! thermal conductivity of ice (W m-1 K-1)
83!
84INTEGER, SAVE :: NDAYSEC        ! Number of seconds in a day
85!
86REAL,SAVE     :: XSURF_TINY          ! minimum real on this machine
87REAL,SAVE     :: XSURF_TINY_12       ! sqrt(minimum real on this machine)
88REAL,SAVE     :: XSURF_EPSILON       ! minimum space with 1.0
89!
90END MODULE MODD_CSTS
91
Note: See TracBrowser for help on using the repository browser.