From c386031ec105ed93288fb46ef795a4f0a9706e94 Mon Sep 17 00:00:00 2001
From: Gaelle DELAUTIER <gaelle.delautier@meteo.fr>
Date: Thu, 14 Jun 2018 16:43:44 +0200
Subject: [PATCH] Gaelle 14/6/18 : add write JPHEXT in PGD
---
src/MNH/prep_ideal_case.f90 | 1 +
1 file changed, 1 insertion(+)
diff --git a/src/MNH/prep_ideal_case.f90 b/src/MNH/prep_ideal_case.f90
index 81e8c12aa..c72951f5b 100644
--- a/src/MNH/prep_ideal_case.f90
+++ b/src/MNH/prep_ideal_case.f90
@@ -1793,6 +1793,7 @@ IF (CSURF =='EXTE') THEN
CSTORAGE_TYPE='PG'
!
CALL IO_WRITE_HEADER(TINIFILEPGD)
+ CALL IO_WRITE_FIELD(TINIFILEPGD,'JPHEXT', JPHEXT)
CALL IO_WRITE_FIELD(TINIFILEPGD,'SURF','EXTE')
CALL IO_WRITE_FIELD(TINIFILEPGD,'L1D', L1D)
CALL IO_WRITE_FIELD(TINIFILEPGD,'L2D', L2D)
--
GitLab