source: LMDZ4/trunk/libf/phytherm/YOETHF.h @ 1098

Last change on this file since 1098 was 814, checked in by Laurent Fairhead, 17 years ago

Rajout de la physique utilisant les thermiques FH
LF

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 844 bytes
Line 
1!
2! $Header$
3!
4!  ATTENTION!!!!: ce fichier include est compatible format fixe/format libre
5!                 veillez  n'utiliser que des ! pour les commentaires
6!                 et  bien positionner les & des lignes de continuation
7!                 (les placer en colonne 6 et en colonne 73)
8!
9!*    COMMON *YOETHF* DERIVED CONSTANTS SPECIFIC TO ECMWF THERMODYNAMICS
10!
11!     *R__ES*   *CONSTANTS USED FOR COMPUTATION OF SATURATION
12!                MIXING RATIO OVER LIQUID WATER(*R_LES*) OR
13!                ICE(*R_IES*).
14!     *RVTMP2*  *RVTMP2=RCPV/RCPD-1.
15!     *RHOH2O*  *DENSITY OF LIQUID WATER.   (RATM/100.)
16!
17      REAL R2ES, R3LES, R3IES, R4LES, R4IES, R5LES, R5IES
18      REAL RVTMP2, RHOH2O
19      COMMON /YOETHF/R2ES, R3LES, R3IES, R4LES, R4IES, R5LES, R5IES,    &
20     &               RVTMP2, RHOH2O
21!$OMP THREADPRIVATE(/YOETHF/)
Note: See TracBrowser for help on using the repository browser.