Gaelle 2/5/2016 : correction instant M et T
authorGaelle Tanguy <gaelle.tanguy@meteo.fr>
Mon, 2 May 2016 12:44:27 +0000 (12:44 +0000)
committerPhilippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Thu, 19 May 2016 14:44:49 +0000 (16:44 +0200)
src/MNH/compute_r00.f90

index 096adc7..a59a5c9 100644 (file)
@@ -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