Ignore:
Timestamp:
Oct 25, 2024, 5:59:01 PM (18 hours ago)
Author:
abarral
Message:

Turn cvthermo.h into a module

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmdiso/cv_driver.F90

    r5275 r5276  
    12291229SUBROUTINE cv_flag(iflag_ice_thermo)
    12301230
     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
    12311233  USE cvflag_mod_h, ONLY: icvflag_Tpa, cvflag_grav, cvflag_ice, ok_optim_yield, ok_entrain, ok_homo_tend, &
    12321234          ok_convstop, ok_intermittent, cvflag_prec_eject, qsat_depends_on_qt, adiab_ascent_mass_flux_depends_on_ejectliq, keepbug_ice_frac
    … …  
    12871289          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    12881290          , 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
    12891293  IMPLICIT NONE
    12901294
    … …  
    12921296  ! Set thermodynamical constants for convectL
    12931297  ! -------------------------------------------------------------
    1294   include "cvthermo.h"
    12951298
    12961299  INTEGER iflag_con
Note: See TracChangeset for help on using the changeset viewer.