Juan 22/09/2015: write JPHEXT in write_lfifm1_for_diag.f90
authorJuan Escobar <juan.escobar@aero.obs-mip.fr>
Tue, 22 Sep 2015 14:10:23 +0000 (14:10 +0000)
committerPhilippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Thu, 19 May 2016 14:44:49 +0000 (16:44 +0200)
src/MNH/write_lfifm1_for_diag.f90

index c6997ea..0f3b963 100644 (file)
@@ -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