Changeset 5276 for LMDZ6/trunk/libf/phylmdiso/cv3_routines.F90
- Timestamp:
- Oct 25, 2024, 5:59:01 PM (21 hours ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmdiso/cv3_routines.F90
r5275 r5276 185 185 SUBROUTINE cv3_incrcount(len, nd, delt, sig) 186 186 187 USE cvflag_mod_h, ONLY: icvflag_Tpa, cvflag_grav, cvflag_ice, ok_optim_yield, ok_entrain, ok_homo_tend, & 187 USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl & 188 , clmci, eps, epsi, epsim1, ginv, hrd, grav 189 USE cvflag_mod_h, ONLY: icvflag_Tpa, cvflag_grav, cvflag_ice, ok_optim_yield, ok_entrain, ok_homo_tend, & 188 190 ok_convstop, ok_intermittent, cvflag_prec_eject, qsat_depends_on_qt, adiab_ascent_mass_flux_depends_on_ejectliq, keepbug_ice_frac 189 191 IMPLICIT NONE … … 226 228 SUBROUTINE cv3_prelim(len, nd, ndp1, t, q, p, ph, & 227 229 lv, lf, cpn, tv, gz, h, hm, th) 230 USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl & 231 , clmci, eps, epsi, epsim1, ginv, hrd, grav 228 232 IMPLICIT NONE 229 233 … … 249 253 REAL cpx(len, nd) 250 254 251 include "cvthermo.h"252 255 include "cv3param.h" 253 256 … … 323 326 #endif 324 327 328 USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl & 329 , clmci, eps, epsi, epsim1, ginv, hrd, grav 325 330 USE mod_phys_lmdz_transfert_para, ONLY : bcast 326 331 USE add_phys_tend_mod, ONLY: fl_cor_ebil … … 344 349 345 350 include "cv3param.h" 346 include "cvthermo.h"347 351 348 352 !inputs: … … 701 705 #endif 702 706 #endif 707 USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl & 708 , clmci, eps, epsi, epsim1, ginv, hrd, grav 703 709 IMPLICIT NONE 704 710 … … 716 722 ! ---------------------------------------------------------------- 717 723 718 include "cvthermo.h"719 724 include "cv3param.h" 720 725 … … 1484 1489 #endif 1485 1490 #endif 1491 USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl & 1492 , clmci, eps, epsi, epsim1, ginv, hrd, grav 1486 1493 USE cvflag_mod_h, ONLY: icvflag_Tpa, cvflag_grav, cvflag_ice, ok_optim_yield, ok_entrain, ok_homo_tend, & 1487 1494 ok_convstop, ok_intermittent, cvflag_prec_eject, qsat_depends_on_qt, adiab_ascent_mass_flux_depends_on_ejectliq, keepbug_ice_frac … … 1506 1513 ! --------------------------------------------------------------------- 1507 1514 1508 include "cvthermo.h"1509 1515 include "cv3param.h" 1510 1516 include "conema3.h" … … 2513 2519 pbase, p, ph, tv, buoy, & 2514 2520 sig, w0, cape, m, iflag) 2521 USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl & 2522 , clmci, eps, epsi, epsim1, ginv, hrd, grav 2515 2523 IMPLICIT NONE 2516 2524 … … 2521 2529 ! =================================================================== 2522 2530 2523 include "cvthermo.h"2524 2531 include "cv3param.h" 2525 2532 … … 2784 2791 #endif 2785 2792 #endif 2793 USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl & 2794 , clmci, eps, epsi, epsim1, ginv, hrd, grav 2786 2795 USE cvflag_mod_h, ONLY: icvflag_Tpa, cvflag_grav, cvflag_ice, ok_optim_yield, ok_entrain, ok_homo_tend, & 2787 2796 ok_convstop, ok_intermittent, cvflag_prec_eject, qsat_depends_on_qt, adiab_ascent_mass_flux_depends_on_ejectliq, keepbug_ice_frac … … 2793 2802 ! --------------------------------------------------------------------- 2794 2803 2795 include "cvthermo.h"2796 2804 include "cv3param.h" 2797 2805 … … 3612 3620 #endif 3613 3621 #endif 3622 USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl & 3623 , clmci, eps, epsi, epsim1, ginv, hrd, grav 3614 3624 USE cvflag_mod_h, ONLY: icvflag_Tpa, cvflag_grav, cvflag_ice, ok_optim_yield, ok_entrain, ok_homo_tend, & 3615 3625 ok_convstop, ok_intermittent, cvflag_prec_eject, qsat_depends_on_qt, adiab_ascent_mass_flux_depends_on_ejectliq, keepbug_ice_frac … … 3617 3627 3618 3628 3619 include "cvthermo.h"3620 3629 include "cv3param.h" 3621 3630 include "nuage.h" … … 4725 4734 #endif 4726 4735 #endif 4736 USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl & 4737 , clmci, eps, epsi, epsim1, ginv, hrd, grav 4727 4738 USE cvflag_mod_h, ONLY: icvflag_Tpa, cvflag_grav, cvflag_ice, ok_optim_yield, ok_entrain, ok_homo_tend, & 4728 4739 ok_convstop, ok_intermittent, cvflag_prec_eject, qsat_depends_on_qt, adiab_ascent_mass_flux_depends_on_ejectliq, keepbug_ice_frac 4729 4740 IMPLICIT NONE 4730 4741 4731 include "cvthermo.h"4732 4742 include "cv3param.h" 4733 4743 include "conema3.h" … … 7615 7625 , pbase, p, ph, tv, buoy, sig, w0,iflag & 7616 7626 , epmax_diag) 7617 USE cvflag_mod_h, ONLY: icvflag_Tpa, cvflag_grav, cvflag_ice, ok_optim_yield, ok_entrain, ok_homo_tend, & 7627 USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl & 7628 , clmci, eps, epsi, epsim1, ginv, hrd, grav 7629 USE cvflag_mod_h, ONLY: icvflag_Tpa, cvflag_grav, cvflag_ice, ok_optim_yield, ok_entrain, ok_homo_tend, & 7618 7630 ok_convstop, ok_intermittent, cvflag_prec_eject, qsat_depends_on_qt, adiab_ascent_mass_flux_depends_on_ejectliq, keepbug_ice_frac 7619 7631 implicit none … … 7624 7636 ! Toutes les autres variables fn de ep sont calculees plus bas. 7625 7637 7626 include "cvthermo.h"7627 7638 include "cv3param.h" 7628 7639 include "conema3.h"
Note: See TracChangeset
for help on using the changeset viewer.