Ignore:
Timestamp:
Jul 20, 2023, 12:09:01 PM (11 months ago)
Author:
lfalletti
Message:

REPROBUS update: to use a copy of StratAer? emission (volcanic eruption)

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmd/physiq_mod.F90

    r4629 r4636  
    112112    USE chem_rep, ONLY: Init_chem_rep_xjour, d_q_rep, d_ql_rep, d_qi_rep, &
    113113                        ptrop, ttrop, ztrop, gravit, itroprep, Z1, Z2, fac, B
     114    USE strataer_local_var_mod
     115    USE strataer_emiss_mod, ONLY: strataer_emiss_init
    114116#endif
    115117#if defined INCA || defined REPROBUS
    … …  
    13451347       IF (read_climoz>=1 .AND. create_etat0_limit .AND. grid_type==unstructured) &
    13461348          CALL regr_horiz_time_climoz(read_climoz,ok_daily_climoz)
     1349
     1350#ifdef REPROBUS
     1351       CALL strataer_init
     1352       CALL strataer_emiss_init
     1353#endif
    13471354
    13481355#ifdef CPP_StratAer
Note: See TracChangeset for help on using the changeset viewer.