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

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