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

Timestamp:

Oct 25, 2024, 5:59:01 PM (6 days ago)

Author:

abarral

Message:

Turn cvthermo.h into a module

File:

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

LMDZ6/trunk/libf/phylmd/cv3_cine.f90

@@ -15 +15 @@
   ! **************************************************************
 
+  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                  &
@@ -30 +32 @@
 
 
-  include "cvthermo.h"
   include "cv3param.h"
   ! input: