source: LMDZ4/trunk/libf/phylmd/YOETHF.h @ 4463

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

Modifications suite a la transformation des fichiers include pour
qu'ils soient compatibles a la fois au format fixe et au format libre
Un bon nombre de fichiers *.inc du coup disparaissent
LF

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 844 bytes
RevLine 
[524]1!
2! $Header$
3!
[793]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!
[524]17      REAL R2ES, R3LES, R3IES, R4LES, R4IES, R5LES, R5IES
18      REAL RVTMP2, RHOH2O
[793]19      COMMON /YOETHF/R2ES, R3LES, R3IES, R4LES, R4IES, R5LES, R5IES,    &
20     &               RVTMP2, RHOH2O
[776]21!$OMP THREADPRIVATE(/YOETHF/)
Note: See TracBrowser for help on using the repository browser.