From 1a1af88b9acda9ad9605257a0d0eea276bdbf57b Mon Sep 17 00:00:00 2001
From: Gaelle Tanguy <gaelle.tanguy@meteo.fr>
Date: Thu, 30 Jan 2014 14:29:55 +0000
Subject: [PATCH] Gaelle 30/01/204 : initialize CINIFILEPGD with CPGD_FILE if
 present

---
 src/MNH/prep_ideal_case.f90 | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/src/MNH/prep_ideal_case.f90 b/src/MNH/prep_ideal_case.f90
index ad3c61606..638c601e8 100644
--- a/src/MNH/prep_ideal_case.f90
+++ b/src/MNH/prep_ideal_case.f90
@@ -689,6 +689,12 @@ IF( LEN_TRIM(CPGD_FILE) /= 0 ) THEN
   ! read the grid in the PGD file
   CALL FMREAD(CPGD_FILE,'IMAX',CLUOUT,'--',NIMAX,IGRID,ILENCH,YCOMMENT,IRESP)
   CALL FMREAD(CPGD_FILE,'JMAX',CLUOUT,'--',NJMAX,IGRID,ILENCH,YCOMMENT,IRESP)
+  IF ( CPGD_FILE /= CINIFILEPGD) THEN
+    WRITE(NLUOUT,FMT=*) ' WARNING : in PRE_IDEA1.nam, in NAM_LUNITn you have CINIFILEPGD= ',CINIFILEPGD
+    WRITE(NLUOUT,FMT=*) ' whereas in NAM_REAL_PGD you have CPGD_FILE = ',CPGD_FILE
+    WRITE(NLUOUT,FMT=*) ' '
+    WRITE(NLUOUT,FMT=*) ' CINIFILEPGD HAS BEEN SET TO  ',CPGD_FILE        
+    CINIFILEPGD=CPGD_FILE
 END IF
 !
 NIMAX_ll=NIMAX   !! _ll variables are global variables
-- 
GitLab