Skip to content
Snippets Groups Projects
Commit 6f0eeef7 authored by Gaelle Tanguy's avatar Gaelle Tanguy Committed by WAUTELET Philippe
Browse files

Gaelle 2/5/2016 : correction instant M et T

parent 690163ff
No related branches found
No related tags found
No related merge requests found
......@@ -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
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment