source: LMDZ6/branches/Ocean_skin/libf/phylmd/YOETHF.h @ 3747

Last change on this file since 3747 was 2799, checked in by jyg, 8 years ago

New diagnostics to verify energy conservation.
Some corrections to improve energy conservation.
Some bug correction.

New output variables and new flags are

introduced:

(1)New variables: d_xx_col is the budget over

each column of variable "xx".

(2) fl_ebil: 0 -> no diag; 1 -> diags activated
(3) fl_cor_ebil: 0 -> no correction ensuring

energy conservation; 1 -> first set of
corrections.

+ ok_bad_ecmwf_thermo: if true, a bug setting

RVTMP2 to 0 is fixed; for backward compatibility
the default is "false".
  • Property copyright set to
    Name of program: LMDZ
    Creation date: 1984
    Version: LMDZ5
    License: CeCILL version 2
    Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
    See the license file in the root directory
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 1.5 KB
Line 
1!
2! $Id: YOETHF.h 2799 2017-02-24 18:50:33Z lguez $
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      REAL R5ALVCP,R5ALSCP,RALVDCP,RALSDCP,RALFDCP,RTWAT,RTBER,RTBERCU
20      REAL RTICE,RTICECU,RTWAT_RTICE_R,RTWAT_RTICECU_R,RKOOP1,RKOOP2
21      LOGICAL OK_BAD_ECMWF_THERMO ! If TRUE, then variables set by rrtm/suphec.F90
22                                  ! If FALSE, then variables set by suphel.F90
23      COMMON /YOETHF/R2ES, R3LES, R3IES, R4LES, R4IES, R5LES, R5IES,    &
24     &               RVTMP2, RHOH2O,                                    &
25     &               R5ALVCP,R5ALSCP,RALVDCP,RALSDCP,                   &
26     &               RALFDCP,RTWAT,RTBER,RTBERCU,                       &
27     &               RTICE,RTICECU,RTWAT_RTICE_R,RTWAT_RTICECU_R,RKOOP1,&
28     &               RKOOP2,                                            &
29     &               OK_BAD_ECMWF_THERMO
30
31!$OMP THREADPRIVATE(/YOETHF/)
Note: See TracBrowser for help on using the repository browser.