source: LMDZ6/branches/Amaury_dev/libf/phylmd/cvthermo.h @ 5136

Last change on this file since 5136 was 5117, checked in by abarral, 4 months ago

rename modules properly lmdz_*
move some unused files to obsolete/
(lint) uppercase fortran keywords

  • 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: 484 bytes
RevLine 
[5099]1
[524]2! $Header$
[5099]3
[1992]4! Thermodynamical constants for convectL:
[524]5
[5117]6      REAL cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0
7      REAL clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl, clmci
8      REAL eps, epsi, epsim1
9      REAL ginv, hrd
10      REAL grav
[524]11
[1992]12      COMMON /cvthermo/ cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl &
13                       ,t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl  &
14                       ,clmci, eps, epsi, epsim1, ginv, hrd, grav
[524]15
[1992]16!$OMP THREADPRIVATE(/cvthermo/)
Note: See TracBrowser for help on using the repository browser.