Changeset 5276 for LMDZ6/trunk/libf/phylmd/cv30_routines.f90
- Timestamp:
- Oct 25, 2024, 5:59:01 PM (7 hours ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/cv30_routines.f90
r5275 r5276 5 5 6 6 SUBROUTINE cv30_param(nd, delt) 7 USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl & 8 , clmci, eps, epsi, epsim1, ginv, hrd, grav 7 9 IMPLICIT NONE 8 10 … … 85 87 SUBROUTINE cv30_prelim(len, nd, ndp1, t, q, p, ph, lv, cpn, tv, gz, h, hm, & 86 88 th) 89 USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl & 90 , clmci, eps, epsi, epsim1, ginv, hrd, grav 87 91 IMPLICIT NONE 88 92 … … 108 112 REAL cpx(len, nd) 109 113 110 include "cvthermo.h"111 114 include "cv30param.h" 112 115 … … 343 346 SUBROUTINE cv30_undilute1(len, nd, t, q, qs, gz, plcl, p, nk, icb, tp, tvp, & 344 347 clw, icbs) 348 USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl & 349 , clmci, eps, epsi, epsim1, ginv, hrd, grav 345 350 IMPLICIT NONE 346 351 … … 357 362 ! - if icbs=icb, compute also tp(icb+1),tvp(icb+1) & clw(icb+1) 358 363 ! ---------------------------------------------------------------- 359 360 include "cvthermo.h"361 364 include "cv30param.h" 362 365 … … 839 842 ep, sigp, buoy) 840 843 ! epmax_cape: ajout arguments 844 USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl & 845 , clmci, eps, epsi, epsim1, ginv, hrd, grav 841 846 IMPLICIT NONE 842 847 … … 859 864 ! --------------------------------------------------------------------- 860 865 861 include "cvthermo.h"862 866 include "cv30param.h" 863 867 include "conema3.h" … … 1212 1216 SUBROUTINE cv30_closure(nloc, ncum, nd, icb, inb, pbase, p, ph, tv, buoy, & 1213 1217 sig, w0, cape, m) 1218 USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl & 1219 , clmci, eps, epsi, epsim1, ginv, hrd, grav 1214 1220 IMPLICIT NONE 1215 1221 … … 1220 1226 ! =================================================================== 1221 1227 1222 include "cvthermo.h"1223 1228 include "cv30param.h" 1224 1229 … … 1418 1423 u, v, tra, h, lv, qnk, hp, tv, tvp, ep, clw, m, sig, ment, qent, uent, & 1419 1424 vent, sij, elij, ments, qents, traent) 1425 USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl & 1426 , clmci, eps, epsi, epsim1, ginv, hrd, grav 1420 1427 IMPLICIT NONE 1421 1428 … … 1426 1433 ! --------------------------------------------------------------------- 1427 1434 1428 include "cvthermo.h"1429 1435 include "cv30param.h" 1430 1436 … … 1816 1822 mp, rp, up, vp, trap, wt, water, evap, b & ! RomP-jyg 1817 1823 , wdtraina, wdtrainm) ! 26/08/10 RomP-jyg 1824 USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl & 1825 , clmci, eps, epsi, epsim1, ginv, hrd, grav 1818 1826 USE cvflag_mod_h, ONLY: icvflag_Tpa, cvflag_grav, cvflag_ice, ok_optim_yield, ok_entrain, ok_homo_tend, & 1819 1827 ok_convstop, ok_intermittent, cvflag_prec_eject, qsat_depends_on_qt, adiab_ascent_mass_flux_depends_on_ejectliq, keepbug_ice_frac 1820 1828 IMPLICIT NONE 1821 include "cvthermo.h"1822 1829 include "cv30param.h" 1823 1830 … … 2183 2190 USE cvflag_mod_h, ONLY: icvflag_Tpa, cvflag_grav, cvflag_ice, ok_optim_yield, ok_entrain, ok_homo_tend, & 2184 2191 ok_convstop, ok_intermittent, cvflag_prec_eject, qsat_depends_on_qt, adiab_ascent_mass_flux_depends_on_ejectliq, keepbug_ice_frac 2192 USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl & 2193 , clmci, eps, epsi, epsim1, ginv, hrd, grav 2185 2194 IMPLICIT NONE 2186 2195 2187 include "cvthermo.h"2188 2196 include "cv30param.h" 2189 2197 include "conema3.h" … … 3274 3282 ,cape,ep,hp,icb,inb,clw,nk,t,h,lv & 3275 3283 ,epmax_diag) 3284 USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl & 3285 , clmci, eps, epsi, epsim1, ginv, hrd, grav 3276 3286 implicit none 3277 3287 … … 3281 3291 ! Toutes les autres variables fn de ep sont calcul�es plus bas. 3282 3292 3283 INCLUDE "cvthermo.h"3284 3293 INCLUDE "cv30param.h" 3285 3294 INCLUDE "conema3.h"
Note: See TracChangeset
for help on using the changeset viewer.