From 42a4d0cf6b2d91f15e186ac9496505e4923d0230 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Fri, 2 Feb 2018 09:29:31 +0100
Subject: [PATCH] Philippe 02/02/2018: IO: bug correction: incorrect intent for
 pointer in POPULATE_STRUCT

---
 src/LIB/SURCOUCHE/src/mode_io_manage_struct.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/LIB/SURCOUCHE/src/mode_io_manage_struct.f90 b/src/LIB/SURCOUCHE/src/mode_io_manage_struct.f90
index a58b00024..676d7795b 100644
--- a/src/LIB/SURCOUCHE/src/mode_io_manage_struct.f90
+++ b/src/LIB/SURCOUCHE/src/mode_io_manage_struct.f90
@@ -460,7 +460,7 @@ SUBROUTINE POPULATE_STRUCT(TPFILE_FIRST,TPFILE_LAST,KSTEPS,HFILETYPE,TPBAKOUTN)
   TYPE(TFILEDATA),           POINTER,INTENT(INOUT) :: TPFILE_FIRST,TPFILE_LAST
   INTEGER,DIMENSION(:),              INTENT(IN)    :: KSTEPS
   CHARACTER(LEN=*),                  INTENT(IN)    :: HFILETYPE
-  TYPE(TOUTBAK),DIMENSION(:),POINTER,INTENT(OUT)   :: TPBAKOUTN
+  TYPE(TOUTBAK),DIMENSION(:),POINTER,INTENT(IN)    :: TPBAKOUTN
   !
   CHARACTER (LEN=3) :: YNUMBER          ! Character string for the file number
   INTEGER :: JI
-- 
GitLab