Gaelle 30/01/204 : initialize CINIFILEPGD with CPGD_FILE if present

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