Changeset 5276 for LMDZ6/trunk/libf/phylmdiso/cv_driver.F90
- Timestamp:
- Oct 25, 2024, 5:59:01 PM (18 hours ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmdiso/cv_driver.F90
r5275 r5276 1229 1229 SUBROUTINE cv_flag(iflag_ice_thermo) 1230 1230 1231 USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl & 1232 , clmci, eps, epsi, epsim1, ginv, hrd, grav 1231 1233 USE cvflag_mod_h, ONLY: icvflag_Tpa, cvflag_grav, cvflag_ice, ok_optim_yield, ok_entrain, ok_homo_tend, & 1232 1234 ok_convstop, ok_intermittent, cvflag_prec_eject, qsat_depends_on_qt, adiab_ascent_mass_flux_depends_on_ejectliq, keepbug_ice_frac … … 1287 1289 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 1288 1290 , RALPD, RBETD, RGAMD 1291 USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl & 1292 , clmci, eps, epsi, epsim1, ginv, hrd, grav 1289 1293 IMPLICIT NONE 1290 1294 … … 1292 1296 ! Set thermodynamical constants for convectL 1293 1297 ! ------------------------------------------------------------- 1294 include "cvthermo.h"1295 1298 1296 1299 INTEGER iflag_con
Note: See TracChangeset
for help on using the changeset viewer.