Skip to content
Snippets Groups Projects
Commit bf7e35a0 authored by RODIER Quentin's avatar RODIER Quentin
Browse files

Quentin 28/07/2022: minor cleaning

parent d2a5c138
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
src/common/turb/mode_turb_ver_thermo_flux.F90
+ 0
− 2
View file @ bf7e35a0
...@@ -237,7 +237,6 @@ USE MODD_METRICS_n, ONLY: XDXX, XDYY, XDZX, XDZY, XDZZ ...@@ -237,7 +237,6 @@ USE MODD_METRICS_n, ONLY: XDXX, XDYY, XDZX, XDZY, XDZZ
USE MODD_PARAMETERS, ONLY: JPVEXT_TURB, JPHEXT USE MODD_PARAMETERS, ONLY: JPVEXT_TURB, JPHEXT
USE MODD_TURB_n, ONLY: TURB_t USE MODD_TURB_n, ONLY: TURB_t
USE MODD_LES USE MODD_LES
USE MODD_DIM_n, ONLY: NIMAX_ll, NJMAX_ll
USE MODD_OCEANH, ONLY: XSSTFL USE MODD_OCEANH, ONLY: XSSTFL
USE MODD_TURB_n, ONLY: TURB_t USE MODD_TURB_n, ONLY: TURB_t
! !
...@@ -393,7 +392,6 @@ INTEGER :: IIE,IJE ! Upper bounds of the physical ...@@ -393,7 +392,6 @@ INTEGER :: IIE,IJE ! Upper bounds of the physical
! !
REAL :: ZTIME1, ZTIME2 REAL :: ZTIME1, ZTIME2
REAL :: ZDELTAX REAL :: ZDELTAX
REAL, DIMENSION(D%NIT,D%NJT) :: ZDIST ! distance
! from the center of the cooling ! from the center of the cooling
REAL :: ZFLPROV REAL :: ZFLPROV
INTEGER :: JKM ! vertical index loop INTEGER :: JKM ! vertical index loop
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment

Documentation | Mentions légales | CGU | Accessibilité : non conforme