From dc034e07c63897b1bece56b04f6fae3b2b142cee Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Mon, 27 Mar 2017 11:05:51 +0200
Subject: [PATCH] Philippe 27/03/2017: bug correction: TPOUTPUT can not be
 passed as a pointer (from model_n)

---
 src/LIB/SURCOUCHE/src/io_write_field.f90 | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/src/LIB/SURCOUCHE/src/io_write_field.f90 b/src/LIB/SURCOUCHE/src/io_write_field.f90
index 9d3cdd4a6..d375d3699 100644
--- a/src/LIB/SURCOUCHE/src/io_write_field.f90
+++ b/src/LIB/SURCOUCHE/src/io_write_field.f90
@@ -14,8 +14,8 @@ USE MODE_MODELN_HANDLER, ONLY : GET_CURRENT_MODEL_INDEX
 !
 IMPLICIT NONE
 !
-TYPE(TOUTBAK),POINTER,INTENT(IN) :: TPOUTPUT !Output structure
-CHARACTER(LEN=*),     INTENT(IN)  :: HFIPRI ! File for prints in FM
+TYPE(TOUTBAK),    INTENT(IN)  :: TPOUTPUT !Output structure
+CHARACTER(LEN=*), INTENT(IN)  :: HFIPRI   !File for prints in FM
 !
 INTEGER :: IDX
 INTEGER :: IMI
@@ -237,8 +237,8 @@ USE MODD_PRECIP_n, ONLY: XINPRR
 !
 IMPLICIT NONE
 !
-TYPE(TOUTBAK),POINTER,INTENT(IN) :: TPOUTPUT !Output structure
-CHARACTER(LEN=*),     INTENT(IN)  :: HFIPRI ! File for prints in FM
+TYPE(TOUTBAK),    INTENT(IN)  :: TPOUTPUT !Output structure
+CHARACTER(LEN=*), INTENT(IN)  :: HFIPRI   ! File for prints in FM
 !
 INTEGER          :: IRESP
 TYPE(TFIELDDATA) :: TZFIELD
-- 
GitLab