Changeset 6198


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

Remove argument adjust of open_climoz

Instead, in open_climoz, use adjust_tropopause from module
conf_phys_m.

Location:
LMDZ6/trunk/libf
Files:
4 edited

Legend:

Unmodified
Added
Removed

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

    r6197 r6198  
    6969
    7070    LOGICAL, SAVE, protected:: adjust_tropopause
     71    ! tropopause adjustement required
    7172    !$OMP THREADPRIVATE(adjust_tropopause)
    7273

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

    r6196 r6198  
    99  !-------------------------------------------------------------------------------
    1010  !
    11   SUBROUTINE open_climoz(ncid, press_in_cen, time_in, adjust)
     11  SUBROUTINE open_climoz(ncid, press_in_cen, time_in)
    1212    !
    1313    !-------------------------------------------------------------------------------
    1414    USE netcdf95, ONLY: nf95_open, nf95_close, nf95_gw_var, nf95_inq_varid
    1515    USE netcdf,   ONLY: nf90_nowrite
    16     use conf_phys_m, only: ok_daily_climoz
     16    use conf_phys_m, only: ok_daily_climoz, adjust_tropopause
    1717    use mod_phys_lmdz_omp_data, only: is_omp_root
    1818    USE mod_phys_lmdz_mpi_data,      ONLY: is_mpi_root
    … …  
    3030    REAL, allocatable, intent(out):: press_in_cen(:) !--- at cells centers
    3131    REAL, allocatable, intent(out):: time_in(:)      !--- records times, in days since Jan. 1st
    32     LOGICAL, INTENT(IN) :: adjust    !--- tropopause adjustement required
    3332    !   pressure levels press_in_cen/edg are in Pa a,d strictly ascending order.
    3433    !   time_in is only used for monthly files (14 records)
    … …  
    7776
    7877       !--- MESSAGE ABOUT OPTIONAL STRETCHING FOR TROPOPAUSES MATCHING
    79        IF(adjust) THEN
     78       IF(adjust_tropopause) THEN
    8079          WRITE(lunout,*)TRIM(sub)//': Adjusting O3 field to match gcm tropopause.'
    8180       ELSE

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

    r6197 r6198  
    21022102
    21032103       IF (read_climoz >= 1) CALL open_climoz(ncid_climoz, press_cen_climoz,   &
    2104             time_climoz, adjust_tropopause)
     2104            time_climoz)
    21052105       !
    21062106       !IM betaCRF

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

    r6197 r6198  
    22412241
    22422242       IF (read_climoz >= 1) CALL open_climoz(ncid_climoz, press_cen_climoz,   &
    2243            time_climoz, adjust_tropopause)
     2243           time_climoz)
    22442244       !
    22452245       !IM betaCRF
Note: See TracChangeset for help on using the changeset viewer.