diff --git a/src/LIB/SURCOUCHE/src/mode_io_field_write.f90 b/src/LIB/SURCOUCHE/src/mode_io_field_write.f90
index f7f1efa39148b2224ff9e208929e693fe759593a..98f6eb0273060ce334b3c921b643d55e03664ddd 100644
--- a/src/LIB/SURCOUCHE/src/mode_io_field_write.f90
+++ b/src/LIB/SURCOUCHE/src/mode_io_field_write.f90
@@ -48,6 +48,7 @@ MODULE MODE_IO_FIELD_WRITE
   public :: IO_Field_write, IO_Field_write_box, IO_Field_write_lb
   public :: IO_Fieldlist_write, IO_Field_user_write
   public :: IO_Header_write, IO_Field_create
+  public :: IO_Format_write_select
 
   INTERFACE IO_Field_write
      MODULE PROCEDURE IO_Field_write_byname_X0, IO_Field_write_byname_X1,  &
diff --git a/src/MNH/compute_r00.f90 b/src/MNH/compute_r00.f90
index 7c5246cccb502b4a09d854dd216108f52b002238..bfba9aa502c31b6013e7dad78afd581307ba8a0f 100644
--- a/src/MNH/compute_r00.f90
+++ b/src/MNH/compute_r00.f90
@@ -149,7 +149,7 @@ USE MODD_TYPE_DATE
 USE MODD_VAR_ll
 !
 USE MODE_IO_FIELD_READ,    only: IO_Field_read
-USE MODE_IO_FIELD_WRITE,   only: IO_Field_create, IO_Field_write
+USE MODE_IO_FIELD_WRITE,   only: IO_Field_create, IO_Field_write, IO_Format_write_select
 USE MODE_IO_FILE,          only: IO_File_close, IO_File_open
 USE MODE_IO_MANAGE_STRUCT, ONLY: IO_File_add2list
 USE MODE_ll
@@ -179,6 +179,7 @@ REAL, ALLOCATABLE, DIMENSION(:,:,:):: ZRV0          ! same fields
        ! for Rv as for the coordinates of the origin
 REAL, ALLOCATABLE, DIMENSION(:,:,:):: ZWORK1,ZWORK2,ZWORK3       
 TYPE(DATE_TIME)                    :: TDTCUR_START
+LOGICAL                            :: GLFI, GNC4
 LOGICAL                            :: GSTART
 REAL                               :: ZXMAX,ZYMAX,ZZMAX  ! domain extrema
 TYPE(TFIELDMETADATA)               :: TZFIELD
@@ -187,6 +188,9 @@ TYPE(TFIELDMETADATA)               :: TZFIELD_TH0, TZFIELD_RV0
 TYPE(TFILEDATA),POINTER            :: TZTRACFILE
 !
 !-------------------------------------------------------------------------------
+
+CALL IO_FORMAT_WRITE_SELECT( TPFILE, GLFI, GNC4 )
+if ( GLFI ) CALL PRINT_MSG( NVERB_ERROR, 'COMPUTE_R00', 'LFI fileformat not supported for Lagrangian trajectories' )
 !
 !*       1.0    INITIALIZATION
 !               --------------