Changeset 4636


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

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

Location:
LMDZ6/trunk/libf/phylmd
Files:
4 edited

Legend:

Unmodified
Added
Removed

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

    r4523 r4636  
    1919   PUBLIC :: nbtr_bin, nbtr_sulgas                         !--- Number of aerosols bins and sulfur gases for StratAer model
    2020   PUBLIC :: id_OCS_strat, id_SO2_strat, id_H2SO4_strat, id_BIN01_strat, id_TEST_strat
     21#endif
     22#ifdef REPROBUS
     23   PUBLIC :: nbtr_bin, nbtr_sulgas
     24   PUBLIC :: id_OCS_strat, id_SO2_strat, id_H2SO4_strat, id_BIN01_strat, &
     25             id_TEST_strat
    2126#endif
    2227
    … …  
    118123  INTEGER, SAVE ::  id_OCS_strat, id_SO2_strat, id_H2SO4_strat, id_BIN01_strat, id_TEST_strat
    119124!$OMP THREADPRIVATE(id_OCS_strat, id_SO2_strat, id_H2SO4_strat, id_BIN01_strat, id_TEST_strat)
     125#endif
     126#ifdef REPROBUS
     127  INTEGER, SAVE ::  nbtr_bin, nbtr_sulgas
     128!$OMP THREADPRIVATE(nbtr_bin, nbtr_sulgas)
     129  INTEGER, SAVE ::  id_OCS_strat, id_SO2_strat, id_H2SO4_strat, id_BIN01_strat,&
     130                    id_TEST_strat
     131!$OMP THREADPRIVATE(id_OCS_strat, id_SO2_strat, id_H2SO4_strat, id_BIN01_strat)
     132!$OMP THREADPRIVATE(id_TEST_strat)
    120133#endif
    121134

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

    r4601 r4636  
    616616!$OMP THREADPRIVATE(budg_sed_part)
    617617#endif
     618#ifdef REPROBUS
     619      REAL,SAVE,ALLOCATABLE    :: d_q_emiss(:,:)
     620!$OMP THREADPRIVATE(d_q_emiss)
     621#endif
    618622
    619623CONTAINS

  • 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

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

    r4124 r4636  
    9494            t_seri,  & !argument phytrac (meme nom)
    9595            pplay,   & !argument phytrac (meme nom)
     96            paprs,   &
    9697            pphi,    & !argument phytrac (meme nom)
    9798            pphis,   & !argument phytrac (meme nom)
Note: See TracChangeset for help on using the changeset viewer.