From c658cb1838c88917207dceb42e4e2b3e685eb56b Mon Sep 17 00:00:00 2001
From: Juan Escobar <juan.escobar@aero.obs-mip.fr>
Date: Tue, 22 Sep 2015 14:10:23 +0000
Subject: [PATCH] Juan 22/09/2015: write JPHEXT in write_lfifm1_for_diag.f90
---
src/MNH/write_lfifm1_for_diag.f90 | 12 ++++++------
1 file changed, 6 insertions(+), 6 deletions(-)
diff --git a/src/MNH/write_lfifm1_for_diag.f90 b/src/MNH/write_lfifm1_for_diag.f90
index c6997eafa..0f3b963c8 100644
--- a/src/MNH/write_lfifm1_for_diag.f90
+++ b/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
--
GitLab