source: LMDZ4/trunk/libf/phy_IPCC_AR4/YOETHF.h @ 919

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

Preparation du remplacement de la physique utilisee pour l'exercice IPCC_AR4
par la version de la physique avec thermique. On garde le repertoire phylmd
pour un petit moment pour que les utilisateurs ne soient pas trop perdus ...
phy_IPCC_AR4 = phylmd
LF

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 844 bytes
RevLine 
[868]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.