Changeset 4625 for LMDZ6/trunk/libf/phylmdiso

Timestamp:

Jul 12, 2023, 11:31:50 PM (15 months ago)

Author:

dcugnet

Message:

StratAer? commit, N. Lebas

Location:

LMDZ6/trunk/libf/phylmdiso

Files:

• physiq_mod.F90 (modified) (2 diffs)
• stratH2O_methox.F90 (added)

LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90

@@ -1325 +1325 @@
     
     REAL pi
+    INTEGER ieru
 
     pi = 4. * ATAN(1.)
@@ -6143 +6144 @@
     !DC Calcul de la tendance due au methane
     IF (ok_qch4) THEN
-       CALL METHOX(1,klon,klon,klev,q_seri,d_q_ch4,pplay)
+       CALL stratH2O_methox(debut,paprs,d_q_ch4)
+!      d_q_ch4: H2O source in ppmv/sec - ecmwf routine METHOX
+!       CALL METHOX(1,klon,klon,klev,q_seri,d_q_ch4,pplay)
        ! ajout de la tendance d'humidite due au methane
        d_q_ch4_dtime(:,:) = d_q_ch4(:,:)*phys_tstep