Changeset 6193


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

Remove argument read_climoz of ozonecm

Instead, in ozonecm, use read_climoz from module conf_phys_m.

Location:
LMDZ6/trunk/libf
Files:
3 edited

Legend:

Unmodified
Added
Removed

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

    r5268 r6193  
    66contains
    77
    8   function ozonecm(rlat, paprs,read_climoz, rjour)
     8  function ozonecm(rlat, paprs, rjour)
    99
    1010    ! The ozone climatology is based on an analytic formula which fits the
    … …  
    2323    USE dimphy, only: klon, klev
    2424    use assert_m, only: assert
     25    use conf_phys_m, only: read_climoz
    2526
    2627    REAL, INTENT (IN) :: rlat(:) ! (klon)
    2728    REAL, INTENT (IN) :: paprs(:, :) ! (klon,klev+1)
    2829    REAL, INTENT (IN) :: rjour
    29     INTEGER, INTENT (IN) :: read_climoz
    3030
    3131    REAL ozonecm(klon,klev)

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

    r6192 r6193  
    24812481          ENDIF
    24822482
    2483           wo(:,:,1)=ozonecm(latitude_deg, paprs,read_climoz,rjour=zzz)
     2483          wo(:,:,1)=ozonecm(latitude_deg, paprs,rjour=zzz)
    24842484          IF (CPPKEY_REPROBUS) THEN
    24852485             ptrop=dyn_tropopause(t_seri, ztsol, paprs, pplay, rot)/100.

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

    r6192 r6193  
    28182818          ENDIF
    28192819
    2820           wo(:,:,1)=ozonecm(latitude_deg, paprs,read_climoz,rjour=zzz)
     2820          wo(:,:,1)=ozonecm(latitude_deg, paprs,rjour=zzz)
    28212821IF (CPPKEY_REPROBUS) THEN
    28222822          ptrop=dyn_tropopause(t_seri, ztsol, paprs, pplay, rot)/100.
Note: See TracChangeset for help on using the changeset viewer.