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

Timestamp:

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

Author:

lfalletti

Message:

Adding changes for Reprobus

File:

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

LMDZ6/trunk/libf/phylmd/phys_output_mod.F90

@@ -46 +46 @@
     USE vertical_layers_mod, ONLY: ap,bp,preff,presnivs, aps, bps, pseudoalt
     USE time_phylmdz_mod, ONLY: day_ini, itau_phy, start_time, annee_ref, day_ref
-#ifdef REPROBUS
-    USE chem_rep, ONLY: nbnas, tnamenas, ttextnas
-#endif
 #ifdef CPP_XIOS
     ! ug Pour les sorties XIOS
@@ -160 +157 @@
     IF (.NOT. ALLOCATED(o_trac)) ALLOCATE(o_trac(nqtot))
     IF (.NOT. ALLOCATED(o_trac_cum)) ALLOCATE(o_trac_cum(nqtot))
-#ifdef REPROBUS
-    IF (.NOT. ALLOCATED(o_nas)) ALLOCATE(o_nas(nbnas))
-#endif
     ALLOCATE(o_dtr_the(nqtot),o_dtr_con(nqtot),o_dtr_lessi_impa(nqtot))
     ALLOCATE(o_dtr_lessi_nucl(nqtot),o_dtr_insc(nqtot),o_dtr_bcscav(nqtot))
@@ -581 +575 @@
             ENDDO
       ENDIF
-      IF (type_trac=='repr') THEN
-#ifdef REPROBUS
-         DO iiq=1,nbnas
-            o_nas(iiq) = ctrl_out((/ 4, 5, 5, 5, 10, 10, 11, 11, 11, 11 /), &
-                 tnamenas(iiq),ttextnas(iiq), "-", &
-                 (/ '', '', '', '', '', '', '', '', '', '' /))
-         ENDDO
-#endif
-      ENDIF
 
    ENDDO !  iff