SURFEX
V8_0
Surfex V8_0 release
Main Page
Data Types List
Files
File List
File Members
All
Classes
Files
Functions
Variables
src
SURFEX
modd_ocean_csts.F90
Go to the documentation of this file.
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_ocean_csts
7
! ###############
8
!
9
!!**** *MODD_OCEAN_CSTS* - declaration of Physic constants for ocean
10
!!
11
!! PURPOSE
12
!! -------
13
! The purpose of this declarative module is to declare the
14
! Physics constants for ocean.
15
!
16
!!
17
!!** IMPLICIT ARGUMENTS
18
!! ------------------
19
!! None
20
!!
21
!! REFERENCE
22
!! ---------
23
!!
24
!! AUTHOR
25
!! ------
26
!! C. Lebeaupin Brossier *Meteo France*
27
!!
28
!! MODIFICATIONS
29
!! -------------
30
!! Original 01/2008
31
!-------------------------------------------------------------------------------
32
!
33
!* 0. DECLARATIONS
34
! ------------
35
!
36
IMPLICIT NONE
37
!
38
REAL
,
SAVE
:: XRHOSW,XRHOSWREF
! densities of seawater
39
REAL
,
SAVE
:: XCPSW
! Cp (for seawater)
40
!
41
REAL
,
SAVE
:: XGAMA
! fraction of Coriolis parameter in time
42
!
43
REAL
,
SAVE
:: XZCE,XCKL
! turbulence constants
44
!
45
REAL
,
SAVE
:: XR
! from Jerlov's (1976)
46
REAL
,
SAVE
:: XD1,XD2
! optical water C type I
47
REAL
,
SAVE
:: XALBEDOSW
! Albedo of seawater
48
!
49
!
50
END MODULE
modd_ocean_csts
modd_ocean_csts
Definition:
modd_ocean_csts.F90:6
Generated on Fri May 13 2016 09:31:04 for SURFEX by
1.8.5