source: LMDZ4/trunk/libf/phy_IPCC_AR4/cvthermo.h @ 945

Last change on this file since 945 was 868, checked in by Laurent Fairhead, 17 years ago

Preparation du remplacement de la physique utilisee pour l'exercice IPCC_AR4
par la version de la physique avec thermique. On garde le repertoire phylmd
pour un petit moment pour que les utilisateurs ne soient pas trop perdus ...
phy_IPCC_AR4 = phylmd
LF

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 450 bytes
Line 
1!
2! $Header$
3!
4c Thermodynamical constants for convectL:
5
6      real cpd, cpv, cl, rrv, rrd, lv0, g, rowl, t0
7      real clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl
8      real eps, epsi, epsim1
9      real ginv, hrd
10      real grav
11
12      COMMON /cvthermo/ cpd, cpv, cl, rrv, rrd, lv0, g, rowl, t0
13     :                 ,clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl 
14     :                 ,eps, epsi, epsim1, ginv, hrd, grav
15
16c$OMP THREADPRIVATE(/cvthermo/)
Note: See TracBrowser for help on using the repository browser.