Philippe 03/03/2017: IO: modified WRITE_SURFxy_MNH calls to use IO_WRITE_FIELDS

                         and PRINT_MSG
                         Some calls are not yet (fully) ported

src/LIB/SURCOUCHE/src/modd_io.f90

@@ -95,4 +95,6 @@ END TYPE TFILEDATA
 TYPE(TFILEDATA),POINTER,SAVE :: TFILE_FIRST => NULL()
 TYPE(TFILEDATA),POINTER,SAVE :: TFILE_LAST  => NULL()
 
+TYPE(TFILEDATA),POINTER,SAVE :: TFILE_SURFEX  => NULL() !Pointer used to find the file used when writing SURFEX fields in write_surf_mnh.f90
+
 END MODULE MODD_IO_ll

src/MNH/modeln.f90

@@ -280,7 +280,7 @@ USE MODD_LUNIT
 USE MODD_GRID, ONLY: XLONORI,XLATORI
 USE MODD_SERIES, ONLY: LSERIES
 USE MODD_TURB_CLOUD, ONLY: NMODEL_CLOUD,CTURBLEN_CLOUD,XCEI
-USE MODD_IO_ll, ONLY: TFILEDATA
+USE MODD_IO_ll, ONLY: TFILEDATA,TFILE_SURFEX
 !
 USE MODD_SUB_MODEL_n
 USE MODD_GET_n
@@ -928,8 +928,10 @@ IF (IBAK < NBAK_NUMB ) THEN
     COUTFMFILE = YFMFILE
     CALL MNHWRITE_ZS_DUMMY_n(TZBAKFILE)
     IF (CSURF=='EXTE') THEN
+      TFILE_SURFEX => TZBAKFILE
       CALL GOTO_SURFEX(IMI)
       CALL WRITE_SURF_ATM_n(YSURF_CUR,'MESONH','ALL',.FALSE.)
+      NULLIFY(TFILE_SURFEX)
     END IF
     !
     ! Reinitialize Lagragian variables at every model backup