Juan 22/09/2015: write JPHEXT in write_lfifm1_for_diag.f90

src/MNH/write_lfifm1_for_diag.f90

@@ -322,12 +322,6 @@ INTEGER           :: I
 !
 CALL GET_DIM_EXT_ll ('B',IIU,IJU)
 CALL GET_INDICE_ll (IIB,IJB,IIE,IJE)
-!!$IIB=1+JPHEXT
-!!$IJB=1+JPHEXT
-!!$IIU=NIMAX+2*JPHEXT
-!!$IJU=NJMAX+2*JPHEXT
-!!$IIE=IIU-JPHEXT
-!!$IJE=IJU-JPHEXT
 IKU=NKMAX+2*JPVEXT
 IKB=1+JPVEXT
 IKE=IKU-JPVEXT
@@ -435,6 +429,12 @@ IGRID=0
 ILENCH=LEN(YCOMMENT)
 CALL FMWRIT(HFMFILE,YRECFM,CLUOUT,'--',NKMAX,IGRID,ILENCH,YCOMMENT,IRESP)
 !
+YRECFM='JPHEXT'
+YCOMMENT=' '
+IGRID=0
+ILENCH=LEN(YCOMMENT)
+CALL FMWRIT(HFMFILE,YRECFM,CLUOUT,'--',JPHEXT,IGRID,ILENCH,YCOMMENT,IRESP)
+!
 !*       1.2    Grid variables :
 !
 IF (.NOT.LCARTESIAN) THEN