Ignore:
Timestamp:
Jun 1, 2018, 5:52:22 PM (6 years ago)
Author:
acozic
Message:

merge with trunk 3338
Add a flag chemistry_couple

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/branches/IPSLCM5A2.1/libf/dynphy_lonlat/phylmd/etat0phys_netcdf.F90

    r2601 r3340  
    108108  INTEGER :: iflag_radia, iflag_cldcon, iflag_ratqs
    109109  REAL    :: ratqsbas, ratqshaut, tau_ratqs
    110   LOGICAL :: ok_ade, ok_aie, ok_cdnc, aerosol_couple
     110  LOGICAL :: ok_ade, ok_aie, ok_cdnc
     111  LOGICAL :: aerosol_couple, chemistry_couple
    111112  INTEGER :: flag_aerosol
    112113  INTEGER :: flag_aerosol_strat
    … …  
    123124! Physics configuration
    124125!*******************************************************************************
    125   CALL conf_phys(  ok_journe, ok_mensuel, ok_instan, ok_hf, ok_LES,     &
    126                    callstats,                                           &
    127                    solarlong0,seuil_inversion,                          &
    128                    fact_cldcon, facttemps,ok_newmicro,iflag_radia,      &
    129                    iflag_cldcon,                                        &
    130                    iflag_ratqs,ratqsbas,ratqshaut,tau_ratqs,            &
    131                    ok_ade, ok_aie, ok_cdnc, aerosol_couple,             &
    132                    flag_aerosol, flag_aerosol_strat, new_aod,           &
    133                    bl95_b0, bl95_b1,                                    &
    134                    read_climoz,                                         &
     126  CALL conf_phys(  ok_journe, ok_mensuel, ok_instan, ok_hf, ok_LES,           &
     127                   callstats,                                                 &
     128                   solarlong0,seuil_inversion,                                &
     129                   fact_cldcon, facttemps,ok_newmicro,iflag_radia,            &
     130                   iflag_cldcon,                                              &
     131                   iflag_ratqs,ratqsbas,ratqshaut,tau_ratqs,                  &
     132                   ok_ade, ok_aie, ok_cdnc, aerosol_couple, chemistry_couple  &
     133                   flag_aerosol, flag_aerosol_strat, new_aod,                 &
     134                   bl95_b0, bl95_b1,                                          &
     135                   read_climoz,                                               &
    135136                   alp_offset)
    136137  CALL phys_state_var_init(read_climoz)
Note: See TracChangeset for help on using the changeset viewer.