Changeset 5285 for LMDZ6/trunk/libf/phylmd/cv_driver.F90

Timestamp:

Oct 28, 2024, 2:33:29 PM (3 days ago)

Author:

abarral

Message:

As discussed internally, remove generic ONLY: ... for new _mod_h modules

File:

• LMDZ6/trunk/libf/phylmd/cv_driver.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/cv_driver.F90

@@ -684 +684 @@
 SUBROUTINE cv_flag(iflag_ice_thermo)
 
-  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
+  USE cvthermo_mod_h
+  USE cvflag_mod_h
   USE ioipsl_getin_p_mod, ONLY : getin_p
 
@@ -720 +718 @@
 ! ==================================================================
 SUBROUTINE cv_thermo(iflag_con)
-  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
-          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
-          , R_ecc, R_peri, R_incl                                      &
-          , RA, RG, R1SA                                         &
-          , RSIGMA                                                     &
-          , R, RMD, RMV, RD, RV, RCPD                    &
-          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
-          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
-          , RCW, RCS                                                 &
-          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
-          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
-          , RALPD, RBETD, RGAMD
-  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
+  USE cvthermo_mod_h
 IMPLICIT NONE