diff --git a/src/LIB/SURCOUCHE/src/io_write_field.f90 b/src/LIB/SURCOUCHE/src/io_write_field.f90 index 9d3cdd4a69a83ee3f6dbc60b40607259e9790d12..d375d3699ed254b80220914b80e98eb2a7bd2abd 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