Changeset 5276 for LMDZ6/trunk/libf/phylmd/cv3_estatmix.f90

Timestamp:

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

Author:

abarral

Message:

Turn cvthermo.h into a module

File:

• LMDZ6/trunk/libf/phylmd/cv3_estatmix.f90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/cv3_estatmix.f90

@@ -12 +12 @@
   ! ****************************************************************
 
+  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                  &
@@ -35 +37 @@
   ! ===============================================================
 
-  include "cvthermo.h"
   include "YOETHF.h"