Ignore:
Timestamp:
Oct 28, 2024, 1:47:34 PM (4 days ago)
Author:
abarral
Message:

Turn tracstoke.h conema3.h cv30_routines.f90 cv30param.h into modules

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r5276 r5283  
    1111  USE ioipsl_getin_p_mod, ONLY : getin_p
    1212  use mod_phys_lmdz_para
    13 
     13  USE conema3_mod_h
    1414  IMPLICIT NONE
    1515
    … …  
    3838
    3939  include "cv3param.h"
    40   include "conema3.h"
    4140
    4241  INTEGER, INTENT(IN)              :: nd
    … …  
    14931492  USE cvflag_mod_h, ONLY: icvflag_Tpa, cvflag_grav, cvflag_ice, ok_optim_yield, ok_entrain, ok_homo_tend, &
    14941493          ok_convstop, ok_intermittent, cvflag_prec_eject, qsat_depends_on_qt, adiab_ascent_mass_flux_depends_on_ejectliq, keepbug_ice_frac
     1494  USE conema3_mod_h
    14951495  IMPLICIT NONE
    14961496
    … …  
    15141514
    15151515  include "cv3param.h"
    1516   include "conema3.h"
    15171516  include "YOMCST2.h"
    15181517
    … …  
    47344733#endif
    47354734#endif
    4736   USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl  &
     4735USE conema3_mod_h
     4736    USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl  &
    47374737          , clmci, eps, epsi, epsim1, ginv, hrd, grav
    47384738  USE cvflag_mod_h, ONLY: icvflag_Tpa, cvflag_grav, cvflag_ice, ok_optim_yield, ok_entrain, ok_homo_tend, &
    … …  
    47414741
    47424742  include "cv3param.h"
    4743   include "conema3.h"
    47444743
    47454744!inputs:
    … …  
    76257624                 , pbase, p, ph, tv, buoy, sig, w0,iflag &
    76267625                 , epmax_diag)
    7627         USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl  &
     7626USE conema3_mod_h
     7627          USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl  &
    76287628          , clmci, eps, epsi, epsim1, ginv, hrd, grav
    76297629  USE cvflag_mod_h, ONLY: icvflag_Tpa, cvflag_grav, cvflag_ice, ok_optim_yield, ok_entrain, ok_homo_tend, &
    … …  
    76377637
    76387638  include "cv3param.h"
    7639   include "conema3.h"
    76407639
    76417640! inputs:
Note: See TracChangeset for help on using the changeset viewer.