diff --git a/src/LIB/SURCOUCHE/src/mode_fm.f90 b/src/LIB/SURCOUCHE/src/mode_fm.f90
index 2f2ff77825c8e7aebee2e425436a8cf39293adfc..d37ce4b88d39e584d77ee3d35c54788fd81851c8 100644
--- a/src/LIB/SURCOUCHE/src/mode_fm.f90
+++ b/src/LIB/SURCOUCHE/src/mode_fm.f90
@@ -28,7 +28,7 @@ PRIVATE
INTEGER, PARAMETER :: JPPIPE = 10
!INCLUDE 'mpif.h'
-PUBLIC SET_FMPACK_ll,FMLOOK_ll
+PUBLIC SET_FMPACK_ll
PUBLIC IO_FILE_OPEN_ll, IO_FILE_CLOSE_ll
CONTAINS
@@ -51,40 +51,6 @@ IF ( IP .EQ. 1 ) PRINT *,'INIT L1D,L2D,LPACK = ',L1D,L2D,LPACK
END SUBROUTINE SET_FMPACK_ll
-SUBROUTINE FMLOOK_ll(HFILEM,HFIPRI,KNUMBR,KRESP)
-!
-USE MODD_IO_ll, ONLY : ISTDOUT,TFILEDATA
-USE MODE_IO_MANAGE_STRUCT, ONLY: IO_FILE_FIND_BYNAME
-!
-CHARACTER(LEN=*), INTENT(IN) :: HFILEM
-CHARACTER(LEN=*), INTENT(IN) :: HFIPRI
-INTEGER, INTENT(OUT) :: KNUMBR
-INTEGER, INTENT(OUT) :: KRESP
-!
-INTEGER :: IRESP
-TYPE(TFILEDATA),POINTER :: TZFILE
-!
-CALL PRINT_MSG(NVERB_DEBUG,'IO','FMLOOK_ll','called for '//TRIM(HFILEM))
-!
-TZFILE => NULL()
-CALL IO_FILE_FIND_BYNAME(TRIM(HFILEM),TZFILE,IRESP)
-!
-IF (IRESP==0) THEN
- KNUMBR = TZFILE%NLU
- KRESP = NOERROR
-ELSE
- IF (HFILEM == HFIPRI) THEN
- KNUMBR = ISTDOUT
- KRESP = NOERROR
- ELSE
- CALL PRINT_MSG(NVERB_ERROR,'IO','FMLOOK_ll','file '//TRIM(HFILEM)//' not found')
- KRESP = IOERROR
- KNUMBR = -1
- END IF
-END IF
-!
-END SUBROUTINE FMLOOK_ll
-
SUBROUTINE IO_FILE_OPEN_ll(TPFILE,KRESP,OPARALLELIO,HPOSITION,HSTATUS)
!
USE MODD_CONF, ONLY: NMNHVERSION
diff --git a/src/LIB/SURCOUCHE/src/modi_fm.f90 b/src/LIB/SURCOUCHE/src/modi_fm.f90
index 3533bfb607da22381066d5f4639886762e58541c..de8b5a86efc77a4337158ab3be11b76c95f28f45 100644
--- a/src/LIB/SURCOUCHE/src/modi_fm.f90
+++ b/src/LIB/SURCOUCHE/src/modi_fm.f90
@@ -20,13 +20,6 @@ SUBROUTINE SET_FMPACK_ll(O1D,O2D,OPACK)
LOGICAL, INTENT(IN) :: O1D,O2D,OPACK
END SUBROUTINE SET_FMPACK_ll
!
-SUBROUTINE FMLOOK_ll(HFILEM,HFIPRI,KNUMBR,KRESP)
-CHARACTER(LEN=*), INTENT(IN) :: HFILEM
-CHARACTER(LEN=*), INTENT(IN) :: HFIPRI
-INTEGER, INTENT(OUT) :: KNUMBR
-INTEGER, INTENT(OUT) :: KRESP
-END SUBROUTINE FMLOOK_ll
-!
SUBROUTINE IO_FILE_OPEN_ll(TPFILE,KRESP,OPARALLELIO)
USE MODD_IO_ll, ONLY: TFILEDATA
TYPE(TFILEDATA),POINTER,INTENT(INOUT) :: TPFILE ! File structure
diff --git a/src/MNH/compare_with_pgd_domain.f90 b/src/MNH/compare_with_pgd_domain.f90
index e30056cd612825ef8caeadd34b7dfc67184bc929..70d97fa2555fd9d9016c4e639b58049f9b3bda7c 100644
--- a/src/MNH/compare_with_pgd_domain.f90
+++ b/src/MNH/compare_with_pgd_domain.f90
@@ -45,8 +45,6 @@ END MODULE MODI_COMPARE_WITH_PGD_DOMAIN
!! EXTERNAL
!! --------
!!
-!! function FMLOOK :to retrieve a logical unit number associated with a file
-!!
!! IMPLICIT ARGUMENTS
!! ------------------
!!
@@ -111,7 +109,6 @@ REAL,DIMENSION(:), INTENT(IN) :: PYHAT ! y coordinate of flux points
!* 0.2 Declaration of local variables
! ------------------------------
REAL :: ZEPS ! a little number
-INTEGER :: IRESP ! return-code if problem eraised in FMLOOK
INTEGER :: ILUOUT0 ! logical number for listing file
INTEGER :: IIU, IJU
INTEGER :: IPGDIU, IPGDJU
diff --git a/src/MNH/compute_exner_from_ground.f90 b/src/MNH/compute_exner_from_ground.f90
index fa0f411277d4488a302306375369461c3a310e77..2d3f5ec286dd8ab4222eb230eb32ee1da0e95ba6 100644
--- a/src/MNH/compute_exner_from_ground.f90
+++ b/src/MNH/compute_exner_from_ground.f90
@@ -82,8 +82,6 @@ END MODULE MODI_COMPUTE_EXNER_FROM_GROUND3
!! EXTERNAL
!! --------
!!
-!! function FMLOOK :to retrieve a logical unit number associated with a file
-!!
!! IMPLICIT ARGUMENTS
!! ------------------
!!
diff --git a/src/MNH/compute_exner_from_top.f90 b/src/MNH/compute_exner_from_top.f90
index ea2bf803dc188bbd01b0164dff95ada5ad1350a9..e1e36a91a43023b36d6f5494da9608174ff3403d 100644
--- a/src/MNH/compute_exner_from_top.f90
+++ b/src/MNH/compute_exner_from_top.f90
@@ -80,8 +80,6 @@ END MODULE MODI_COMPUTE_EXNER_FROM_TOP3D
!! EXTERNAL
!! --------
!!
-!! function FMLOOK :to retrieve a logical unit number associated with a file
-!!
!! IMPLICIT ARGUMENTS
!! ------------------
!!
diff --git a/src/MNH/dry_mass.f90 b/src/MNH/dry_mass.f90
index f020cb3795819578dee7a322db800469a157a539..f85564bd20d582aa48a6455f0873a2089352660a 100644
--- a/src/MNH/dry_mass.f90
+++ b/src/MNH/dry_mass.f90
@@ -65,7 +65,6 @@ END MODULE MODI_DRY_MASS
!! --------
!!
!! routine COMPUTE_EXNER_FROM_TOP : to compute the hydrostatic Exner function
-!! function FMLOOK :to retrieve a logical unit number associated with a file
!!
!! module MODI_COMPUTE_EXNER_FROM_TOP
!! SUM3D_ll : distributed function equivalent to SUM
diff --git a/src/MNH/get_sizex_lb.f90 b/src/MNH/get_sizex_lb.f90
index 71d99adcb16c2451345cfa7acdb3e0ae4bc96b2a..1d5ab66c259bd9c0d6ca2716477612f18dbb2458 100644
--- a/src/MNH/get_sizex_lb.f90
+++ b/src/MNH/get_sizex_lb.f90
@@ -65,7 +65,6 @@ END MODULE MODI_GET_SIZEX_LB
!!
!! EXTERNAL
!! --------
-!! FMLOOK : to retrieve a logical unit number
!! Module MODE_TOOLS_ll :
!! GET_INTERSECTION_ll : to get the global indices of the LB
!! arrays for each sub-domain.
diff --git a/src/MNH/get_sizey_lb.f90 b/src/MNH/get_sizey_lb.f90
index 8ae70b88938c752c1252adf7f91e60fa6ce624d9..ffb87dd6ee917be1f823347f2cd0b4db8d130a57 100644
--- a/src/MNH/get_sizey_lb.f90
+++ b/src/MNH/get_sizey_lb.f90
@@ -65,7 +65,6 @@ END MODULE MODI_GET_SIZEY_LB
!!
!! EXTERNAL
!! --------
-!! FMLOOK : to retrieve a logical unit number
!! Module MODE_TOOLS_ll :
!! GET_INTERSECTION_ll : to get the global indices of the LB
!! arrays for each sub-domain.
diff --git a/src/MNH/horibl.f90 b/src/MNH/horibl.f90
index 6ac7750c2b988017e5dcc0c14b7fbf808be1e570..aad9dafcc5a158d150b33fae92755a3074b784ff 100644
--- a/src/MNH/horibl.f90
+++ b/src/MNH/horibl.f90
@@ -102,8 +102,6 @@ END MODULE MODI_HORIBL
!! EXTERNAL
!! --------
!!
-!! subroutine FMLOOK_ll : to retrieve the logical unit number of the listing file
-!!
!! IMPLICIT ARGUMENTS
!! ------------------
!!
diff --git a/src/MNH/ini_dynamics.f90 b/src/MNH/ini_dynamics.f90
index e0983710791da5a607e5ff98049e0b7e008131c5..46cf4961616c1349edf4e56c2d3c0c804c122d56 100644
--- a/src/MNH/ini_dynamics.f90
+++ b/src/MNH/ini_dynamics.f90
@@ -227,7 +227,6 @@ SUBROUTINE INI_DYNAMICS(PLON,PLAT,PRHODJ,PTHVREF,PMAP,PZZ, &
!! --------
!! TRID : to initialize pressure solver
!! RELAXDEF: to compute the relaxation coefficients
-!! FMLOOK : to retrieve logical unit number linked to a file
!! GET_DIM_EXT_ll : get extended sub-domain sizes
!!
!! Module MODI_TRID : interface for routine TRID
diff --git a/src/MNH/ini_lb.f90 b/src/MNH/ini_lb.f90
index 7afd3aabba753be544381b6c6743d75d66d3bf8d..209ae76df53a2e493da80c31c0ef012d119b92ed 100644
--- a/src/MNH/ini_lb.f90
+++ b/src/MNH/ini_lb.f90
@@ -97,7 +97,6 @@ SUBROUTINE INI_LB(TPINIFILE,OLSOURCE,KSV, &
!!
!! EXTERNAL
!! --------
-!! FMLOOK : to retrieve logical number
!! FMREAD : to read data in LFIFM file
!! FMREAD_LB : to read LB data in LFIFM file
!!
diff --git a/src/MNH/ini_sizen.f90 b/src/MNH/ini_sizen.f90
index 08b4121da1e0ff8bde4e98e1933fac8618bc8817..0fd4132340b89b3d61d96ea745b7145887bfdc1b 100644
--- a/src/MNH/ini_sizen.f90
+++ b/src/MNH/ini_sizen.f90
@@ -59,7 +59,6 @@ END MODULE MODI_INI_SIZE_n
!!
!! EXTERNAL
!! --------
-!! FMLOOK_ll : to retrieve a logical unit number associated with a file
!! IO_READ_FIELD : to read a LFIFM file
!!
!! IMPLICIT ARGUMENTS
diff --git a/src/MNH/latlon_to_xy.f90 b/src/MNH/latlon_to_xy.f90
index 31890a4b901caa6c40945235c6d2af157259fe42..a66e25ac49259b98242e830f5721c05bfca94d5a 100644
--- a/src/MNH/latlon_to_xy.f90
+++ b/src/MNH/latlon_to_xy.f90
@@ -24,9 +24,6 @@
!! EXTERNAL
!! --------
!!
-!! module FMLOOK : to retrieve a logical unit number
-!! associated with a file
-!!
!! module MODE_GRIDPROJ : contains projection routines
!! SM_LATLON and SM_XYHAT
!!
diff --git a/src/MNH/ls_coupling.f90 b/src/MNH/ls_coupling.f90
index 94bd8dfb0399bdeb3650450339bc81f7b43dfa46..4eb37c05473329bd2efe2a0a5da4cf32db8a8340 100644
--- a/src/MNH/ls_coupling.f90
+++ b/src/MNH/ls_coupling.f90
@@ -129,7 +129,6 @@ END MODULE MODI_LS_COUPLING
!!
!! EXTERNAL
!! --------
-!! FMLOOK : to retrieve a logical unit number
!! IO_READ_FIELD : to read data in file
!! IO_FILE_CLOSE_ll : to close a file
!! INI_LS : to initialize larger scale fields
diff --git a/src/MNH/mode_time.f90 b/src/MNH/mode_time.f90
index 53f0c76a293ee0cc8504543e4dd2fe5831bebf2a..2890fe4ffc14f93b727708153a5909f6202d0b94 100644
--- a/src/MNH/mode_time.f90
+++ b/src/MNH/mode_time.f90
@@ -69,11 +69,7 @@ CONTAINS
!
!!** METHOD
!! ------
-!! The logical unit number of output-listing file is retrieved (by FMLOOK)
-!! If a logical unit number have never been attributed to this output-listing
-!! file, a logical unit number is attributed (by FMATTR) and this file is
-!! opened
-!! Then the date and time are printed with or without a title.
+!! The date and time are printed with or without a title.
!! If it is an idealized case, no date is printed (only time).
!!
!! EXTERNAL
diff --git a/src/MNH/modeln.f90 b/src/MNH/modeln.f90
index 2843213387c056395631b672848ff6d654dc7f6b..1da755cf0963df85e8899dcada2baf8f799389d8 100644
--- a/src/MNH/modeln.f90
+++ b/src/MNH/modeln.f90
@@ -65,7 +65,6 @@ END MODULE MODI_MODEL_n
!!
!! EXTERNAL
!! --------
-!! Subroutine FMLOOK: to recover the logical unit number linked to a FMfile
!! Subroutine IO_FILE_OPEN_ll: to open a file
!! Subroutine WRITE_DESFM: to write the descriptive part of a FMfile
!! Subroutine WRITE_LFIFM: to write the binary part of a FMfile
diff --git a/src/MNH/prep_real_case.f90 b/src/MNH/prep_real_case.f90
index c848fac7bf1d1971c1d4d4edc6076838960db015..4d459f06cda49f30a1aeec288b616a8be23a6fbc 100644
--- a/src/MNH/prep_real_case.f90
+++ b/src/MNH/prep_real_case.f90
@@ -263,7 +263,6 @@
!! initialized
!! Routine WRITE_DESFM1 : to write a DESFM file.
!! Routine WRITE_LFIFM1 : to write a LFIFM file.
-!! Routine FMLOOK : to retrieve the logical unit of a file.
!! Routine IO_FILE_CLOSE_ll : to close a FM-file (DESFM + LFIFM).
!!
!! Module MODE_GRIDPROJ : contains conformal projection routines
diff --git a/src/MNH/read_all_data_mesonh_case.f90 b/src/MNH/read_all_data_mesonh_case.f90
index 2850e89015043d36178ee51d8c1df1bddc90239a..967d1234597fea25acba675e0b78dfd3069f9ee8 100644
--- a/src/MNH/read_all_data_mesonh_case.f90
+++ b/src/MNH/read_all_data_mesonh_case.f90
@@ -61,8 +61,6 @@ END MODULE MODI_READ_ALL_DATA_MESONH_CASE
!! subroutine READ_PRC_FMFILE : to read the large scale fields on the MESO-NH
!! domain.
!!
-!! function FMLOOK :to retrieve a logical unit number associated with a file
-!!
!! Module MODI_READ_GRID_TIME_MESONH_CASE : interface for subroutine
!! READ_GRID_TIME_MESONH_CASE
!! Module MODI_SET_SUBDOMAIN : interface for subroutine SET_SUBDOMAIN
diff --git a/src/MNH/read_exsegn.f90 b/src/MNH/read_exsegn.f90
index 075ccbe3d3f3ebe2b8dc151dc83264a0c50aea41..f1dcefe696109a5ea3f8ec647e7907bc20c684e1 100644
--- a/src/MNH/read_exsegn.f90
+++ b/src/MNH/read_exsegn.f90
@@ -111,8 +111,7 @@ END MODULE MODI_READ_EXSEG_n
!!
!!** METHOD
!! ------
-!! Logical unit number of EXSEG file is retrieved by calling FMLOOK.
-!! Then, the descriptor file is read. Namelists (NAMXXXn) which contain
+!! The descriptor file is read. Namelists (NAMXXXn) which contain
!! variables linked to one nested model are at the beginning of the file.
!! Namelists (NAMXXX) which contain variables common to all models
!! are at the end of the file. When the model index is different from 1,
diff --git a/src/MNH/reset_exseg.f90 b/src/MNH/reset_exseg.f90
index 62ab1131c7eb407a3cd3b15aa5c3611152903168..f205b8acaf181e774c6eadef6eda88d5fddb7661 100644
--- a/src/MNH/reset_exseg.f90
+++ b/src/MNH/reset_exseg.f90
@@ -88,7 +88,7 @@ CHARACTER (LEN=*), INTENT(IN) :: HLUOUT ! Name for output listing
!
!* 0.2 declarations of local variables
!
-INTEGER :: IRESP,ILUNAM ! return code of FMLOOK and logical unit number
+INTEGER :: IRESP,ILUNAM ! return code and logical unit number
LOGICAL :: GFOUND ! Return code when searching namelist
CHARACTER(LEN=100):: YCOMMENT ! Comment string
INTEGER :: IGRID ! IGRID : grid indicator
diff --git a/src/MNH/resolved_cloud.f90 b/src/MNH/resolved_cloud.f90
index fe972ed79552aba10028bec885b67945a7de7ba2..1247a5b56c7ae7c406bec251d066d9cfb3309f0d 100644
--- a/src/MNH/resolved_cloud.f90
+++ b/src/MNH/resolved_cloud.f90
@@ -177,7 +177,6 @@ END MODULE MODI_RESOLVED_CLOUD
!!
!! EXTERNAL
!! --------
-!! Subroutine FMLOOK: to recover the logical unit number linked to a FMfile
!! Subroutine SLOW_TERMS: Computes the explicit microphysical sources
!! Subroutine FAST_TERMS: Performs the saturation adjustment for l
!! Subroutine RAIN_ICE : Computes the explicit microphysical sources for i
diff --git a/src/MNH/resolved_elecn.f90 b/src/MNH/resolved_elecn.f90
index 499776fdb3f2344d20d4b51cae767edeee31f187..315c71bb57119678f499deb6f81d170d936ddc48 100644
--- a/src/MNH/resolved_elecn.f90
+++ b/src/MNH/resolved_elecn.f90
@@ -135,7 +135,6 @@ END MODULE MODI_RESOLVED_ELEC_n
!!
!! EXTERNAL
!! --------
-!! Subroutine FMLOOK: to recover the logical unit number linked to a FMfile
!! Subroutine SLOW_TERMS: Computes the explicit microphysical sources
!! Subroutine FAST_TERMS: Performs the saturation adjustment for l
!! Subroutine RAIN_ICE : Computes the explicit microphysical sources for i
diff --git a/src/MNH/set_frc.f90 b/src/MNH/set_frc.f90
index f32526aaa2b7257c966a1ac8e40d0d162f927dd9..6461cdbc7831751e9c1ddf053ca93d3684d2501a 100644
--- a/src/MNH/set_frc.f90
+++ b/src/MNH/set_frc.f90
@@ -47,7 +47,6 @@ END MODULE MODI_SET_FRC
!!
!! EXTERNAL
!! --------
-!! FMLOOK : to retrieve a logical unit number
!! Module MODE_THERMO : contains thermodynamic routines
!! Module MODI_HEIGHT_PRESS: to compute height from pressure and
!! potential virtual temperature
diff --git a/src/MNH/set_geosbal.f90 b/src/MNH/set_geosbal.f90
index 02dd4a7e12f926c963eadfeb9e37f6c8c8bf0122..a6e10c6caa69ca1a96620423d360bff992cfee5c 100644
--- a/src/MNH/set_geosbal.f90
+++ b/src/MNH/set_geosbal.f90
@@ -182,7 +182,6 @@ END MODULE MODI_SET_GEOSBAL
!! X direction
!! EXTERNAL
!! --------
-!! FMLOOK : to retrieve logical unit number
!!
!! Module MODI_SHUMAN: interface for shuman operators
!!
diff --git a/src/MNH/set_rsou.f90 b/src/MNH/set_rsou.f90
index 3a895cb007aeac3c4515f4ec94fcff9a8c12e056..b4d647e2088fb9fbbf848bc9eb981384a256b557 100644
--- a/src/MNH/set_rsou.f90
+++ b/src/MNH/set_rsou.f90
@@ -182,7 +182,6 @@ END MODULE MODI_SET_RSOU
!!
!! EXTERNAL
!! --------
-!! FMLOOK : to retrieve a logical unit number
!! SET_MASS : to compute mass field on 3D-model grid
!! Module MODE_THERMO : contains thermodynamic routines
!! SM_FOES : To compute saturation vapor pressure from
diff --git a/src/MNH/spawn_grid2.f90 b/src/MNH/spawn_grid2.f90
index 98cef4efd9393f280f54005121848c90d5ee0d4e..6b3a51a10992aa040b81b23e83b58120dfa274e7 100644
--- a/src/MNH/spawn_grid2.f90
+++ b/src/MNH/spawn_grid2.f90
@@ -92,7 +92,6 @@ END MODULE MODI_SPAWN_GRID2
!! EXTERNAL
!! --------
!!
-!! FMLOOK : to recover a logical unit number
!! Module MODE_TIME : contains SM_PRINT_TIME routine
!! Routine BIKHARDT2 : to perform horizontal interpolations
!!
diff --git a/src/MNH/spawn_zs.f90 b/src/MNH/spawn_zs.f90
index 45794282e071a852a717bbdfdf7bf4ec84212612..7f036225547e0bea577425c524c95e41afad1a09 100644
--- a/src/MNH/spawn_zs.f90
+++ b/src/MNH/spawn_zs.f90
@@ -72,7 +72,6 @@ END MODULE MODI_SPAWN_ZS
!! EXTERNAL
!! --------
!!
-!! FMLOOK : to recover a logical unit number
!! Routine BIKHARDT2 : to perform horizontal interpolations
!!
!!
diff --git a/src/MNH/ver_interp_to_mixed_grid.f90 b/src/MNH/ver_interp_to_mixed_grid.f90
index 8878143cea0575d895355e564f6c20509eeb7641..7c776377fd3f4cde3c22cadd8d2f0c89e40d97bc 100644
--- a/src/MNH/ver_interp_to_mixed_grid.f90
+++ b/src/MNH/ver_interp_to_mixed_grid.f90
@@ -99,7 +99,6 @@ END MODULE MODI_VER_INTERP_TO_MIXED_GRID
!! EXTERNAL
!! --------
!!
-!! function FMLOOK :to retrieve a logical unit number associated with a file
!! routine VER_INTERP : to vertically interpolate a field
!! routine COMPUTE_EXNER_FROM_GROUND : to compute hydrostatic Exner function
!! Module MODI_VER_INTERP : interface for function VER_INTERP
diff --git a/src/MNH/write_desfmn.f90 b/src/MNH/write_desfmn.f90
index 7b004bd8e40e06268b75692bdc0adf97f0f928a8..cadcddd33ff007ba57a34b81a921354a633f3938 100644
--- a/src/MNH/write_desfmn.f90
+++ b/src/MNH/write_desfmn.f90
@@ -49,7 +49,6 @@ END MODULE MODI_WRITE_DESFM_n
!!
!! EXTERNAL
!! --------
-!! FMLOOK : to retrieve the logical unit number of descriptor or LFI files
!!
!!
!! IMPLICIT ARGUMENTS
@@ -210,9 +209,8 @@ TYPE(TFILEDATA), INTENT(IN) :: TPDATAFILE ! Datafile
!
!* 0.2 declarations of local variables
!
-INTEGER :: IRESP,ILUSEG ! return code of FMLOOK and logical unit number of
- ! EXSEG file
-INTEGER :: ILUOUT ! Logical unit number for output-listing TLUOUT file
+INTEGER :: ILUSEG ! logical unit number of EXSEG file
+INTEGER :: ILUOUT ! Logical unit number for output-listing TLUOUT file
!
LOGICAL :: GHORELAX_UVWTH, &
GHORELAX_RV, GHORELAX_RC, GHORELAX_RR, &
diff --git a/src/MNH/xy_to_latlon.f90 b/src/MNH/xy_to_latlon.f90
index 5803210fff780ebd3e31609d4b44c2a1d5aaf0f1..e6decdff5d0996d1f00f2e0ebf3476f39abdc5fa 100644
--- a/src/MNH/xy_to_latlon.f90
+++ b/src/MNH/xy_to_latlon.f90
@@ -24,9 +24,6 @@
!! EXTERNAL
!! --------
!!
-!! module FMLOOK : to retrieve a logical unit number
-!! associated with a file
-!!
!! module MODE_GRIDPROJ : contains projection routines
!! SM_LATLON and SM_XYHAT
!!