Modif LENV

96f8fe28 · theophile.terraz · 309ec00f · 96f8fe28
Commit 96f8fe28 authored 11 years ago by theophile.terraz
Hide whitespace changes
Inline Side-by-side

Showing

with 2 additions and 2 deletions
+2 -2
--- 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