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/phylmd/cv_driver.F90

    r5140 r5141  
    1212
    1313  USE dimphy
     14  USE lmdz_cv30, ONLY: cv30_param, cv30_prelim, cv30_feed, cv30_undilute1, cv30_trigger, cv30_compress, cv30_undilute2, &
     15          cv30_closure, cv30_epmax_fn_cape, cv30_mixing, cv30_unsat, cv30_yield, cv30_tracer, cv30_uncompress
     16
    1417  IMPLICIT NONE
    1518
    … …  
    714717! ==================================================================
    715718SUBROUTINE cv_thermo(iflag_con)
     719  USE lmdz_cvthermo
     720
    716721  IMPLICIT NONE
    717722
    … …  
    721726
    722727  include "YOMCST.h"
    723   include "cvthermo.h"
    724728
    725729  INTEGER iflag_con
Note: See TracChangeset for help on using the changeset viewer.