From f440e2a24a48d383d5ac6e421932ed78b655d36e Mon Sep 17 00:00:00 2001 From: Quentin Rodier <quentin.rodier@meteo.fr> Date: Tue, 19 Jul 2022 16:19:48 +0200 Subject: [PATCH] Quentin 19/07/2022: bugfix GPU merge (duplication of declaration of OTURB_DIAG) --- src/common/turb/mode_tke_eps_sources.F90 | 2 -- 1 file changed, 2 deletions(-) diff --git a/src/common/turb/mode_tke_eps_sources.F90 b/src/common/turb/mode_tke_eps_sources.F90 index 6d8332a9a..605e5d3a6 100644 --- a/src/common/turb/mode_tke_eps_sources.F90 +++ b/src/common/turb/mode_tke_eps_sources.F90 @@ -182,8 +182,6 @@ CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! CPROGRAM is the program TYPE(TFILEDATA), INTENT(IN) :: TPFILE ! Output file LOGICAL, INTENT(IN) :: OLES_CALL ! LOGICAL, INTENT(IN) :: OTURB_DIAG ! switch to write some -LOGICAL, INTENT(IN) :: ODIAG_IN_RUN ! switch to activate online diagnostics (mesonh) - ! diagnostic fields in the syncronous FM-file LOGICAL, INTENT(IN) :: ODIAG_IN_RUN ! switch to activate online diagnostics (mesonh) REAL, DIMENSION(D%NIJT,D%NKT), INTENT(INOUT):: PDP ! Dyn. prod. of TKE REAL, DIMENSION(D%NIJT,D%NKT), INTENT(IN) :: PTRH -- GitLab