diff --git a/src/MNH/call_rttov13.f90 b/src/MNH/call_rttov13.f90
index 97ccf20af2a1a608ad00478b2f05046572cef425..362d018b272d60bfbcbcb9805452ce75dd9271ec 100644
--- a/src/MNH/call_rttov13.f90
+++ b/src/MNH/call_rttov13.f90
@@ -39,7 +39,7 @@ LOGICAL, INTENT(IN)                  :: OUSERI ! logical switch to compute both
 !
 INTEGER, DIMENSION(:,:), INTENT(IN) :: KRTTOVINFO ! platform, satellite, sensor,
                                                   ! and selection calculations
-TYPE(TFILEDATA),   INTENT(IN) :: TPFILE ! File characteristics
+TYPE(TFILEDATA),   INTENT(INOUT) :: TPFILE ! File characteristics
 !
 END SUBROUTINE CALL_RTTOV13
 END INTERFACE
@@ -169,7 +169,7 @@ LOGICAL, INTENT(IN)                  :: OUSERI ! logical switch to compute both
 !!!
 INTEGER, DIMENSION(:,:), INTENT(IN) :: KRTTOVINFO ! platform, satellite, sensor,
                                                   ! and selection calculations
-TYPE(TFILEDATA),   INTENT(IN) :: TPFILE ! File characteristics
+TYPE(TFILEDATA),   INTENT(INOUT) :: TPFILE ! File characteristics
 !
 #ifdef MNH_RTTOV_13
 !!!