diff --git a/src/MNH/write_phys_param.f90 b/src/MNH/write_phys_param.f90
index 446fa2de37e7ccf3074b77145f34d6bcc6d703f9..db8256b61cd0c77478fa59489526d1dfa2d544c0 100644
--- a/src/MNH/write_phys_param.f90
+++ b/src/MNH/write_phys_param.f90
@@ -11,7 +11,6 @@ INTERFACE
 !
 SUBROUTINE WRITE_PHYS_PARAM(HFMFILE)
 CHARACTER(LEN=28), INTENT(IN) :: HFMFILE      ! Name of FM-file to write
-CHARACTER(LEN=28), INTENT(IN) :: HDADFILE     ! corresponding FM-file name of 
                                               ! its DAD model
 END SUBROUTINE WRITE_PHYS_PARAM
 !