Changeset 3362


Ignore:
Timestamp:
Jul 6, 2018, 9:25:27 AM (6 years ago)
Author:
oboucher
Message:

removing two write statements

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/dyn3d_common/infotrac.F90

    r3361 r3362  
    686686    WRITE(lunout,*) 'iqpere=',iqpere
    687687    WRITE(lunout,*) 'iqfils=',iqfils
    688     WRITE(lunout,*) 'infotrac'
    689688
    690689! Calculer le nombre de descendants à partir de iqfils et de nbfils
    … …  
    705704        endif !if (ipere.gt.0) then
    706705      enddo !do while (continu)   
    707       WRITE(lunout,*) iq
    708706      WRITE(lunout,*) 'Le traceur ',iq,', appele ',trim(tnom_0(iq)),' est un traceur de generation: ',generation
    709707    enddo !DO iq=1,nqtot
Note: See TracChangeset for help on using the changeset viewer.