Philippe 02/05/2017: IO: bug correction: write in correct file + add header

src/MNH/prep_ideal_case.f90

@@ -576,7 +576,7 @@ REAL              :: ZZS_MAX, ZZS_MAX_ll
 INTEGER           :: IJPHEXT
 !
 TYPE(TFILEDATA),TARGET :: TZFILE
-TYPE(TFILEDATA)        :: TZINIFILEPGD
+TYPE(TFILEDATA),TARGET :: TZINIFILEPGD
 !
 !
 !*       0.2  Namelist declarations
@@ -1782,6 +1782,8 @@ TZFILE%NLFIVERB   = NVERB
 !
 CALL IO_FILE_OPEN_ll(TZFILE,CLUOUT,NRESP)
 !
+CALL IO_WRITE_HEADER(TZFILE,CLUOUT)
+!
 CALL WRITE_DESFM_n(1,CDESFM,CLUOUT)
 !
 CALL WRITE_LFIFM_n(TZFILE,'                            ')  ! There is no DAD model for PREP_IDEAL_CASE 
@@ -1866,7 +1868,9 @@ IF (CSURF =='EXTE') THEN
     CALL IO_WRITE_FIELD(TZINIFILEPGD,'L2D', CLUOUT,IRESP,L2D)
     CALL IO_WRITE_FIELD(TZINIFILEPGD,'PACK',CLUOUT,IRESP,LPACK)
     CALL WRITE_HGRID(1,TZINIFILEPGD)
+    TFILE_SURFEX => TZINIFILEPGD
     CALL WRITE_PGD_SURF_ATM_n(YSURF_CUR,'MESONH')
+    NULLIFY(TFILE_SURFEX)
     CSTORAGE_TYPE='TT'
   ENDIF
   !