From 1615eb5f3642eb8f2f2514fba7b1a54a09539745 Mon Sep 17 00:00:00 2001 From: Apolline Elbaz Date: Mon, 9 Sep 2024 15:59:06 +0200 Subject: [PATCH] update tapenade --- smash/fcore/forward/forward_db.f90 | 12 ++++++------ smash/fcore/forward/forward_openmp_db.f90 | 12 ++++++------ 2 files changed, 12 insertions(+), 12 deletions(-) diff --git a/smash/fcore/forward/forward_db.f90 b/smash/fcore/forward/forward_db.f90 index ec0ad6c4..b19fc175 100644 --- a/smash/fcore/forward/forward_db.f90 +++ b/smash/fcore/forward/forward_db.f90 @@ -15060,7 +15060,7 @@ SUBROUTINE GR4_RI_TIME_STEP_D(setup, mesh, input_data, options, & TYPE(MESHDT), INTENT(IN) :: mesh TYPE(INPUT_DATADT), INTENT(IN) :: input_data TYPE(OPTIONSDT), INTENT(IN) :: options - TYPE(RETURNSDT), INTENT(IN) :: returns + TYPE(RETURNSDT), INTENT(INOUT) :: returns INTEGER, INTENT(IN) :: time_step REAL(sp), DIMENSION(mesh%nac), INTENT(IN) :: ac_mlt REAL(sp), DIMENSION(mesh%nac), INTENT(IN) :: ac_mlt_d @@ -15159,7 +15159,7 @@ SUBROUTINE GR4_RI_TIME_STEP_B(setup, mesh, input_data, options, & TYPE(MESHDT), INTENT(IN) :: mesh TYPE(INPUT_DATADT), INTENT(IN) :: input_data TYPE(OPTIONSDT), INTENT(IN) :: options - TYPE(RETURNSDT), INTENT(IN) :: returns + TYPE(RETURNSDT), INTENT(INOUT) :: returns INTEGER, INTENT(IN) :: time_step REAL(sp), DIMENSION(mesh%nac), INTENT(IN) :: ac_mlt REAL(sp), DIMENSION(mesh%nac) :: ac_mlt_b @@ -15306,7 +15306,7 @@ SUBROUTINE GR4_RI_TIME_STEP(setup, mesh, input_data, options, returns& TYPE(MESHDT), INTENT(IN) :: mesh TYPE(INPUT_DATADT), INTENT(IN) :: input_data TYPE(OPTIONSDT), INTENT(IN) :: options - TYPE(RETURNSDT), INTENT(IN) :: returns + TYPE(RETURNSDT), INTENT(INOUT) :: returns INTEGER, INTENT(IN) :: time_step REAL(sp), DIMENSION(mesh%nac), INTENT(IN) :: ac_mlt REAL(sp), DIMENSION(mesh%nac), INTENT(IN) :: ac_ci, ac_cp, ac_ct, & @@ -16862,7 +16862,7 @@ SUBROUTINE GR5_RI_TIME_STEP_D(setup, mesh, input_data, options, & TYPE(MESHDT), INTENT(IN) :: mesh TYPE(INPUT_DATADT), INTENT(IN) :: input_data TYPE(OPTIONSDT), INTENT(IN) :: options - TYPE(RETURNSDT), INTENT(IN) :: returns + TYPE(RETURNSDT), INTENT(INOUT) :: returns INTEGER, INTENT(IN) :: time_step REAL(sp), DIMENSION(mesh%nac), INTENT(IN) :: ac_mlt REAL(sp), DIMENSION(mesh%nac), INTENT(IN) :: ac_mlt_d @@ -16962,7 +16962,7 @@ SUBROUTINE GR5_RI_TIME_STEP_B(setup, mesh, input_data, options, & TYPE(MESHDT), INTENT(IN) :: mesh TYPE(INPUT_DATADT), INTENT(IN) :: input_data TYPE(OPTIONSDT), INTENT(IN) :: options - TYPE(RETURNSDT), INTENT(IN) :: returns + TYPE(RETURNSDT), INTENT(INOUT) :: returns INTEGER, INTENT(IN) :: time_step REAL(sp), DIMENSION(mesh%nac), INTENT(IN) :: ac_mlt REAL(sp), DIMENSION(mesh%nac) :: ac_mlt_b @@ -17110,7 +17110,7 @@ SUBROUTINE GR5_RI_TIME_STEP(setup, mesh, input_data, options, returns& TYPE(MESHDT), INTENT(IN) :: mesh TYPE(INPUT_DATADT), INTENT(IN) :: input_data TYPE(OPTIONSDT), INTENT(IN) :: options - TYPE(RETURNSDT), INTENT(IN) :: returns + TYPE(RETURNSDT), INTENT(INOUT) :: returns INTEGER, INTENT(IN) :: time_step REAL(sp), DIMENSION(mesh%nac), INTENT(IN) :: ac_mlt REAL(sp), DIMENSION(mesh%nac), INTENT(IN) :: ac_ci, ac_cp, ac_ct, & diff --git a/smash/fcore/forward/forward_openmp_db.f90 b/smash/fcore/forward/forward_openmp_db.f90 index bdca3b45..d09d2f3c 100644 --- a/smash/fcore/forward/forward_openmp_db.f90 +++ b/smash/fcore/forward/forward_openmp_db.f90 @@ -15178,7 +15178,7 @@ SUBROUTINE GR4_RI_TIME_STEP_D(setup, mesh, input_data, options, & TYPE(MESHDT), INTENT(IN) :: mesh TYPE(INPUT_DATADT), INTENT(IN) :: input_data TYPE(OPTIONSDT), INTENT(IN) :: options - TYPE(RETURNSDT), INTENT(IN) :: returns + TYPE(RETURNSDT), INTENT(INOUT) :: returns INTEGER, INTENT(IN) :: time_step REAL(sp), DIMENSION(mesh%nac), INTENT(IN) :: ac_mlt REAL(sp), DIMENSION(mesh%nac), INTENT(IN) :: ac_mlt_d @@ -15284,7 +15284,7 @@ SUBROUTINE GR4_RI_TIME_STEP_B(setup, mesh, input_data, options, & TYPE(MESHDT), INTENT(IN) :: mesh TYPE(INPUT_DATADT), INTENT(IN) :: input_data TYPE(OPTIONSDT), INTENT(IN) :: options - TYPE(RETURNSDT), INTENT(IN) :: returns + TYPE(RETURNSDT), INTENT(INOUT) :: returns INTEGER, INTENT(IN) :: time_step REAL(sp), DIMENSION(mesh%nac), INTENT(IN) :: ac_mlt REAL(sp), DIMENSION(mesh%nac) :: ac_mlt_b @@ -15474,7 +15474,7 @@ SUBROUTINE GR4_RI_TIME_STEP(setup, mesh, input_data, options, returns& TYPE(MESHDT), INTENT(IN) :: mesh TYPE(INPUT_DATADT), INTENT(IN) :: input_data TYPE(OPTIONSDT), INTENT(IN) :: options - TYPE(RETURNSDT), INTENT(IN) :: returns + TYPE(RETURNSDT), INTENT(INOUT) :: returns INTEGER, INTENT(IN) :: time_step REAL(sp), DIMENSION(mesh%nac), INTENT(IN) :: ac_mlt REAL(sp), DIMENSION(mesh%nac), INTENT(IN) :: ac_ci, ac_cp, ac_ct, & @@ -17212,7 +17212,7 @@ SUBROUTINE GR5_RI_TIME_STEP_D(setup, mesh, input_data, options, & TYPE(MESHDT), INTENT(IN) :: mesh TYPE(INPUT_DATADT), INTENT(IN) :: input_data TYPE(OPTIONSDT), INTENT(IN) :: options - TYPE(RETURNSDT), INTENT(IN) :: returns + TYPE(RETURNSDT), INTENT(INOUT) :: returns INTEGER, INTENT(IN) :: time_step REAL(sp), DIMENSION(mesh%nac), INTENT(IN) :: ac_mlt REAL(sp), DIMENSION(mesh%nac), INTENT(IN) :: ac_mlt_d @@ -17320,7 +17320,7 @@ SUBROUTINE GR5_RI_TIME_STEP_B(setup, mesh, input_data, options, & TYPE(MESHDT), INTENT(IN) :: mesh TYPE(INPUT_DATADT), INTENT(IN) :: input_data TYPE(OPTIONSDT), INTENT(IN) :: options - TYPE(RETURNSDT), INTENT(IN) :: returns + TYPE(RETURNSDT), INTENT(INOUT) :: returns INTEGER, INTENT(IN) :: time_step REAL(sp), DIMENSION(mesh%nac), INTENT(IN) :: ac_mlt REAL(sp), DIMENSION(mesh%nac) :: ac_mlt_b @@ -17512,7 +17512,7 @@ SUBROUTINE GR5_RI_TIME_STEP(setup, mesh, input_data, options, returns& TYPE(MESHDT), INTENT(IN) :: mesh TYPE(INPUT_DATADT), INTENT(IN) :: input_data TYPE(OPTIONSDT), INTENT(IN) :: options - TYPE(RETURNSDT), INTENT(IN) :: returns + TYPE(RETURNSDT), INTENT(INOUT) :: returns INTEGER, INTENT(IN) :: time_step REAL(sp), DIMENSION(mesh%nac), INTENT(IN) :: ac_mlt REAL(sp), DIMENSION(mesh%nac), INTENT(IN) :: ac_ci, ac_cp, ac_ct, &