Ignore:
Timestamp:
Jul 12, 2023, 11:31:50 PM (19 months ago)
Author:
dcugnet
Message:

StratAer? commit, N. Lebas

Location:
LMDZ6/trunk/libf/phylmdiso
Files:
1 added
1 edited

Legend:

Unmodified
Added
Removed

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

    r4619 r4625  
    13251325   
    13261326    REAL pi
     1327    INTEGER ieru
    13271328
    13281329    pi = 4. * ATAN(1.)
    … …  
    61436144    !DC Calcul de la tendance due au methane
    61446145    IF (ok_qch4) THEN
    6145        CALL METHOX(1,klon,klon,klev,q_seri,d_q_ch4,pplay)
     6146       CALL stratH2O_methox(debut,paprs,d_q_ch4)
     6147!      d_q_ch4: H2O source in ppmv/sec - ecmwf routine METHOX
     6148!       CALL METHOX(1,klon,klon,klev,q_seri,d_q_ch4,pplay)
    61466149       ! ajout de la tendance d'humidite due au methane
    61476150       d_q_ch4_dtime(:,:) = d_q_ch4(:,:)*phys_tstep
Note: See TracChangeset for help on using the changeset viewer.