Changeset 6197


Ignore:
Timestamp:
Apr 23, 2026, 5:31:06 PM (11 days ago)
Author:
lguez
Message:

Move variable adjust_tropopause

From module clesphys_mod_h to module conf_phys_m, where it is
defined, and where we can give it the attribute protected.

Location:
LMDZ6/trunk/libf
Files:
5 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmd/clesphys_mod_h.f90

    r6194 r6197  
    4949          , ok_plane_h2o, ok_plane_contrail                            &
    5050          , NSW, iflag_albedo                                          &
    51           , ok_chlorophyll, ok_conserv_q, adjust_tropopause            &
     51          , ok_chlorophyll, ok_conserv_q            &
    5252          , ok_all_xml, ok_lwoff                      &
    5353          , iflag_phytrac, ok_new_lscp, ok_bs, ok_rad_bs               &
    … …  
    148148  LOGICAL :: ok_qch4
    149149  LOGICAL :: ok_conserv_q
    150   LOGICAL :: adjust_tropopause
    151150  LOGICAL :: ok_new_lscp
    152151  LOGICAL :: ok_bs, ok_rad_bs
    … …  
    213212  !$OMP      , ok_plane_h2o, ok_plane_contrail                            &
    214213  !$OMP      , NSW, iflag_albedo                                          &
    215   !$OMP      , ok_chlorophyll, ok_conserv_q, adjust_tropopause             &
     214  !$OMP      , ok_chlorophyll, ok_conserv_q             &
    216215  !$OMP      , ok_all_xml, ok_lwoff                      &
    217216  !$OMP      , iflag_phytrac, ok_new_lscp, ok_bs, ok_rad_bs               &

  • LMDZ6/trunk/libf/phylmd/conf_phys_m.f90

    r6196 r6197  
    6767    ! calendar dependent number of days
    6868    !$OMP THREADPRIVATE(ok_daily_climoz)
     69
     70    LOGICAL, SAVE, protected:: adjust_tropopause
     71    !$OMP THREADPRIVATE(adjust_tropopause)
    6972
    7073CONTAINS

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

    r6192 r6197  
    3535    USE lmdz_gwd_ini, ONLY: ok_orodr, ok_orolf, ok_gwd_rando
    3636    USE conf_phys_m, ONLY : aerosol_couple, ok_ade, ok_aie, ok_volcan, &
    37          flag_aerosol, flag_aerosol_strat, ok_cdnc, read_climoz
     37         flag_aerosol, flag_aerosol_strat, ok_cdnc, read_climoz, &
     38         adjust_tropopause
    3839    USE phys_output_ctrlout_mod, ONLY: o_phis, o_aire, is_ter, is_lic, is_oce, &
    3940         o_longitude, o_latitude, &

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

    r6196 r6197  
    6767    USE conf_phys_m , ONLY : aerosol_couple
    6868    USE conf_phys_m , ONLY : chemistry_couple
    69     USE conf_phys_m , ONLY : flag_aerosol, read_climoz, ok_daily_climoz
     69    USE conf_phys_m , ONLY : flag_aerosol, read_climoz, ok_daily_climoz, &
     70         adjust_tropopause
    7071    USE conf_phys_m , ONLY : flag_bc_internal_mixture
    7172    USE conf_phys_m , ONLY : solarlong0,alp_offset,flag_aer_feedback,flag_aerosol_strat

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

    r6196 r6197  
    3838    USE conf_phys_m , ONLY : aerosol_couple
    3939    USE conf_phys_m , ONLY : chemistry_couple
    40     USE conf_phys_m , ONLY : flag_aerosol, read_climoz, ok_daily_climoz
     40    USE conf_phys_m , ONLY : flag_aerosol, read_climoz, ok_daily_climoz, &
     41         adjust_tropopause
    4142    USE conf_phys_m , ONLY : flag_bc_internal_mixture
    4243    USE conf_phys_m , ONLY : solarlong0,alp_offset,flag_aer_feedback,flag_aerosol_strat
Note: See TracChangeset for help on using the changeset viewer.