diff --git a/src/MNH/prep_ideal_case.f90 b/src/MNH/prep_ideal_case.f90
index edaa146d6b1af55f45afb58e3cd2068fcc0f2da9..bc6f8c9d81f9e2ef701aa91abdc07ae89a9a57ba 100644
--- a/src/MNH/prep_ideal_case.f90
+++ b/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
   !