source: LMDZ6/branches/contrails/libf/phylmd/yoethf_mod_h.f90 @ 5440

Last change on this file since 5440 was 5284, checked in by abarral, 8 weeks ago

Turn alpale.h alpale.f90 YOETHF.h into modules
  • 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.3 KB
Line 
1! Replaces yoethf.h
2
3MODULE yoethf_mod_h
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  IMPLICIT NONE; PRIVATE
12  PUBLIC R2ES, R3LES, R3IES, R4LES, R4IES, R5LES, R5IES, RVTMP2, RHOH2O, R5ALVCP, &
13          R5ALSCP, RALVDCP, RALSDCP, RALFDCP, RTWAT, RTBER, RTBERCU, RTICE, RTICECU, &
14          RTWAT_RTICE_R, RTWAT_RTICECU_R, RKOOP1, RKOOP2, OK_BAD_ECMWF_THERMO
15
16  REAL R2ES, R3LES, R3IES, R4LES, R4IES, R5LES, R5IES
17  REAL RVTMP2, RHOH2O
18  REAL R5ALVCP, R5ALSCP, RALVDCP, RALSDCP, RALFDCP, RTWAT, RTBER, RTBERCU
19  REAL RTICE, RTICECU, RTWAT_RTICE_R, RTWAT_RTICECU_R, RKOOP1, RKOOP2
20  LOGICAL OK_BAD_ECMWF_THERMO ! If TRUE, then variables set by rrtm/suphec.F90
21  ! If FALSE, then variables set by suphel.F90
22
23  !$OMP THREADPRIVATE(R2ES, R3LES, R3IES, R4LES, R4IES, R5LES, R5IES, RVTMP2, RHOH2O, R5ALVCP, &
24  !$OMP      R5ALSCP, RALVDCP, RALSDCP, RALFDCP, RTWAT, RTBER, RTBERCU, RTICE, RTICECU,&
25  !$OMP      RTWAT_RTICE_R, RTWAT_RTICECU_R, RKOOP1, RKOOP2, OK_BAD_ECMWF_THERMO)
26END MODULE yoethf_mod_h
Note: See TracBrowser for help on using the repository browser.