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

Timestamp:

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

Author:

abarral

Message:

Turn cvthermo.h into a module

File:

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

LMDZ6/trunk/libf/phylmd/cv3p2_closure.f90

@@ -18 +18 @@
   ! **************************************************************
 
+  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 cvflag_mod_h, ONLY: icvflag_Tpa, cvflag_grav, cvflag_ice, ok_optim_yield, ok_entrain, ok_homo_tend, &
           ok_convstop, ok_intermittent, cvflag_prec_eject, qsat_depends_on_qt, adiab_ascent_mass_flux_depends_on_ejectliq, keepbug_ice_frac
@@ -35 +37 @@
 IMPLICIT NONE
 
-  include "cvthermo.h"
   include "cv3param.h"
   include "YOMCST2.h"