From 96f8fe28de1c05dfebc19e0cd8fa630d0752c8e5 Mon Sep 17 00:00:00 2001
From: "theophile.terraz" <theophile.terraz@irstea.fr>
Date: Thu, 5 Sep 2013 16:00:34 +0200
Subject: [PATCH] Modif LENV

---
 rubar20_final.f90 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/rubar20_final.f90 b/rubar20_final.f90
index 6859a65..bbe8e22 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  
-- 
GitLab