Changeset 5276 for LMDZ6/trunk/libf/phylmd/cv3_routines.f90
- Timestamp:
- Oct 25, 2024, 5:59:01 PM (7 days ago)
- File:
-
- 1 edited
-
LMDZ6/trunk/libf/phylmd/cv3_routines.f90 (modified) (19 diffs)
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/cv3_routines.f90
r5275 r5276 184 184 SUBROUTINE cv3_incrcount(len, nd, delt, sig) 185 185 186 USE cvflag_mod_h, ONLY: icvflag_Tpa, cvflag_grav, cvflag_ice, ok_optim_yield, ok_entrain, ok_homo_tend, & 186 USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl & 187 , clmci, eps, epsi, epsim1, ginv, hrd, grav 188 USE cvflag_mod_h, ONLY: icvflag_Tpa, cvflag_grav, cvflag_ice, ok_optim_yield, ok_entrain, ok_homo_tend, & 187 189 ok_convstop, ok_intermittent, cvflag_prec_eject, qsat_depends_on_qt, adiab_ascent_mass_flux_depends_on_ejectliq, keepbug_ice_frac 188 190 IMPLICIT NONE … … 225 227 SUBROUTINE cv3_prelim(len, nd, ndp1, t, q, p, ph, & 226 228 lv, lf, cpn, tv, gz, h, hm, th) 229 USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl & 230 , clmci, eps, epsi, epsim1, ginv, hrd, grav 227 231 IMPLICIT NONE 228 232 … … 248 252 REAL cpx(len, nd) 249 253 250 include "cvthermo.h"251 254 include "cv3param.h" 252 255 … … 314 317 USE add_phys_tend_mod, ONLY: fl_cor_ebil 315 318 USE print_control_mod, ONLY: prt_level 319 USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl & 320 , clmci, eps, epsi, epsim1, ginv, hrd, grav 316 321 IMPLICIT NONE 317 322 … … 332 337 333 338 include "cv3param.h" 334 include "cvthermo.h"335 339 336 340 !inputs: … … 605 609 SUBROUTINE cv3_undilute1(len, nd, t, qs, gz, plcl, p, icb, tnk, qnk, gznk, & 606 610 tp, tvp, clw, icbs) 611 USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl & 612 , clmci, eps, epsi, epsim1, ginv, hrd, grav 607 613 USE cvflag_mod_h, ONLY: icvflag_Tpa, cvflag_grav, cvflag_ice, ok_optim_yield, ok_entrain, ok_homo_tend, & 608 614 ok_convstop, ok_intermittent, cvflag_prec_eject, qsat_depends_on_qt, adiab_ascent_mass_flux_depends_on_ejectliq, keepbug_ice_frac … … 622 628 ! ---------------------------------------------------------------- 623 629 624 include "cvthermo.h"625 630 include "cv3param.h" 626 631 … … 1141 1146 USE cvflag_mod_h, ONLY: icvflag_Tpa, cvflag_grav, cvflag_ice, ok_optim_yield, ok_entrain, ok_homo_tend, & 1142 1147 ok_convstop, ok_intermittent, cvflag_prec_eject, qsat_depends_on_qt, adiab_ascent_mass_flux_depends_on_ejectliq, keepbug_ice_frac 1148 USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl & 1149 , clmci, eps, epsi, epsim1, ginv, hrd, grav 1143 1150 IMPLICIT NONE 1144 1151 … … 1161 1168 ! --------------------------------------------------------------------- 1162 1169 1163 include "cvthermo.h"1164 1170 include "cv3param.h" 1165 1171 include "conema3.h" … … 2050 2056 pbase, p, ph, tv, buoy, & 2051 2057 sig, w0, cape, m, iflag) 2058 USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl & 2059 , clmci, eps, epsi, epsim1, ginv, hrd, grav 2052 2060 USE cvflag_mod_h, ONLY: icvflag_Tpa, cvflag_grav, cvflag_ice, ok_optim_yield, ok_entrain, ok_homo_tend, & 2053 2061 ok_convstop, ok_intermittent, cvflag_prec_eject, qsat_depends_on_qt, adiab_ascent_mass_flux_depends_on_ejectliq, keepbug_ice_frac … … 2060 2068 ! =================================================================== 2061 2069 2062 include "cvthermo.h"2063 2070 include "cv3param.h" 2064 2071 … … 2296 2303 USE cvflag_mod_h, ONLY: icvflag_Tpa, cvflag_grav, cvflag_ice, ok_optim_yield, ok_entrain, ok_homo_tend, & 2297 2304 ok_convstop, ok_intermittent, cvflag_prec_eject, qsat_depends_on_qt, adiab_ascent_mass_flux_depends_on_ejectliq, keepbug_ice_frac 2305 USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl & 2306 , clmci, eps, epsi, epsim1, ginv, hrd, grav 2298 2307 IMPLICIT NONE 2299 2308 … … 2303 2312 ! --------------------------------------------------------------------- 2304 2313 2305 include "cvthermo.h"2306 2314 include "cv3param.h" 2307 2315 … … 2717 2725 faci, b, sigd, & 2718 2726 wdtrainA, wdtrainS, wdtrainM) ! RomP 2727 USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl & 2728 , clmci, eps, epsi, epsim1, ginv, hrd, grav 2719 2729 USE cvflag_mod_h, ONLY: icvflag_Tpa, cvflag_grav, cvflag_ice, ok_optim_yield, ok_entrain, ok_homo_tend, & 2720 2730 ok_convstop, ok_intermittent, cvflag_prec_eject, qsat_depends_on_qt, adiab_ascent_mass_flux_depends_on_ejectliq, keepbug_ice_frac … … 2722 2732 IMPLICIT NONE 2723 2733 2724 include "cvthermo.h"2725 2734 include "cv3param.h" 2726 2735 include "nuage.h" … … 3466 3475 USE cvflag_mod_h, ONLY: icvflag_Tpa, cvflag_grav, cvflag_ice, ok_optim_yield, ok_entrain, ok_homo_tend, & 3467 3476 ok_convstop, ok_intermittent, cvflag_prec_eject, qsat_depends_on_qt, adiab_ascent_mass_flux_depends_on_ejectliq, keepbug_ice_frac 3468 3477 USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl & 3478 , clmci, eps, epsi, epsim1, ginv, hrd, grav 3469 3479 IMPLICIT NONE 3470 3480 3471 include "cvthermo.h"3472 3481 include "cv3param.h" 3473 3482 include "conema3.h" … … 4961 4970 ep, Vprecip, elij, clw, epmlmMm, eplaMm, & 4962 4971 icb, inb) 4972 USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl & 4973 , clmci, eps, epsi, epsim1, ginv, hrd, grav 4963 4974 USE cvflag_mod_h, ONLY: icvflag_Tpa, cvflag_grav, cvflag_ice, ok_optim_yield, ok_entrain, ok_homo_tend, & 4964 4975 ok_convstop, ok_intermittent, cvflag_prec_eject, qsat_depends_on_qt, adiab_ascent_mass_flux_depends_on_ejectliq, keepbug_ice_frac … … 5151 5162 USE cvflag_mod_h, ONLY: icvflag_Tpa, cvflag_grav, cvflag_ice, ok_optim_yield, ok_entrain, ok_homo_tend, & 5152 5163 ok_convstop, ok_intermittent, cvflag_prec_eject, qsat_depends_on_qt, adiab_ascent_mass_flux_depends_on_ejectliq, keepbug_ice_frac 5164 USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl & 5165 , clmci, eps, epsi, epsim1, ginv, hrd, grav 5153 5166 implicit none 5154 5167 … … 5158 5171 ! Toutes les autres variables fn de ep sont calcul�es plus bas. 5159 5172 5160 include "cvthermo.h"5161 5173 include "cv3param.h" 5162 5174 include "conema3.h"
Note: See TracChangeset
for help on using the changeset viewer.
