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