Changeset 3125 for LMDZ6/trunk/libf/phylmd/phys_output_write_mod.F90

Timestamp:

Dec 14, 2017, 8:55:21 AM (7 years ago)

Author:

acozic

Message:

Update some routines to coupled LMDZ6 with REPROBUS

File:

• LMDZ6/trunk/libf/phylmd/phys_output_write_mod.F90 (modified) (3 diffs)

LMDZ6/trunk/libf/phylmd/phys_output_write_mod.F90

@@ -168 +168 @@
          o_uxv, o_vxq, o_vxT, o_wxq, o_vxphi, &
          o_wxT, o_uxu, o_vxv, o_TxT, o_trac, &
+#ifdef REPROBUS
+         o_nas, &
+#endif
          o_dtr_vdf, o_dtr_the, o_dtr_con, &
          o_dtr_lessi_impa, o_dtr_lessi_nucl, &
@@ -316 +319 @@
          surf_PM25_sulf, tau_strat_550, tausum_strat, &
          vsed_aer, tau_strat_1020, f_r_wet
+#endif
+
+#ifdef REPROBUS
+    USE CHEM_REP, ONLY : nas, nbnas, tnamenas, ttextnas
 #endif
 
@@ -2051 +2058 @@
                 ENDDO
              ENDIF
+#ifndef REPROBUS
              CALL histwrite_phy(o_trac_cum(iq-nqo), zx_tmp_fi2d)
+#endif
             ENDIF
           ENDDO
        ENDIF
+
+       IF (type_trac == 'repr') THEN
+#ifdef REPROBUS
+           DO iq=1,nbnas
+             CALL histwrite_phy(o_nas(iq), nas(:,:,iq))
+           ENDDO
+#endif
+       ENDIF
+
        ENDIF   !(iflag_phytrac==1)