Changeset 5275 for LMDZ6/trunk/libf/phylmdiso/cv3_routines.F90
- Timestamp:
- Oct 25, 2024, 4:16:13 PM (22 hours ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmdiso/cv3_routines.F90
r5217 r5275 7 7 SUBROUTINE cv3_param(nd, k_upper, delt) 8 8 9 USE cvflag_mod_h, ONLY: icvflag_Tpa, cvflag_grav, cvflag_ice, ok_optim_yield, ok_entrain, ok_homo_tend, & 10 ok_convstop, ok_intermittent, cvflag_prec_eject, qsat_depends_on_qt, adiab_ascent_mass_flux_depends_on_ejectliq, keepbug_ice_frac 9 11 USE ioipsl_getin_p_mod, ONLY : getin_p 10 12 use mod_phys_lmdz_para … … 36 38 37 39 include "cv3param.h" 38 include "cvflag.h"39 40 include "conema3.h" 40 41 … … 184 185 SUBROUTINE cv3_incrcount(len, nd, delt, sig) 185 186 186 IMPLICIT NONE 187 USE cvflag_mod_h, ONLY: icvflag_Tpa, cvflag_grav, cvflag_ice, ok_optim_yield, ok_entrain, ok_homo_tend, & 188 ok_convstop, ok_intermittent, cvflag_prec_eject, qsat_depends_on_qt, adiab_ascent_mass_flux_depends_on_ejectliq, keepbug_ice_frac 189 IMPLICIT NONE 187 190 188 191 ! ===================================================================== … … 191 194 192 195 include "cv3param.h" 193 include "cvflag.h"194 196 195 197 !inputs: … … 1482 1484 #endif 1483 1485 #endif 1486 USE cvflag_mod_h, ONLY: icvflag_Tpa, cvflag_grav, cvflag_ice, ok_optim_yield, ok_entrain, ok_homo_tend, & 1487 ok_convstop, ok_intermittent, cvflag_prec_eject, qsat_depends_on_qt, adiab_ascent_mass_flux_depends_on_ejectliq, keepbug_ice_frac 1484 1488 IMPLICIT NONE 1485 1489 … … 1505 1509 include "cv3param.h" 1506 1510 include "conema3.h" 1507 include "cvflag.h"1508 1511 include "YOMCST2.h" 1509 1512 … … 2781 2784 #endif 2782 2785 #endif 2786 USE cvflag_mod_h, ONLY: icvflag_Tpa, cvflag_grav, cvflag_ice, ok_optim_yield, ok_entrain, ok_homo_tend, & 2787 ok_convstop, ok_intermittent, cvflag_prec_eject, qsat_depends_on_qt, adiab_ascent_mass_flux_depends_on_ejectliq, keepbug_ice_frac 2783 2788 IMPLICIT NONE 2784 2789 … … 2790 2795 include "cvthermo.h" 2791 2796 include "cv3param.h" 2792 include "cvflag.h"2793 2797 2794 2798 !inputs: … … 3608 3612 #endif 3609 3613 #endif 3614 USE cvflag_mod_h, ONLY: icvflag_Tpa, cvflag_grav, cvflag_ice, ok_optim_yield, ok_entrain, ok_homo_tend, & 3615 ok_convstop, ok_intermittent, cvflag_prec_eject, qsat_depends_on_qt, adiab_ascent_mass_flux_depends_on_ejectliq, keepbug_ice_frac 3610 3616 IMPLICIT NONE 3611 3617 … … 3613 3619 include "cvthermo.h" 3614 3620 include "cv3param.h" 3615 include "cvflag.h"3616 3621 include "nuage.h" 3617 3622 … … 4720 4725 #endif 4721 4726 #endif 4727 USE cvflag_mod_h, ONLY: icvflag_Tpa, cvflag_grav, cvflag_ice, ok_optim_yield, ok_entrain, ok_homo_tend, & 4728 ok_convstop, ok_intermittent, cvflag_prec_eject, qsat_depends_on_qt, adiab_ascent_mass_flux_depends_on_ejectliq, keepbug_ice_frac 4722 4729 IMPLICIT NONE 4723 4730 4724 4731 include "cvthermo.h" 4725 4732 include "cv3param.h" 4726 include "cvflag.h"4727 4733 include "conema3.h" 4728 4734 … … 7609 7615 , pbase, p, ph, tv, buoy, sig, w0,iflag & 7610 7616 , epmax_diag) 7611 implicit none 7617 USE cvflag_mod_h, ONLY: icvflag_Tpa, cvflag_grav, cvflag_ice, ok_optim_yield, ok_entrain, ok_homo_tend, & 7618 ok_convstop, ok_intermittent, cvflag_prec_eject, qsat_depends_on_qt, adiab_ascent_mass_flux_depends_on_ejectliq, keepbug_ice_frac 7619 implicit none 7612 7620 7613 7621 ! On fait varier epmax en fn de la cape … … 7617 7625 7618 7626 include "cvthermo.h" 7619 include "cv3param.h" 7627 include "cv3param.h" 7620 7628 include "conema3.h" 7621 include "cvflag.h"7622 7629 7623 7630 ! inputs:
Note: See TracChangeset
for help on using the changeset viewer.