Changeset 5276 for LMDZ6/trunk


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

Turn cvthermo.h into a module

Location:
LMDZ6/trunk/libf
Files:
19 edited
2 moved

Legend:

Unmodified
Added
Removed
  • LMDZ6/trunk/libf/phylmd/cv30_routines.f90

    r5275 r5276  
    55
    66SUBROUTINE cv30_param(nd, delt)
     7  USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl  &
     8          , clmci, eps, epsi, epsim1, ginv, hrd, grav
    79  IMPLICIT NONE
    810
     
    8587SUBROUTINE cv30_prelim(len, nd, ndp1, t, q, p, ph, lv, cpn, tv, gz, h, hm, &
    8688    th)
     89  USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl  &
     90          , clmci, eps, epsi, epsim1, ginv, hrd, grav
    8791  IMPLICIT NONE
    8892
     
    108112  REAL cpx(len, nd)
    109113
    110   include "cvthermo.h"
    111114  include "cv30param.h"
    112115
     
    343346SUBROUTINE cv30_undilute1(len, nd, t, q, qs, gz, plcl, p, nk, icb, tp, tvp, &
    344347    clw, icbs)
     348  USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl  &
     349          , clmci, eps, epsi, epsim1, ginv, hrd, grav
    345350  IMPLICIT NONE
    346351
     
    357362  ! - if icbs=icb, compute also tp(icb+1),tvp(icb+1) & clw(icb+1)
    358363  ! ----------------------------------------------------------------
    359 
    360   include "cvthermo.h"
    361364  include "cv30param.h"
    362365
     
    839842    ep, sigp, buoy)
    840843    ! epmax_cape: ajout arguments
     844  USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl  &
     845          , clmci, eps, epsi, epsim1, ginv, hrd, grav
    841846  IMPLICIT NONE
    842847
     
    859864  ! ---------------------------------------------------------------------
    860865
    861   include "cvthermo.h"
    862866  include "cv30param.h"
    863867  include "conema3.h"
     
    12121216SUBROUTINE cv30_closure(nloc, ncum, nd, icb, inb, pbase, p, ph, tv, buoy, &
    12131217    sig, w0, cape, m)
     1218  USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl  &
     1219          , clmci, eps, epsi, epsim1, ginv, hrd, grav
    12141220  IMPLICIT NONE
    12151221
     
    12201226  ! ===================================================================
    12211227
    1222   include "cvthermo.h"
    12231228  include "cv30param.h"
    12241229
     
    14181423    u, v, tra, h, lv, qnk, hp, tv, tvp, ep, clw, m, sig, ment, qent, uent, &
    14191424    vent, sij, elij, ments, qents, traent)
     1425  USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl  &
     1426          , clmci, eps, epsi, epsim1, ginv, hrd, grav
    14201427  IMPLICIT NONE
    14211428
     
    14261433  ! ---------------------------------------------------------------------
    14271434
    1428   include "cvthermo.h"
    14291435  include "cv30param.h"
    14301436
     
    18161822    mp, rp, up, vp, trap, wt, water, evap, b & ! RomP-jyg
    18171823    , wdtraina, wdtrainm) ! 26/08/10  RomP-jyg
     1824  USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl  &
     1825          , clmci, eps, epsi, epsim1, ginv, hrd, grav
    18181826  USE cvflag_mod_h, ONLY: icvflag_Tpa, cvflag_grav, cvflag_ice, ok_optim_yield, ok_entrain, ok_homo_tend, &
    1819           ok_convstop, ok_intermittent, cvflag_prec_eject, qsat_depends_on_qt, adiab_ascent_mass_flux_depends_on_ejectliq, keepbug_ice_frac
     1827    ok_convstop, ok_intermittent, cvflag_prec_eject, qsat_depends_on_qt, adiab_ascent_mass_flux_depends_on_ejectliq, keepbug_ice_frac
    18201828  IMPLICIT NONE
    1821   include "cvthermo.h"
    18221829  include "cv30param.h"
    18231830
     
    21832190  USE cvflag_mod_h, ONLY: icvflag_Tpa, cvflag_grav, cvflag_ice, ok_optim_yield, ok_entrain, ok_homo_tend, &
    21842191          ok_convstop, ok_intermittent, cvflag_prec_eject, qsat_depends_on_qt, adiab_ascent_mass_flux_depends_on_ejectliq, keepbug_ice_frac
     2192  USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl  &
     2193          , clmci, eps, epsi, epsim1, ginv, hrd, grav
    21852194  IMPLICIT NONE
    21862195
    2187   include "cvthermo.h"
    21882196  include "cv30param.h"
    21892197  include "conema3.h"
     
    32743282                ,cape,ep,hp,icb,inb,clw,nk,t,h,lv &
    32753283                ,epmax_diag)
     3284        USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl  &
     3285          , clmci, eps, epsi, epsim1, ginv, hrd, grav
    32763286        implicit none
    32773287
     
    32813291        ! Toutes les autres variables fn de ep sont calcul�es plus bas.
    32823292
    3283         INCLUDE "cvthermo.h"
    32843293        INCLUDE "cv30param.h"
    32853294        INCLUDE "conema3.h"
  • LMDZ6/trunk/libf/phylmd/cv3_buoy.f90

    r5268 r5276  
    1010  ! **************************************************************
    1111
     12  USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl  &
     13          , clmci, eps, epsi, epsim1, ginv, hrd, grav
    1214  IMPLICIT NONE
    1315
    14   include "cvthermo.h"
    1516  include "cv3param.h"
    1617  include "YOMCST2.h"
  • LMDZ6/trunk/libf/phylmd/cv3_cine.f90

    r5274 r5276  
    1515  ! **************************************************************
    1616
     17  USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl  &
     18          , clmci, eps, epsi, epsim1, ginv, hrd, grav
    1719  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
    1820          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     
    3032
    3133
    32   include "cvthermo.h"
    3334  include "cv3param.h"
    3435  ! input:
  • LMDZ6/trunk/libf/phylmd/cv3_enthalpmix.f90

    r5274 r5276  
    1111  ! **************************************************************
    1212
     13  USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl  &
     14          , clmci, eps, epsi, epsim1, ginv, hrd, grav
    1315  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
    1416          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     
    3436  ! ===============================================================
    3537
    36   include "cvthermo.h"
    3738  include "YOETHF.h"
    3839
  • LMDZ6/trunk/libf/phylmd/cv3_estatmix.f90

    r5274 r5276  
    1212  ! ****************************************************************
    1313
     14  USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl  &
     15          , clmci, eps, epsi, epsim1, ginv, hrd, grav
    1416  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
    1517          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     
    3537  ! ===============================================================
    3638
    37   include "cvthermo.h"
    3839  include "YOETHF.h"
    3940
  • LMDZ6/trunk/libf/phylmd/cv3_routines.f90

    r5275 r5276  
    184184SUBROUTINE cv3_incrcount(len, nd, delt, sig)
    185185
    186 USE cvflag_mod_h, ONLY: icvflag_Tpa, cvflag_grav, cvflag_ice, ok_optim_yield, ok_entrain, ok_homo_tend, &
     186USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl  &
     187          , clmci, eps, epsi, epsim1, ginv, hrd, grav
     188  USE cvflag_mod_h, ONLY: icvflag_Tpa, cvflag_grav, cvflag_ice, ok_optim_yield, ok_entrain, ok_homo_tend, &
    187189          ok_convstop, ok_intermittent, cvflag_prec_eject, qsat_depends_on_qt, adiab_ascent_mass_flux_depends_on_ejectliq, keepbug_ice_frac
    188190  IMPLICIT NONE
     
    225227SUBROUTINE cv3_prelim(len, nd, ndp1, t, q, p, ph, &
    226228                      lv, lf, cpn, tv, gz, h, hm, th)
     229  USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl  &
     230          , clmci, eps, epsi, epsim1, ginv, hrd, grav
    227231  IMPLICIT NONE
    228232
     
    248252  REAL cpx(len, nd)
    249253
    250   include "cvthermo.h"
    251254  include "cv3param.h"
    252255
     
    314317  USE add_phys_tend_mod, ONLY: fl_cor_ebil
    315318  USE print_control_mod, ONLY: prt_level
     319  USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl  &
     320          , clmci, eps, epsi, epsim1, ginv, hrd, grav
    316321  IMPLICIT NONE
    317322
     
    332337
    333338  include "cv3param.h"
    334   include "cvthermo.h"
    335339
    336340!inputs:
     
    605609SUBROUTINE cv3_undilute1(len, nd, t, qs, gz, plcl, p, icb, tnk, qnk, gznk, &
    606610                         tp, tvp, clw, icbs)
     611  USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl  &
     612          , clmci, eps, epsi, epsim1, ginv, hrd, grav
    607613  USE cvflag_mod_h, ONLY: icvflag_Tpa, cvflag_grav, cvflag_ice, ok_optim_yield, ok_entrain, ok_homo_tend, &
    608614          ok_convstop, ok_intermittent, cvflag_prec_eject, qsat_depends_on_qt, adiab_ascent_mass_flux_depends_on_ejectliq, keepbug_ice_frac
     
    622628! ----------------------------------------------------------------
    623629
    624   include "cvthermo.h"
    625630  include "cv3param.h"
    626631
     
    11411146  USE cvflag_mod_h, ONLY: icvflag_Tpa, cvflag_grav, cvflag_ice, ok_optim_yield, ok_entrain, ok_homo_tend, &
    11421147          ok_convstop, ok_intermittent, cvflag_prec_eject, qsat_depends_on_qt, adiab_ascent_mass_flux_depends_on_ejectliq, keepbug_ice_frac
     1148  USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl  &
     1149          , clmci, eps, epsi, epsim1, ginv, hrd, grav
    11431150  IMPLICIT NONE
    11441151
     
    11611168! ---------------------------------------------------------------------
    11621169
    1163   include "cvthermo.h"
    11641170  include "cv3param.h"
    11651171  include "conema3.h"
     
    20502056                       pbase, p, ph, tv, buoy, &
    20512057                       sig, w0, cape, m, iflag)
     2058  USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl  &
     2059          , clmci, eps, epsi, epsim1, ginv, hrd, grav
    20522060  USE cvflag_mod_h, ONLY: icvflag_Tpa, cvflag_grav, cvflag_ice, ok_optim_yield, ok_entrain, ok_homo_tend, &
    20532061          ok_convstop, ok_intermittent, cvflag_prec_eject, qsat_depends_on_qt, adiab_ascent_mass_flux_depends_on_ejectliq, keepbug_ice_frac
     
    20602068! ===================================================================
    20612069
    2062   include "cvthermo.h"
    20632070  include "cv3param.h"
    20642071
     
    22962303  USE cvflag_mod_h, ONLY: icvflag_Tpa, cvflag_grav, cvflag_ice, ok_optim_yield, ok_entrain, ok_homo_tend, &
    22972304          ok_convstop, ok_intermittent, cvflag_prec_eject, qsat_depends_on_qt, adiab_ascent_mass_flux_depends_on_ejectliq, keepbug_ice_frac
     2305  USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl  &
     2306          , clmci, eps, epsi, epsim1, ginv, hrd, grav
    22982307  IMPLICIT NONE
    22992308
     
    23032312! ---------------------------------------------------------------------
    23042313
    2305   include "cvthermo.h"
    23062314  include "cv3param.h"
    23072315
     
    27172725                     faci, b, sigd, &
    27182726                     wdtrainA, wdtrainS, wdtrainM)                                      ! RomP
     2727  USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl  &
     2728          , clmci, eps, epsi, epsim1, ginv, hrd, grav
    27192729  USE cvflag_mod_h, ONLY: icvflag_Tpa, cvflag_grav, cvflag_ice, ok_optim_yield, ok_entrain, ok_homo_tend, &
    27202730          ok_convstop, ok_intermittent, cvflag_prec_eject, qsat_depends_on_qt, adiab_ascent_mass_flux_depends_on_ejectliq, keepbug_ice_frac
     
    27222732  IMPLICIT NONE
    27232733
    2724   include "cvthermo.h"
    27252734  include "cv3param.h"
    27262735  include "nuage.h"
     
    34663475    USE cvflag_mod_h, ONLY: icvflag_Tpa, cvflag_grav, cvflag_ice, ok_optim_yield, ok_entrain, ok_homo_tend, &
    34673476          ok_convstop, ok_intermittent, cvflag_prec_eject, qsat_depends_on_qt, adiab_ascent_mass_flux_depends_on_ejectliq, keepbug_ice_frac
    3468 
     3477    USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl  &
     3478          , clmci, eps, epsi, epsim1, ginv, hrd, grav
    34693479  IMPLICIT NONE
    34703480
    3471   include "cvthermo.h"
    34723481  include "cv3param.h"
    34733482  include "conema3.h"
     
    49614970                      ep, Vprecip, elij, clw, epmlmMm, eplaMm, &
    49624971                      icb, inb)
     4972  USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl  &
     4973          , clmci, eps, epsi, epsim1, ginv, hrd, grav
    49634974  USE cvflag_mod_h, ONLY: icvflag_Tpa, cvflag_grav, cvflag_ice, ok_optim_yield, ok_entrain, ok_homo_tend, &
    49644975          ok_convstop, ok_intermittent, cvflag_prec_eject, qsat_depends_on_qt, adiab_ascent_mass_flux_depends_on_ejectliq, keepbug_ice_frac
     
    51515162          USE cvflag_mod_h, ONLY: icvflag_Tpa, cvflag_grav, cvflag_ice, ok_optim_yield, ok_entrain, ok_homo_tend, &
    51525163          ok_convstop, ok_intermittent, cvflag_prec_eject, qsat_depends_on_qt, adiab_ascent_mass_flux_depends_on_ejectliq, keepbug_ice_frac
     5164          USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl  &
     5165          , clmci, eps, epsi, epsim1, ginv, hrd, grav
    51535166        implicit none
    51545167
     
    51585171        ! Toutes les autres variables fn de ep sont calcul�es plus bas.
    51595172
    5160   include "cvthermo.h"
    51615173  include "cv3param.h"
    51625174  include "conema3.h"
  • LMDZ6/trunk/libf/phylmd/cv3p1_closure.f90

    r5274 r5276  
    1919  ! **************************************************************
    2020
     21  USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl  &
     22          , clmci, eps, epsi, epsim1, ginv, hrd, grav
    2123  USE print_control_mod, ONLY: prt_level, lunout
    2224  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     
    3436IMPLICIT NONE
    3537
    36   include "cvthermo.h"
    3738  include "cv3param.h"
    3839  include "YOMCST2.h"
  • LMDZ6/trunk/libf/phylmd/cv3p2_closure.f90

    r5275 r5276  
    1818  ! **************************************************************
    1919
     20  USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl  &
     21          , clmci, eps, epsi, epsim1, ginv, hrd, grav
    2022  USE cvflag_mod_h, ONLY: icvflag_Tpa, cvflag_grav, cvflag_ice, ok_optim_yield, ok_entrain, ok_homo_tend, &
    2123          ok_convstop, ok_intermittent, cvflag_prec_eject, qsat_depends_on_qt, adiab_ascent_mass_flux_depends_on_ejectliq, keepbug_ice_frac
     
    3537IMPLICIT NONE
    3638
    37   include "cvthermo.h"
    3839  include "cv3param.h"
    3940  include "YOMCST2.h"
  • LMDZ6/trunk/libf/phylmd/cv3p_mixing.f90

    r5275 r5276  
    1313! **************************************************************
    1414
     15  USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl  &
     16          , clmci, eps, epsi, epsim1, ginv, hrd, grav
    1517  USE cvflag_mod_h, ONLY: icvflag_Tpa, cvflag_grav, cvflag_ice, ok_optim_yield, ok_entrain, ok_homo_tend, &
    1618          ok_convstop, ok_intermittent, cvflag_prec_eject, qsat_depends_on_qt, adiab_ascent_mass_flux_depends_on_ejectliq, keepbug_ice_frac
     
    2123  IMPLICIT NONE
    2224
    23   include "cvthermo.h"
    2425  include "cv3param.h"
    2526  include "YOMCST2.h"
  • LMDZ6/trunk/libf/phylmd/cv_driver.F90

    r5275 r5276  
    682682SUBROUTINE cv_flag(iflag_ice_thermo)
    683683
     684  USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl  &
     685          , clmci, eps, epsi, epsim1, ginv, hrd, grav
    684686  USE cvflag_mod_h, ONLY: icvflag_Tpa, cvflag_grav, cvflag_ice, ok_optim_yield, ok_entrain, ok_homo_tend, &
    685687          ok_convstop, ok_intermittent, cvflag_prec_eject, qsat_depends_on_qt, adiab_ascent_mass_flux_depends_on_ejectliq, keepbug_ice_frac
     
    699701  !
    700702! si icvflag_Tpa=0, alors la fraction de glace dans l'ascendance adiabatique est
    701   ! fonction de la temperature de l'environnement et la temperature de l'ascendance est 
    702   ! calculee en deux it�rations, une en supposant qu'il n'y a pas de glace et l'autre 
     703  ! fonction de la temperature de l'environnement et la temperature de l'ascendance est
     704  ! calculee en deux it�rations, une en supposant qu'il n'y a pas de glace et l'autre
    703705  ! en ajoutant la glace (ancien sch�ma d'Arnaud Jam).
    704706! si icvflag_Tpa=1, alors la fraction de glace dans l'ascendance adiabatique est
    705   ! fonction de la temperature de l'environnement et la temperature de l'ascendance est 
     707  ! fonction de la temperature de l'environnement et la temperature de l'ascendance est
    706708  ! calculee en une seule iteration.
    707709! si icvflag_Tpa=2, alors la fraction de glace dans l'ascendance adiabatique est
    708   ! fonction de la temperature de l'ascendance et la temperature de l'ascendance est 
     710  ! fonction de la temperature de l'ascendance et la temperature de l'ascendance est
    709711  ! calculee en une seule iteration.
    710   icvflag_Tpa=0 
     712  icvflag_Tpa=0
    711713  call getin_p('icvflag_Tpa', icvflag_Tpa)
    712714
     
    728730          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    729731          , RALPD, RBETD, RGAMD
     732  USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl  &
     733          , clmci, eps, epsi, epsim1, ginv, hrd, grav
    730734IMPLICIT NONE
    731735
     
    735739
    736740
    737   include "cvthermo.h"
    738741
    739742  INTEGER iflag_con
  • LMDZ6/trunk/libf/phylmd/cv_routines.f90

    r5268 r5276  
    33
    44SUBROUTINE cv_param(nd)
     5  USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl  &
     6          , clmci, eps, epsi, epsim1, ginv, hrd, grav
    57  IMPLICIT NONE
    68
     
    7577
    7678SUBROUTINE cv_prelim(len, nd, ndp1, t, q, p, ph, lv, cpn, tv, gz, h, hm)
     79  USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl  &
     80          , clmci, eps, epsi, epsim1, ginv, hrd, grav
    7781  IMPLICIT NONE
    7882
     
    9397  REAL cpx(len, nd)
    9498
    95   include "cvthermo.h"
    9699  include "cvparam.h"
    97100
     
    254257SUBROUTINE cv_undilute1(len, nd, t, q, qs, gz, p, nk, icb, icbmax, tp, tvp, &
    255258    clw)
     259  USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl  &
     260          , clmci, eps, epsi, epsim1, ginv, hrd, grav
    256261  IMPLICIT NONE
    257262
    258   include "cvthermo.h"
    259263  include "cvparam.h"
    260264
     
    481485SUBROUTINE cv_undilute2(nloc, ncum, nd, icb, nk, tnk, qnk, gznk, t, q, qs, &
    482486    gz, p, dph, h, tv, lv, inb, inb1, tp, tvp, clw, hp, ep, sigp, frac)
     487  USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl  &
     488          , clmci, eps, epsi, epsim1, ginv, hrd, grav
    483489  IMPLICIT NONE
    484490
     
    492498  ! FIND THE LEVEL OF NEUTRAL BUOYANCY
    493499  ! ---------------------------------------------------------------------
    494 
    495   include "cvthermo.h"
    496500  include "cvparam.h"
    497501
     
    764768SUBROUTINE cv_closure(nloc, ncum, nd, nk, icb, tv, tvp, p, ph, dph, plcl, &
    765769    cpn, iflag, cbmf)
     770  USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl  &
     771          , clmci, eps, epsi, epsim1, ginv, hrd, grav
    766772  IMPLICIT NONE
    767773
     
    781787  REAL dtpbl(nloc), dtmin(nloc), tvpplcl(nloc), tvaplcl(nloc)
    782788  REAL work(nloc)
    783 
    784   include "cvthermo.h"
    785789  include "cvparam.h"
    786790
     
    847851    h, lv, qnk, hp, tv, tvp, ep, clw, cbmf, m, ment, qent, uent, vent, nent, &
    848852    sij, elij)
     853  USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl  &
     854          , clmci, eps, epsi, epsim1, ginv, hrd, grav
    849855  IMPLICIT NONE
    850856
    851   include "cvthermo.h"
    852857  include "cvparam.h"
    853858
     
    10981103SUBROUTINE cv_unsat(nloc, ncum, nd, inb, t, q, qs, gz, u, v, p, ph, h, lv, &
    10991104    ep, sigp, clw, m, ment, elij, iflag, mp, qp, up, vp, wt, water, evap)
     1105  USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl  &
     1106          , clmci, eps, epsi, epsim1, ginv, hrd, grav
    11001107  IMPLICIT NONE
    1101 
    1102 
    1103   include "cvthermo.h"
    11041108  include "cvparam.h"
    11051109
     
    13011305    ment, qent, uent, vent, nent, elij, tv, tvp, iflag, wd, qprime, tprime, &
    13021306    precip, cbmf, ft, fq, fu, fv, ma, qcondc)
     1307  USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl  &
     1308          , clmci, eps, epsi, epsim1, ginv, hrd, grav
    13031309  IMPLICIT NONE
    13041310
    1305   include "cvthermo.h"
    13061311  include "cvparam.h"
    13071312
  • LMDZ6/trunk/libf/phylmd/cvthermo_mod_h.f90

    r5275 r5276  
    1 !
    2 ! $Header$
    3 !
    4 ! Thermodynamical constants for convectL:
     1! Replaces cvthermo.h
    52
    6       real cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0
    7       real clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl, clmci
    8       real eps, epsi, epsim1
    9       real ginv, hrd
    10       real grav
     3MODULE cvthermo_mod_h
     4  IMPLICIT NONE; PRIVATE
     5  PUBLIC cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl  &
     6          , clmci, eps, epsi, epsim1, ginv, hrd, grav
    117
    12       COMMON /cvthermo/ cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl &
    13                        ,t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl  &
    14                        ,clmci, eps, epsi, epsim1, ginv, hrd, grav
     8  ! Thermodynamical constants for convectL:
     9  REAL cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0
     10  REAL clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl, clmci
     11  REAL eps, epsi, epsim1
     12  REAL ginv, hrd
     13  REAL grav
    1514
    16 !$OMP THREADPRIVATE(/cvthermo/)
     15  !$OMP THREADPRIVATE(cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl  &
     16  !$OMP      , clmci, eps, epsi, epsim1, ginv, hrd, grav)
     17END MODULE cvthermo_mod_h
  • LMDZ6/trunk/libf/phylmdiso/cv30_routines.F90

    r5275 r5276  
    55
    66SUBROUTINE cv30_param(nd, delt)
     7  USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl  &
     8          , clmci, eps, epsi, epsim1, ginv, hrd, grav
    79  IMPLICIT NONE
    810
     
    8587SUBROUTINE cv30_prelim(len, nd, ndp1, t, q, p, ph, lv, cpn, tv, gz, h, hm, &
    8688    th)
     89  USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl  &
     90          , clmci, eps, epsi, epsim1, ginv, hrd, grav
    8791  IMPLICIT NONE
    8892
     
    108112  REAL cpx(len, nd)
    109113
    110   include "cvthermo.h"
    111114  include "cv30param.h"
    112115
     
    389392#endif
    390393
     394  USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl  &
     395          , clmci, eps, epsi, epsim1, ginv, hrd, grav
    391396  IMPLICIT NONE
    392397
     
    404409  ! ----------------------------------------------------------------
    405410
    406   include "cvthermo.h"
    407411  include "cv30param.h"
    408412
     
    11501154#endif
    11511155#endif
     1156  USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl  &
     1157          , clmci, eps, epsi, epsim1, ginv, hrd, grav
    11521158  IMPLICIT NONE
    11531159
     
    11701176  ! ---------------------------------------------------------------------
    11711177
    1172   include "cvthermo.h"
    11731178  include "cv30param.h"
    11741179  include "conema3.h"
     
    16151620SUBROUTINE cv30_closure(nloc, ncum, nd, icb, inb, pbase, p, ph, tv, buoy, &
    16161621    sig, w0, cape, m)
     1622  USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl  &
     1623          , clmci, eps, epsi, epsim1, ginv, hrd, grav
    16171624  IMPLICIT NONE
    16181625
     
    16231630  ! ===================================================================
    16241631
    1625   include "cvthermo.h"
    16261632  include "cv30param.h"
    16271633
     
    18511857#endif
    18521858#endif
     1859  USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl  &
     1860          , clmci, eps, epsi, epsim1, ginv, hrd, grav
    18531861  IMPLICIT NONE
    18541862
     
    18591867  ! ---------------------------------------------------------------------
    18601868
    1861   include "cvthermo.h"
    18621869  include "cv30param.h"
    18631870
     
    26682675#endif
    26692676
     2677  USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl  &
     2678          , clmci, eps, epsi, epsim1, ginv, hrd, grav
    26702679  USE cvflag_mod_h, ONLY: icvflag_Tpa, cvflag_grav, cvflag_ice, ok_optim_yield, ok_entrain, ok_homo_tend, &
    26712680          ok_convstop, ok_intermittent, cvflag_prec_eject, qsat_depends_on_qt, adiab_ascent_mass_flux_depends_on_ejectliq, keepbug_ice_frac
     
    26732682
    26742683
    2675   include "cvthermo.h"
    26762684  include "cv30param.h"
    26772685
     
    34033411#endif
    34043412
     3413  USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl  &
     3414          , clmci, eps, epsi, epsim1, ginv, hrd, grav
    34053415  USE cvflag_mod_h, ONLY: icvflag_Tpa, cvflag_grav, cvflag_ice, ok_optim_yield, ok_entrain, ok_homo_tend, &
    34063416          ok_convstop, ok_intermittent, cvflag_prec_eject, qsat_depends_on_qt, adiab_ascent_mass_flux_depends_on_ejectliq, keepbug_ice_frac
    34073417  IMPLICIT NONE
    34083418
    3409   include "cvthermo.h"
    34103419  include "cv30param.h"
    34113420  include "conema3.h"
     
    63556364                ,cape,ep,hp,icb,inb,clw,nk,t,h,lv &
    63566365                ,epmax_diag)
    6357         implicit none
     6366        USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl  &
     6367          , clmci, eps, epsi, epsim1, ginv, hrd, grav
     6368implicit none
    63586369
    63596370        ! On fait varier epmax en fn de la cape
     
    63626373        ! Toutes les autres variables fn de ep sont calculees plus bas.
    63636374
    6364 INCLUDE "cvthermo.h"
    63656375INCLUDE "cv30param.h"
    63666376INCLUDE "conema3.h"
  • LMDZ6/trunk/libf/phylmdiso/cv3_enthalpmix.F90

    r5274 r5276  
    1818  ! **************************************************************
    1919
     20  USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl  &
     21          , clmci, eps, epsi, epsim1, ginv, hrd, grav
    2022  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
    2123          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     
    4143  ! ===============================================================
    4244
    43   include "cvthermo.h"
    4445  include "YOETHF.h"
    4546
  • LMDZ6/trunk/libf/phylmdiso/cv3_estatmix.F90

    r5274 r5276  
    1919  ! ****************************************************************
    2020
     21  USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl  &
     22          , clmci, eps, epsi, epsim1, ginv, hrd, grav
    2123  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
    2224          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     
    4244  ! ===============================================================
    4345
    44   include "cvthermo.h"
    4546  include "YOETHF.h"
    4647
  • LMDZ6/trunk/libf/phylmdiso/cv3_routines.F90

    r5275 r5276  
    185185SUBROUTINE cv3_incrcount(len, nd, delt, sig)
    186186
    187 USE cvflag_mod_h, ONLY: icvflag_Tpa, cvflag_grav, cvflag_ice, ok_optim_yield, ok_entrain, ok_homo_tend, &
     187USE 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, &
    188190          ok_convstop, ok_intermittent, cvflag_prec_eject, qsat_depends_on_qt, adiab_ascent_mass_flux_depends_on_ejectliq, keepbug_ice_frac
    189191  IMPLICIT NONE
     
    226228SUBROUTINE cv3_prelim(len, nd, ndp1, t, q, p, ph, &
    227229                      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
    228232  IMPLICIT NONE
    229233
     
    249253  REAL cpx(len, nd)
    250254
    251   include "cvthermo.h"
    252255  include "cv3param.h"
    253256
     
    323326#endif
    324327
     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
    325330  USE mod_phys_lmdz_transfert_para, ONLY : bcast
    326331  USE add_phys_tend_mod, ONLY: fl_cor_ebil
     
    344349
    345350  include "cv3param.h"
    346   include "cvthermo.h"
    347351
    348352!inputs:
     
    701705#endif
    702706#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
    703709  IMPLICIT NONE
    704710
     
    716722! ----------------------------------------------------------------
    717723
    718   include "cvthermo.h"
    719724  include "cv3param.h"
    720725
     
    14841489#endif
    14851490#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
    14861493  USE cvflag_mod_h, ONLY: icvflag_Tpa, cvflag_grav, cvflag_ice, ok_optim_yield, ok_entrain, ok_homo_tend, &
    14871494          ok_convstop, ok_intermittent, cvflag_prec_eject, qsat_depends_on_qt, adiab_ascent_mass_flux_depends_on_ejectliq, keepbug_ice_frac
     
    15061513! ---------------------------------------------------------------------
    15071514
    1508   include "cvthermo.h"
    15091515  include "cv3param.h"
    15101516  include "conema3.h"
     
    25132519                       pbase, p, ph, tv, buoy, &
    25142520                       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
    25152523  IMPLICIT NONE
    25162524
     
    25212529! ===================================================================
    25222530
    2523   include "cvthermo.h"
    25242531  include "cv3param.h"
    25252532
     
    27842791#endif
    27852792#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
    27862795  USE cvflag_mod_h, ONLY: icvflag_Tpa, cvflag_grav, cvflag_ice, ok_optim_yield, ok_entrain, ok_homo_tend, &
    27872796          ok_convstop, ok_intermittent, cvflag_prec_eject, qsat_depends_on_qt, adiab_ascent_mass_flux_depends_on_ejectliq, keepbug_ice_frac
     
    27932802! ---------------------------------------------------------------------
    27942803
    2795   include "cvthermo.h"
    27962804  include "cv3param.h"
    27972805
     
    36123620#endif
    36133621#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
    36143624  USE cvflag_mod_h, ONLY: icvflag_Tpa, cvflag_grav, cvflag_ice, ok_optim_yield, ok_entrain, ok_homo_tend, &
    36153625          ok_convstop, ok_intermittent, cvflag_prec_eject, qsat_depends_on_qt, adiab_ascent_mass_flux_depends_on_ejectliq, keepbug_ice_frac
     
    36173627
    36183628
    3619   include "cvthermo.h"
    36203629  include "cv3param.h"
    36213630  include "nuage.h"
     
    47254734#endif
    47264735#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
    47274738  USE cvflag_mod_h, ONLY: icvflag_Tpa, cvflag_grav, cvflag_ice, ok_optim_yield, ok_entrain, ok_homo_tend, &
    47284739          ok_convstop, ok_intermittent, cvflag_prec_eject, qsat_depends_on_qt, adiab_ascent_mass_flux_depends_on_ejectliq, keepbug_ice_frac
    47294740  IMPLICIT NONE
    47304741
    4731   include "cvthermo.h"
    47324742  include "cv3param.h"
    47334743  include "conema3.h"
     
    76157625                 , pbase, p, ph, tv, buoy, sig, w0,iflag &
    76167626                 , 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, &
    76187630          ok_convstop, ok_intermittent, cvflag_prec_eject, qsat_depends_on_qt, adiab_ascent_mass_flux_depends_on_ejectliq, keepbug_ice_frac
    76197631  implicit none
     
    76247636        ! Toutes les autres variables fn de ep sont calculees plus bas.
    76257637
    7626   include "cvthermo.h"
    76277638  include "cv3param.h"
    76287639  include "conema3.h"
  • LMDZ6/trunk/libf/phylmdiso/cv3p_mixing.F90

    r5275 r5276  
    3939#endif
    4040#endif
     41  USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl  &
     42          , clmci, eps, epsi, epsim1, ginv, hrd, grav
    4143  USE cvflag_mod_h, ONLY: icvflag_Tpa, cvflag_grav, cvflag_ice, ok_optim_yield, ok_entrain, ok_homo_tend, &
    4244          ok_convstop, ok_intermittent, cvflag_prec_eject, qsat_depends_on_qt, adiab_ascent_mass_flux_depends_on_ejectliq, keepbug_ice_frac
    4345  IMPLICIT NONE
    4446
    45   include "cvthermo.h"
    4647  include "cv3param.h"
    4748  include "YOMCST2.h"
  • 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
  • LMDZ6/trunk/libf/phylmdiso/cv_routines.f90

    r5268 r5276  
    33
    44SUBROUTINE cv_param(nd)
     5  USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl  &
     6          , clmci, eps, epsi, epsim1, ginv, hrd, grav
    57  IMPLICIT NONE
    68
     
    7577
    7678SUBROUTINE cv_prelim(len, nd, ndp1, t, q, p, ph, lv, cpn, tv, gz, h, hm)
     79  USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl  &
     80          , clmci, eps, epsi, epsim1, ginv, hrd, grav
    7781  IMPLICIT NONE
    7882
     
    9397  REAL cpx(len, nd)
    9498
    95   include "cvthermo.h"
    9699  include "cvparam.h"
    97100
     
    254257SUBROUTINE cv_undilute1(len, nd, t, q, qs, gz, p, nk, icb, icbmax, tp, tvp, &
    255258    clw)
     259  USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl  &
     260          , clmci, eps, epsi, epsim1, ginv, hrd, grav
    256261  IMPLICIT NONE
    257 
    258   include "cvthermo.h"
    259262  include "cvparam.h"
    260263
     
    481484SUBROUTINE cv_undilute2(nloc, ncum, nd, icb, nk, tnk, qnk, gznk, t, q, qs, &
    482485    gz, p, dph, h, tv, lv, inb, inb1, tp, tvp, clw, hp, ep, sigp, frac)
     486  USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl  &
     487          , clmci, eps, epsi, epsim1, ginv, hrd, grav
    483488  IMPLICIT NONE
    484489
     
    492497  ! FIND THE LEVEL OF NEUTRAL BUOYANCY
    493498  ! ---------------------------------------------------------------------
    494 
    495   include "cvthermo.h"
    496499  include "cvparam.h"
    497500
     
    764767SUBROUTINE cv_closure(nloc, ncum, nd, nk, icb, tv, tvp, p, ph, dph, plcl, &
    765768    cpn, iflag, cbmf)
     769  USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl  &
     770          , clmci, eps, epsi, epsim1, ginv, hrd, grav
    766771  IMPLICIT NONE
    767772
     
    782787  REAL work(nloc)
    783788
    784   include "cvthermo.h"
    785789  include "cvparam.h"
    786790
     
    847851    h, lv, qnk, hp, tv, tvp, ep, clw, cbmf, m, ment, qent, uent, vent, nent, &
    848852    sij, elij)
     853  USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl  &
     854          , clmci, eps, epsi, epsim1, ginv, hrd, grav
    849855  IMPLICIT NONE
    850856
    851   include "cvthermo.h"
    852857  include "cvparam.h"
    853858
     
    10981103SUBROUTINE cv_unsat(nloc, ncum, nd, inb, t, q, qs, gz, u, v, p, ph, h, lv, &
    10991104    ep, sigp, clw, m, ment, elij, iflag, mp, qp, up, vp, wt, water, evap)
     1105  USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl  &
     1106          , clmci, eps, epsi, epsim1, ginv, hrd, grav
    11001107  IMPLICIT NONE
    11011108
    1102 
    1103   include "cvthermo.h"
    11041109  include "cvparam.h"
    11051110
     
    13011306    ment, qent, uent, vent, nent, elij, tv, tvp, iflag, wd, qprime, tprime, &
    13021307    precip, cbmf, ft, fq, fu, fv, ma, qcondc)
     1308  USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl  &
     1309          , clmci, eps, epsi, epsim1, ginv, hrd, grav
    13031310  IMPLICIT NONE
    13041311
    1305   include "cvthermo.h"
    13061312  include "cvparam.h"
    13071313
  • LMDZ6/trunk/libf/phylmdiso/cvthermo_mod_h.f90

    r5275 r5276  
    1 link ../phylmd/cvthermo.h
     1link ../phylmd/cvthermo_mod_h.f90
  • LMDZ6/trunk/libf/phylmdiso/lmdz_wake.F90

    r5274 r5276  
    5555          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    5656          , RALPD, RBETD, RGAMD
     57  USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl  &
     58          , clmci, eps, epsi, epsim1, ginv, hrd, grav
    5759  IMPLICIT NONE
    5860  ! ============================================================================
     
    144146  ! Cgw    : vitesse de propagation de onde de gravité
    145147  ! LL     : distance entre 2 poches
    146 
    147   ! -------------------------------------------------------------------------
    148   ! Déclaration de variables
    149   ! -------------------------------------------------------------------------
    150  include "cvthermo.h"
    151148
    152149  ! Arguments en entree
Note: See TracChangeset for help on using the changeset viewer.