Skip to content
GitLab
Explore
Sign in
Primary navigation
Search or go to…
Project
M
Méso-NH code
Manage
Activity
Members
Labels
Plan
Issues
Issue boards
Milestones
Wiki
Code
Merge requests
Repository
Branches
Commits
Tags
Repository graph
Compare revisions
Snippets
Build
Pipelines
Jobs
Pipeline schedules
Artifacts
Deploy
Releases
Package Registry
Model registry
Operate
Environments
Terraform modules
Monitor
Incidents
Analyze
Value stream analytics
Contributor analytics
CI/CD analytics
Repository analytics
Model experiments
Help
Help
Support
GitLab documentation
Compare GitLab plans
Community forum
Contribute to GitLab
Provide feedback
Terms and privacy
Keyboard shortcuts
?
Snippets
Groups
Projects
Show more breadcrumbs
Méso-NH
Méso-NH code
Commits
b1345b30
Commit
b1345b30
authored
3 years ago
by
RIETTE Sébastien
Browse files
Options
Downloads
Patches
Plain Diff
Sébastien Riette 21/03/2022 suppresion of duplicate modd_cst
parent
cbd890cf
No related branches found
Branches containing commit
No related tags found
Tags containing commit
No related merge requests found
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
src/arome/micro/modd_cst.F90
+0
-101
0 additions, 101 deletions
src/arome/micro/modd_cst.F90
with
0 additions
and
101 deletions
src/arome/micro/modd_cst.F90
deleted
100644 → 0
+
0
−
101
View file @
cbd890cf
! ######spl
MODULE
MODD_CST
! ###############
!
!!**** *MODD_CST* - declaration of Physic constants
!!
!! PURPOSE
!! -------
! The purpose of this declarative module is to declare the
! Physics constants.
!
!!
!!** IMPLICIT ARGUMENTS
!! ------------------
!! None
!!
!! REFERENCE
!! ---------
!! Book2 of documentation of Meso-NH (MODD_CST)
!!
!! AUTHOR
!! ------
!! V. Ducrocq *Meteo France*
!!
!! MODIFICATIONS
!! -------------
!! Original 16/05/94
!! J. Stein 02/01/95 add xrholw
!! J.-P. Pinty 13/12/95 add XALPI,XBETAI,XGAMI
!! J. Stein 25/07/97 add XTH00
!! V. Masson 05/10/98 add XRHOLI
!! C. Mari 31/10/00 add NDAYSEC
!! V. Masson 01/03/03 add conductivity of ice
!! R. El Khatib 04/08/14 add pre-computed quantities
!! J.L. Redelsperger 03/2021 add constants for ocean penetrating solar
!-------------------------------------------------------------------------------
!
!* 0. DECLARATIONS
! ------------
!
IMPLICIT
NONE
REAL
,
SAVE
::
XPI
! Pi
!
REAL
,
SAVE
::
XDAY
,
XSIYEA
,
XSIDAY
! day duration, sideral year duration,
! sideral day duration
!
REAL
,
SAVE
::
XKARMAN
! von karman constant
REAL
,
SAVE
::
XLIGHTSPEED
! light speed
REAL
,
SAVE
::
XPLANCK
! Planck constant
REAL
,
SAVE
::
XBOLTZ
! Boltzman constant
REAL
,
SAVE
::
XAVOGADRO
! Avogadro number
!
REAL
,
SAVE
::
XRADIUS
,
XOMEGA
! Earth radius, earth rotation
REAL
,
SAVE
::
XG
! Gravity constant
!
REAL
,
SAVE
::
XP00
! Reference pressure
REAL
,
SAVE
::
XP00OCEAN
! Reference pressure for ocean model
REAL
,
SAVE
::
XRH00OCEAN
! Reference density for ocean model
!
REAL
,
SAVE
::
XSTEFAN
,
XI0
! Stefan-Boltzman constant, solar constant
!
REAL
,
SAVE
::
XMD
,
XMV
! Molar mass of dry air and molar mass of vapor
REAL
,
SAVE
::
XRD
,
XRV
! Gaz constant for dry air, gaz constant for vapor
REAL
,
SAVE
::
XEPSILO
! XMV/XMD
REAL
,
SAVE
::
XCPD
,
XCPV
! Cpd (dry air), Cpv (vapor)
REAL
,
SAVE
::
XRHOLW
! Volumic mass of liquid water
REAL
,
SAVE
::
XCL
,
XCI
! Cl (liquid), Ci (ice)
REAL
,
SAVE
::
XTT
! Triple point temperature
REAL
,
SAVE
::
XLVTT
! Vaporization heat constant
REAL
,
SAVE
::
XLSTT
! Sublimation heat constant
REAL
,
SAVE
::
XLMTT
! Melting heat constant
REAL
,
SAVE
::
XESTT
! Saturation vapor pressure at triple point
! temperature
REAL
,
SAVE
::
XALPW
,
XBETAW
,
XGAMW
! Constants for saturation vapor
! pressure function
REAL
,
SAVE
::
XALPI
,
XBETAI
,
XGAMI
! Constants for saturation vapor
! pressure function over solid ice
REAL
,
SAVE
::
XCONDI
! thermal conductivity of ice (W m-1 K-1)
REAL
,
SAVE
::
XALPHAOC
! thermal expansion coefficient for ocean (K-1)
REAL
,
SAVE
::
XBETAOC
! Haline contraction coeff for ocean (S-1)
REAL
,
SAVE
::
XTH00
! reference value for the potential temperature
REAL
,
SAVE
::
XTH00OCEAN
! Ref value for pot temp in ocean model
REAL
,
SAVE
::
XSA00OCEAN
! Ref value for SAlinity in ocean model
REAL
,
SAVE
::
XROC
=
0.69
! 3 coeffs for SW penetration in Ocean (Hoecker et al)
REAL
,
SAVE
::
XD1
=
1.1
REAL
,
SAVE
::
XD2
=
23.
! Values used in SURFEX CMO
!REAL,SAVE :: XROC=0.58
!REAL,SAVE :: XD1=0.35
!REAL,SAVE :: XD2=23.
REAL
,
SAVE
::
XRHOLI
! Volumic mass of liquid water
!
INTEGER
,
SAVE
::
NDAYSEC
! Number of seconds in a day
!
REAL
,
SAVE
::
RDSRV
! XRD/XRV
REAL
,
SAVE
::
RDSCPD
! XRD/XCPD
REAL
,
SAVE
::
RINVXP00
! 1./XP00
!
REAL
,
SAVE
::
XMNH_EPSILON
! minimum space with 1.0
END
MODULE
MODD_CST
This diff is collapsed.
Click to expand it.
Preview
0%
Loading
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Save comment
Cancel
Please
register
or
sign in
to comment