From c628538295be59f7e7ff01ecb6fbbb2f05e3795b Mon Sep 17 00:00:00 2001
From: Juan ESCOBAR <juan.escobar@aero.obs-mip.fr>
Date: Mon, 12 Jun 2023 10:33:28 +0200
Subject: [PATCH] Juan 12/06/203:call_rttov13.f90, change intent to INOUT , for
Pb with CRAY ftn
---
src/MNH/call_rttov13.f90 | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/src/MNH/call_rttov13.f90 b/src/MNH/call_rttov13.f90
index 97ccf20af..362d018b2 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
!!!
--
GitLab