source: lmdz_wrf/WRFV3/lmdz/YOETHF.h @ 1

Last change on this file since 1 was 1, checked in by lfita, 10 years ago
  • -- --- Opening of the WRF+LMDZ coupling repository --- -- -

WRF: version v3.3
LMDZ: version v1818

More details in:

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.