Ignore:
Timestamp:
Oct 25, 2024, 4:16:13 PM (22 hours ago)
Author:
abarral
Message:

Turn cvflag.h into a module

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r5271 r5275  
    26682668#endif
    26692669
     2670  USE cvflag_mod_h, ONLY: icvflag_Tpa, cvflag_grav, cvflag_ice, ok_optim_yield, ok_entrain, ok_homo_tend, &
     2671          ok_convstop, ok_intermittent, cvflag_prec_eject, qsat_depends_on_qt, adiab_ascent_mass_flux_depends_on_ejectliq, keepbug_ice_frac
    26702672  IMPLICIT NONE
    26712673
    … …  
    26732675  include "cvthermo.h"
    26742676  include "cv30param.h"
    2675   include "cvflag.h"
    26762677
    26772678  ! inputs:
    … …  
    34023403#endif
    34033404
     3405  USE cvflag_mod_h, ONLY: icvflag_Tpa, cvflag_grav, cvflag_ice, ok_optim_yield, ok_entrain, ok_homo_tend, &
     3406          ok_convstop, ok_intermittent, cvflag_prec_eject, qsat_depends_on_qt, adiab_ascent_mass_flux_depends_on_ejectliq, keepbug_ice_frac
    34043407  IMPLICIT NONE
    34053408
    34063409  include "cvthermo.h"
    34073410  include "cv30param.h"
    3408   include "cvflag.h"
    34093411  include "conema3.h"
    34103412
Note: See TracChangeset for help on using the changeset viewer.