From bf7e35a00ad60a8582c3c5bb7c02e6452426f099 Mon Sep 17 00:00:00 2001
From: Quentin Rodier <quentin.rodier@meteo.fr>
Date: Thu, 28 Jul 2022 11:15:06 +0200
Subject: [PATCH] Quentin 28/07/2022: minor cleaning
---
src/common/turb/mode_turb_ver_thermo_flux.F90 | 2 --
1 file changed, 2 deletions(-)
diff --git a/src/common/turb/mode_turb_ver_thermo_flux.F90 b/src/common/turb/mode_turb_ver_thermo_flux.F90
index 2d6b76bd3..5ec51b29a 100644
--- a/src/common/turb/mode_turb_ver_thermo_flux.F90
+++ b/src/common/turb/mode_turb_ver_thermo_flux.F90
@@ -237,7 +237,6 @@ USE MODD_METRICS_n, ONLY: XDXX, XDYY, XDZX, XDZY, XDZZ
USE MODD_PARAMETERS, ONLY: JPVEXT_TURB, JPHEXT
USE MODD_TURB_n, ONLY: TURB_t
USE MODD_LES
-USE MODD_DIM_n, ONLY: NIMAX_ll, NJMAX_ll
USE MODD_OCEANH, ONLY: XSSTFL
USE MODD_TURB_n, ONLY: TURB_t
!
@@ -393,7 +392,6 @@ INTEGER :: IIE,IJE ! Upper bounds of the physical
!
REAL :: ZTIME1, ZTIME2
REAL :: ZDELTAX
-REAL, DIMENSION(D%NIT,D%NJT) :: ZDIST ! distance
! from the center of the cooling
REAL :: ZFLPROV
INTEGER :: JKM ! vertical index loop
--
GitLab