Changeset 5276 for LMDZ6/trunk/libf/phylmdiso/cv3_estatmix.F90

Timestamp:

Oct 25, 2024, 5:59:01 PM (20 hours ago)

Author:

abarral

Message:

Turn cvthermo.h into a module

File:

• LMDZ6/trunk/libf/phylmdiso/cv3_estatmix.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmdiso/cv3_estatmix.F90

@@ -19 +19 @@
   ! ****************************************************************
 
+  USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl  &
+          , clmci, eps, epsi, epsim1, ginv, hrd, grav
   USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
           , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
@@ -42 +44 @@
   ! ===============================================================
 
-  include "cvthermo.h"
   include "YOETHF.h"