Changeset 5276 for LMDZ6/trunk/libf/phylmd/cv30_routines.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/cv30_routines.f90 (modified) (15 diffs)

LMDZ6/trunk/libf/phylmd/cv30_routines.f90

@@ -5 +5 @@
 
 SUBROUTINE cv30_param(nd, delt)
+  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
   IMPLICIT NONE
 
@@ -85 +87 @@
 SUBROUTINE cv30_prelim(len, nd, ndp1, t, q, p, ph, lv, cpn, tv, gz, h, hm, &
     th)
+  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
   IMPLICIT NONE
 
@@ -108 +112 @@
   REAL cpx(len, nd)
 
-  include "cvthermo.h"
   include "cv30param.h"
 
@@ -343 +346 @@
 SUBROUTINE cv30_undilute1(len, nd, t, q, qs, gz, plcl, p, nk, icb, tp, tvp, &
     clw, icbs)
+  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
   IMPLICIT NONE
 
@@ -357 +362 @@
   ! - if icbs=icb, compute also tp(icb+1),tvp(icb+1) & clw(icb+1)
   ! ----------------------------------------------------------------
-
-  include "cvthermo.h"
   include "cv30param.h"
 
@@ -839 +842 @@
     ep, sigp, buoy)
     ! epmax_cape: ajout arguments
+  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
   IMPLICIT NONE
 
@@ -859 +864 @@
   ! ---------------------------------------------------------------------
 
-  include "cvthermo.h"
   include "cv30param.h"
   include "conema3.h"
@@ -1212 +1216 @@
 SUBROUTINE cv30_closure(nloc, ncum, nd, icb, inb, pbase, p, ph, tv, buoy, &
     sig, w0, cape, m)
+  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
   IMPLICIT NONE
 
@@ -1220 +1226 @@
   ! ===================================================================
 
-  include "cvthermo.h"
   include "cv30param.h"
 
@@ -1418 +1423 @@
     u, v, tra, h, lv, qnk, hp, tv, tvp, ep, clw, m, sig, ment, qent, uent, &
     vent, sij, elij, ments, qents, traent)
+  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
   IMPLICIT NONE
 
@@ -1426 +1433 @@
   ! ---------------------------------------------------------------------
 
-  include "cvthermo.h"
   include "cv30param.h"
 
@@ -1816 +1822 @@
     mp, rp, up, vp, trap, wt, water, evap, b & ! RomP-jyg
     , wdtraina, wdtrainm) ! 26/08/10  RomP-jyg
+  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
+    ok_convstop, ok_intermittent, cvflag_prec_eject, qsat_depends_on_qt, adiab_ascent_mass_flux_depends_on_ejectliq, keepbug_ice_frac
   IMPLICIT NONE
-  include "cvthermo.h"
   include "cv30param.h"
 
@@ -2183 +2190 @@
   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, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl  &
+          , clmci, eps, epsi, epsim1, ginv, hrd, grav
   IMPLICIT NONE
 
-  include "cvthermo.h"
   include "cv30param.h"
   include "conema3.h"
@@ -3274 +3282 @@
                 ,cape,ep,hp,icb,inb,clw,nk,t,h,lv &
                 ,epmax_diag)
+        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
         implicit none
 
@@ -3281 +3291 @@
         ! Toutes les autres variables fn de ep sont calcul�es plus bas.
 
-        INCLUDE "cvthermo.h"
         INCLUDE "cv30param.h"
         INCLUDE "conema3.h"