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

Turn cvthermo.h into a module

Location:
LMDZ6/trunk/libf/phylmd
Files:
11 edited
1 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
Note: See TracChangeset for help on using the changeset viewer.