source: LMDZ6/trunk/libf/phylmd/cvthermo_mod_h.f90 @ 5276

Last change on this file since 5276 was 5276, checked in by abarral, 6 days ago

Turn cvthermo.h into a module
  • 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: 638 bytes
RevLine 
[5276]1! Replaces cvthermo.h
[524]2
[5276]3MODULE cvthermo_mod_h
4  IMPLICIT NONE; PRIVATE
5  PUBLIC cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl  &
6          , clmci, eps, epsi, epsim1, ginv, hrd, grav
[524]7
[5276]8  ! Thermodynamical constants for convectL:
9  REAL cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0
10  REAL clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl, clmci
11  REAL eps, epsi, epsim1
12  REAL ginv, hrd
13  REAL grav
[524]14
[5276]15  !$OMP THREADPRIVATE(cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl  &
16  !$OMP      , clmci, eps, epsi, epsim1, ginv, hrd, grav)
17END MODULE cvthermo_mod_h
Note: See TracBrowser for help on using the repository browser.