Ignore:
Timestamp:
Jul 29, 2024, 12:37:08 PM (3 months ago)
Author:
abarral
Message:

Put cvthermo.h, cv30param.h, cv3param.h into modules

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Amaury_dev/libf/phylmdiso/cv_driver.F90

    r5140 r5141  
    4242#endif
    4343#endif
     44USE lmdz_cv30, ONLY: cv30_param, cv30_prelim, cv30_feed, cv30_undilute1, cv30_trigger, cv30_compress, cv30_undilute2, &
     45          cv30_closure, cv30_epmax_fn_cape, cv30_mixing, cv30_unsat, cv30_yield, cv30_tracer, cv30_uncompress
     46
    4447  IMPLICIT NONE
    4548
    … …  
    12611264! ==================================================================
    12621265SUBROUTINE cv_thermo(iflag_con)
     1266  USE lmdz_cvthermo
     1267
    12631268  IMPLICIT NONE
    12641269
    … …  
    12681273
    12691274  include "YOMCST.h"
    1270   include "cvthermo.h"
    12711275
    12721276  INTEGER iflag_con
Note: See TracChangeset for help on using the changeset viewer.