Juan 12/06/203:call_rttov13.f90, change intent to INOUT , for Pb with CRAY ftn

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
 !!!