Philippe 06/03/2017: IO: bug correction: missing TFILE_SURFEX value for WRITE_DIAG_SURF_ATM_n

src/MNH/modeln.f90

@@ -1320,7 +1320,9 @@ IF (IBAK>0 .AND. IBAK <= NBAK_NUMB ) THEN
       CALL DIAG_SURF_ATM_n(YSURF_CUR%IM%DGEI, YSURF_CUR%FM%DGF, YSURF_CUR%DGL, YSURF_CUR%IM%DGI, &
                              YSURF_CUR%SM%DGS, YSURF_CUR%DGU, YSURF_CUR%TM%DGT, YSURF_CUR%WM%DGW, &
                              YSURF_CUR%U, YSURF_CUR%USS,'MESONH')
+      TFILE_SURFEX => TZBAKFILE
       CALL WRITE_DIAG_SURF_ATM_n(YSURF_CUR,'MESONH','ALL')
+      NULLIFY(TFILE_SURFEX)
     END IF
   END IF
 END IF