From 6f0eeef711f24e118b7892c34abd0955dda27603 Mon Sep 17 00:00:00 2001
From: Gaelle Tanguy <gaelle.tanguy@meteo.fr>
Date: Mon, 2 May 2016 12:44:27 +0000
Subject: [PATCH] Gaelle 2/5/2016 : correction instant M et T
---
src/MNH/compute_r00.f90 | 7 ++++---
1 file changed, 4 insertions(+), 3 deletions(-)
diff --git a/src/MNH/compute_r00.f90 b/src/MNH/compute_r00.f90
index 096adc7eb..a59a5c939 100644
--- a/src/MNH/compute_r00.f90
+++ b/src/MNH/compute_r00.f90
@@ -57,6 +57,7 @@ END MODULE MODI_COMPUTE_R00
!! J. Stein Jan. 2001 add supplementary starts and spare some memory
!! October 2009 (G. Tanguy) add ILENCH=LEN(YCOMMENT) after
!! change of YCOMMENT
+!! Mai 2016 (G.Delautier) replace LG?M by LG?T
!-------------------------------------------------------------------------------
!
!* 0. DECLARATIONS
@@ -353,17 +354,17 @@ DO JFILECUR=1,NFILES
!* 4.4 compute the origin of the particules using one more segment
!
IF (JFILECUR /= NFILES) THEN
- YRECFM='LGXM'
+ YRECFM='LGXT'
CALL FMREAD(CFILES(NBRFILES(JFILECUR)),YRECFM,CLUOUT,'XY', &
ZX0(:,:,:),IGRID,ILENCH,YCOMMENT,IRESP)
ZX0(:,:,:)=ZX0(:,:,:)*1.E-3 ! ZX0 in km
!
- YRECFM='LGYM'
+ YRECFM='LGYT'
CALL FMREAD(CFILES(NBRFILES(JFILECUR)),YRECFM,CLUOUT,'XY', &
ZY0(:,:,:),IGRID,ILENCH,YCOMMENT,IRESP)
ZY0(:,:,:)=ZY0(:,:,:)*1.E-3 ! ZY0 in km
!
- YRECFM='LGZM'
+ YRECFM='LGZT'
CALL FMREAD(CFILES(NBRFILES(JFILECUR)),YRECFM,CLUOUT,'XY', &
ZZ0(:,:,:),IGRID,ILENCH,YCOMMENT,IRESP)
ZZ0(:,:,:)=ZZ0(:,:,:)*1.E-3 ! ZZ0 in km
--
GitLab