Changeset 6194


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

Move variable ok_daily_climoz

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/dynphy_lonlat/phylmd/etat0phys_netcdf.f90

    r6188 r6194  
    9191  USE regr_horiz_time_climoz_m, ONLY: regr_horiz_time_climoz
    9292  USE indice_sol_mod
    93   USE conf_phys_m, ONLY: conf_phys, read_climoz
     93  USE conf_phys_m, ONLY: conf_phys, read_climoz, ok_daily_climoz
    9494  USE init_ssrf_m, ONLY: start_init_subsurf
    9595  USE phys_state_var_mod, ONLY: beta_aridity, delta_tsurf, awake_dens, cv_gen, &

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

    r6159 r6194  
    5050          , NSW, iflag_albedo                                          &
    5151          , ok_chlorophyll, ok_conserv_q, adjust_tropopause            &
    52           , ok_daily_climoz, ok_all_xml, ok_lwoff                      &
     52          , ok_all_xml, ok_lwoff                      &
    5353          , iflag_phytrac, ok_new_lscp, ok_bs, ok_rad_bs               &
    5454          , iflag_thermals, nsplit_thermals                            &
    … …  
    149149  LOGICAL :: ok_conserv_q
    150150  LOGICAL :: adjust_tropopause
    151   LOGICAL :: ok_daily_climoz
    152151  LOGICAL :: ok_new_lscp
    153152  LOGICAL :: ok_bs, ok_rad_bs
    … …  
    215214  !$OMP      , NSW, iflag_albedo                                          &
    216215  !$OMP      , ok_chlorophyll, ok_conserv_q, adjust_tropopause             &
    217   !$OMP      , ok_daily_climoz, ok_all_xml, ok_lwoff                      &
     216  !$OMP      , ok_all_xml, ok_lwoff                      &
    218217  !$OMP      , iflag_phytrac, ok_new_lscp, ok_bs, ok_rad_bs               &
    219218  !$OMP      , iflag_thermals, nsplit_thermals              &

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

    r6186 r6194  
    6161    !     climatology and the daylight climatology
    6262    !$OMP THREADPRIVATE(read_climoz)
     63
     64    LOGICAL, SAVE, protected:: ok_daily_climoz
     65    !$OMP THREADPRIVATE(ok_daily_climoz)
    6366
    6467CONTAINS

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

    r6193 r6194  
    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
     69    USE conf_phys_m , ONLY : flag_aerosol, read_climoz, ok_daily_climoz
    7070    USE conf_phys_m , ONLY : flag_bc_internal_mixture
    7171    USE conf_phys_m , ONLY : solarlong0,alp_offset,flag_aer_feedback,flag_aerosol_strat

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

    r6193 r6194  
    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
     40    USE conf_phys_m , ONLY : flag_aerosol, read_climoz, ok_daily_climoz
    4141    USE conf_phys_m , ONLY : flag_bc_internal_mixture
    4242    USE conf_phys_m , ONLY : solarlong0,alp_offset,flag_aer_feedback,flag_aerosol_strat
Note: See TracChangeset for help on using the changeset viewer.