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

Timestamp:

Apr 20, 2020, 12:13:34 PM (4 years ago)

Author:

lfalletti

Message:

Adding changes for Reprobus

File:

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

LMDZ6/trunk/libf/phylmd/phys_output_write_mod.F90

@@ -172 +172 @@
          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, &
@@ -331 +328 @@
          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
 
@@ -2267 +2260 @@
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
        IF (iflag_phytrac == 1 ) then
-         IF (type_trac == 'lmdz' .OR. type_trac == 'repr' .OR. type_trac == 'coag') THEN
+         IF (type_trac == 'lmdz' .OR. type_trac == 'coag') THEN
            DO iq=nqo+1, nqtot
              !--3D fields
@@ -2292 +2285 @@
                 ENDDO
              ENDIF
-#ifndef REPROBUS
              CALL histwrite_phy(o_trac_cum(iq-nqo), zx_tmp_fi2d)
-#endif
            ENDDO !--iq
          ENDIF   !--type_trac
@@ -2322 +2313 @@
          ENDIF !--type_trac co2i
 
-         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)