diff --git a/rubar20_final.f90 b/rubar20_final.f90
index 6859a65b6e6f45f6cc591a511733d4d10aacc290..bbe8e22d1ef6c304c58ff5cda071e5c1b124e975 100644
--- a/rubar20_final.f90
+++ b/rubar20_final.f90
@@ -248,15 +248,16 @@
 ! hauteur minimale pour retenir les vitesses maxi
       hmin = 0.1
       if (tm .eq. tinit) then
-        if (me==scribe) then
          if (irep .eq. 1) then
             open(ifen,file=etude//'.env',status='unknown')
             read(ifen,*) tt
+            if (me==scribe) then
             if (tt .ne. tinit) then                                              
                write(*,*) 'tinit= ',tinit,'  t enveloppe= ',tt
                write(*,*) 'attention les maxima posterieurs a tinit'         
                write(*,*) 'ne seront pas conserves'                                        
             endif
+            end if ! me==scribe
             do ie = 1,ne
                read(ifen,*) j,th(ie),hem(ie),tu(ie),qum(ie),qvm(ie), &              
      &                      hem2(ie),qum2(ie),qvm2(ie)                                       
@@ -278,7 +279,6 @@
             open(ifen,file=etude//'.env',status='unknown')
             close(ifen)
          endif
-        end if ! me==scribe
       endif
 ! calcul des maxima
 ! #ifdef mpi