Changeset 3362 for LMDZ6/trunk

Timestamp:

Jul 6, 2018, 9:25:27 AM (6 years ago)

Author:

oboucher

Message:

removing two write statements

File:

• LMDZ6/trunk/libf/dyn3d_common/infotrac.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/dyn3d_common/infotrac.F90

@@ -686 +686 @@
     WRITE(lunout,*) 'iqpere=',iqpere
     WRITE(lunout,*) 'iqfils=',iqfils
-    WRITE(lunout,*) 'infotrac'
 
 ! Calculer le nombre de descendants à partir de iqfils et de nbfils
@@ -705 +704 @@
         endif !if (ipere.gt.0) then
       enddo !do while (continu)    
-      WRITE(lunout,*) iq
       WRITE(lunout,*) 'Le traceur ',iq,', appele ',trim(tnom_0(iq)),' est un traceur de generation: ',generation
     enddo !DO iq=1,nqtot