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