Ignore:
Timestamp:
Nov 29, 2019, 9:08:29 AM (5 years ago)
Author:
jghattas
Message:

Revert commit [3604]. This is only done temporary because we need to make a correction for Jean-Zay and to have a revision without these changes to go into IPSLCM6.1.10.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ6/branches/IPSLCM6.0.15/libf/phylmd/physiq_mod.F90

    r3604 r3607  
    331331    !======================================================================
    332332    LOGICAL, SAVE :: ok_volcan ! pour activer les diagnostics volcaniques
    333     !$OMP THREADPRIVATE(ok_volcan)
    334     INTEGER, SAVE :: flag_volc_surfstrat ! pour imposer le cool/heat rate à la surf/strato
    335     !$OMP THREADPRIVATE(flag_volc_surfstrat)
    336333    LOGICAL ok_cvl  ! pour activer le nouveau driver pour convection KE
    337334    PARAMETER (ok_cvl=.TRUE.)
    338335    LOGICAL ok_gust ! pour activer l'effet des gust sur flux surface
    339336    PARAMETER (ok_gust=.FALSE.)
    340     INTEGER iflag_radia     ! active ou non le rayonnement (MPL)
    341     SAVE iflag_radia
     337    integer iflag_radia     ! active ou non le rayonnement (MPL)
     338    save iflag_radia
    342339    !$OMP THREADPRIVATE(iflag_radia)
    343340    !======================================================================
     
    12411238            fact_cldcon, facttemps,ok_newmicro,iflag_radia, &
    12421239            iflag_cld_th,iflag_ratqs,ratqsbas,ratqshaut,tau_ratqs, &
    1243             ok_ade, ok_aie, ok_alw, ok_cdnc, ok_volcan, flag_volc_surfstrat, aerosol_couple, &
     1240            ok_ade, ok_aie, ok_alw, ok_cdnc, ok_volcan, aerosol_couple, &
    12441241            chemistry_couple, flag_aerosol, flag_aerosol_strat,         &
    12451242            flag_aer_feedback, new_aod, &
     
    39163913               t_seri,q_seri,wo, &
    39173914               cldfrarad, cldemirad, cldtaurad, &
    3918                ok_ade.OR.flag_aerosol_strat.GT.0, ok_aie, ok_volcan, flag_volc_surfstrat, &
     3915               ok_ade.OR.flag_aerosol_strat.GT.0, ok_aie, ok_volcan, &
    39193916               flag_aerosol, flag_aerosol_strat, flag_aer_feedback, &
    39203917               tau_aero, piz_aero, cg_aero, &
     
    40023999                     t_seri,q_seri,wo, &
    40034000                     cldfrarad, cldemirad, cldtaurad, &
    4004                      ok_ade.OR.flag_aerosol_strat.GT.0, ok_aie, ok_volcan, flag_volc_surfstrat, &
     4001                     ok_ade.OR.flag_aerosol_strat.GT.0, ok_aie, ok_volcan, &
    40054002                     flag_aerosol, flag_aerosol_strat, flag_aer_feedback, &
    40064003                     tau_aero, piz_aero, cg_aero, &
Note: See TracChangeset for help on using the changeset viewer.