Changeset 2136 for LMDZ5/trunk/libf/phylmd/phys_output_write_mod.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/phys_output_write_mod.F90 (modified) (3 diffs)

LMDZ5/trunk/libf/phylmd/phys_output_write_mod.F90

@@ -130 +130 @@
          o_duvdf, o_dvvdf, o_duoro, o_dvoro, &
          o_dtoro, o_dulif, o_dvlif, o_dtlif, &
-         o_duhin, o_dvhin, o_dthin, o_rsu, &
+         o_duhin, o_dvhin, o_dthin, o_dqch4, o_rsu, &
          o_rsd, o_rlu, o_rld, o_rsucs, o_rsdcs, &
          o_rlucs, o_rldcs, o_tnt, o_tntr, &
@@ -217 +217 @@
          d_v_vdf, d_u_oro, d_v_oro, d_t_oro, d_u_lif, &
          d_v_lif, d_t_lif, d_u_hin, d_v_hin, d_t_hin, &
-         pmfd, pmfu, ref_liq, ref_ice, rhwriteSTD
+         d_q_ch4, pmfd, pmfu, ref_liq, ref_ice, rhwriteSTD
 
     USE phys_output_var_mod, only: vars_defined, snow_o, zfra_o, bils_diss, &
@@ -1153 +1153 @@
        end IF
 
+       IF (ok_qch4) then
+          CALL histwrite_phy(o_dqch4, d_q_ch4 / pdtphys)
+       ENDIF
+
        CALL histwrite_phy(o_rsu, swup)
        CALL histwrite_phy(o_rsd, swdn)