source: trunk/libf/phyvenus/YOETHF.inc @ 4

Last change on this file since 4 was 3, checked in by slebonnois, 15 years ago

Creation de repertoires:

  • chantiers : pour communiquer sur nos projets de modifs
  • documentation : pour stocker les docs

Ajout de:

  • libf/phytitan : physique de Titan
  • libf/chimtitan: chimie de Titan
  • libf/phyvenus : physique de Venus
File size: 618 bytes
RevLine 
[3]1!
2! $Header: /home/cvsroot/LMDZ4/libf/phylmd/YOETHF.inc,v 1.1.1.1 2004/05/19 12:53:09 lmdzadmin Exp $
3!
4!*    COMMON *YOETHF* DERIVED CONSTANTS SPECIFIC TO ECMWF THERMODYNAMICS
5!
6!     *R__ES*   *CONSTANTS USED FOR COMPUTATION OF SATURATION
7!                MIXING RATIO OVER LIQUID WATER(*R_LES*) OR
8!                ICE(*R_IES*).
9!     *RVTMP2*  *RVTMP2=RCPV/RCPD-1.
10!     *RHOH2O*  *DENSITY OF LIQUID WATER.   (RATM/100.)
11!
12      REAL R2ES, R3LES, R3IES, R4LES, R4IES, R5LES, R5IES
13      REAL RVTMP2, RHOH2O
14      COMMON /YOETHF/R2ES, R3LES, R3IES, R4LES, R4IES, R5LES, R5IES, &
15     &               RVTMP2, RHOH2O
Note: See TracBrowser for help on using the repository browser.