Changeset 5285 for LMDZ6/trunk/libf/phylmd/cv_driver.F90
- Timestamp:
- Oct 28, 2024, 2:33:29 PM (3 days ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/cv_driver.F90
r5283 r5285 684 684 SUBROUTINE cv_flag(iflag_ice_thermo) 685 685 686 USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl & 687 , clmci, eps, epsi, epsim1, ginv, hrd, grav 688 USE cvflag_mod_h, ONLY: icvflag_Tpa, cvflag_grav, cvflag_ice, ok_optim_yield, ok_entrain, ok_homo_tend, & 689 ok_convstop, ok_intermittent, cvflag_prec_eject, qsat_depends_on_qt, adiab_ascent_mass_flux_depends_on_ejectliq, keepbug_ice_frac 686 USE cvthermo_mod_h 687 USE cvflag_mod_h 690 688 USE ioipsl_getin_p_mod, ONLY : getin_p 691 689 … … 720 718 ! ================================================================== 721 719 SUBROUTINE cv_thermo(iflag_con) 722 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 723 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 724 , R_ecc, R_peri, R_incl & 725 , RA, RG, R1SA & 726 , RSIGMA & 727 , R, RMD, RMV, RD, RV, RCPD & 728 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 729 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 730 , RCW, RCS & 731 , RLVTT, RLSTT, RLMLT, RTT, RATM & 732 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 733 , RALPD, RBETD, RGAMD 734 USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl & 735 , clmci, eps, epsi, epsim1, ginv, hrd, grav 720 USE yomcst_mod_h 721 USE cvthermo_mod_h 736 722 IMPLICIT NONE 737 723
Note: See TracChangeset
for help on using the changeset viewer.