source: LMDZ6/branches/contrails/libf/phylmdiso/cvthermo_mod_h.f90 @ 5440

Last change on this file since 5440 was 5352, checked in by Laurent Fairhead, 3 weeks ago

Rollback (in a way) of previous commit : Frederic is rewriting the deep convection routines to follow the 'replay' standards
and has done the commits in the phylmd subdirectory. The corresponding routines in the phylmdiso directory are not links to files
in the phylmd and thus still need the old modules for parameters that were linked in before.
File size: 638 bytes
Line 
1! Replaces cvthermo.h
2
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
7
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
14
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.