Changeset 5117 for LMDZ6/branches/Amaury_dev/libf/phylmd/cvthermo.h

Timestamp:

Jul 24, 2024, 4:23:34 PM (2 months ago)

Author:

abarral

Message:

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

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/cvthermo.h (modified) (1 diff)

LMDZ6/branches/Amaury_dev/libf/phylmd/cvthermo.h

@@ -4 +4 @@
 ! Thermodynamical constants for convectL:
 
-      real cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0
-      real clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl, clmci
-      real eps, epsi, epsim1
-      real ginv, hrd
-      real grav
+      REAL cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0
+      REAL clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl, clmci
+      REAL eps, epsi, epsim1
+      REAL ginv, hrd
+      REAL grav
 
       COMMON /cvthermo/ cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl &