Changeset 2136 for LMDZ5/trunk/libf/phylmd/physiq.F90

Timestamp:

Oct 27, 2014, 6:47:03 PM (10 years ago)

Author:

lguez

Message:

Add the module from ecmwf model for water production by methane oxydation
and photolysis. Activated if def file option: ok_qch4=y.
LG, D.Cugnet

File:

• LMDZ5/trunk/libf/phylmd/physiq.F90 (modified) (1 diff)

LMDZ5/trunk/libf/phylmd/physiq.F90

@@ -3495 +3495 @@
           , fs_bound, fq_bound )
   END IF
+
+  !DC Calcul de la tendance due au methane
+  IF(ok_qch4) THEN
+     CALL METHOX(1,klon,klon,klev,q_seri,d_q_ch4,pplay)
+  ! ajout de la tendance d'humidite due au methane
+     CALL add_phys_tend(du0,dv0,dt0,d_q_ch4*dtime,dql0,'q_ch4')
+  END IF
   !
   !