From f06a12ece18d07d0718f66ae0e9705d3326fd1be Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Mon, 26 Oct 2020 16:01:11 +0100
Subject: [PATCH] Philippe 26/10/2020: LES budgets: remove unused variables
---
src/MNH/ini_lesn.f90 | 10 ----------
src/MNH/modd_lesn.f90 | 23 +----------------------
2 files changed, 1 insertion(+), 32 deletions(-)
diff --git a/src/MNH/ini_lesn.f90 b/src/MNH/ini_lesn.f90
index b0c6b3132..40fd4bb1d 100644
--- a/src/MNH/ini_lesn.f90
+++ b/src/MNH/ini_lesn.f90
@@ -749,7 +749,6 @@ ALLOCATE(XLES_RESOLVED_W3 (NLES_K,NLES_TIMES,NLES_MASKS)) ! <w'3>
ALLOCATE(XLES_RESOLVED_U4 (NLES_K,NLES_TIMES,NLES_MASKS)) ! <u'4>
ALLOCATE(XLES_RESOLVED_V4 (NLES_K,NLES_TIMES,NLES_MASKS)) ! <v'4>
ALLOCATE(XLES_RESOLVED_W4 (NLES_K,NLES_TIMES,NLES_MASKS)) ! <w'4>
-ALLOCATE(XLES_RESOLVED_Ua_ddxa_P(NLES_K,NLES_TIMES,NLES_MASKS)) ! <ua'dp'/dxa>
ALLOCATE(XLES_RESOLVED_ThlPz (NLES_K,NLES_TIMES,NLES_MASKS)) ! <Thv'dp'/dz>
ALLOCATE(XLES_RESOLVED_WThl2 (NLES_K,NLES_TIMES,NLES_MASKS)) ! <w'Thl'2>
ALLOCATE(XLES_RESOLVED_W2Thl (NLES_K,NLES_TIMES,NLES_MASKS)) ! <w'2Thl'>
@@ -939,7 +938,6 @@ XLES_RESOLVED_W3 = XUNDEF
XLES_RESOLVED_U4 = XUNDEF
XLES_RESOLVED_V4 = XUNDEF
XLES_RESOLVED_W4 = XUNDEF
-XLES_RESOLVED_Ua_ddxa_P = XUNDEF
XLES_RESOLVED_WThl2 = XUNDEF
XLES_RESOLVED_W2Thl = XUNDEF
XLES_RESOLVED_ThlPz = XUNDEF
@@ -1964,14 +1962,6 @@ IF (LUSERC ) XCORRj_RcRc = XUNDEF
IF (LUSERI ) XCORRj_RiRi = XUNDEF
IF (NSV>0 ) XCORRj_SvSv = XUNDEF
!
-!
-! 9.3 Two-points correlations in K direction
-! --------------------------------------
-!
-ALLOCATE(XCORRk_WW (NLES_K,NSPECTRA_K,NLES_TIMES))
-!
-XCORRk_WW = XUNDEF
-!
!-------------------------------------------------------------------------------
!
END SUBROUTINE INI_LES_n
diff --git a/src/MNH/modd_lesn.f90 b/src/MNH/modd_lesn.f90
index 9fe76c3f8..918050267 100644
--- a/src/MNH/modd_lesn.f90
+++ b/src/MNH/modd_lesn.f90
@@ -1,4 +1,4 @@
-!MNH_LIC Copyright 1995-2019 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 1995-2020 CNRS, Meteo-France and Universite Paul Sabatier
!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
!MNH_LIC for details. version 1.
@@ -205,7 +205,6 @@ TYPE LES_t
REAL, DIMENSION(:,:,:), POINTER :: XLES_RESOLVED_U4=>NULL() ! <u'4>
REAL, DIMENSION(:,:,:), POINTER :: XLES_RESOLVED_V4=>NULL() ! <v'4>
REAL, DIMENSION(:,:,:), POINTER :: XLES_RESOLVED_W4=>NULL() ! <w'4>
- REAL, DIMENSION(:,:,:), POINTER :: XLES_RESOLVED_Ua_ddxa_P=>NULL() ! <ua'dp'/dxa>
REAL, DIMENSION(:,:,:), POINTER :: XLES_RESOLVED_ThlPz=>NULL() ! <Thl'dp'/dz>
REAL, DIMENSION(:,:,:), POINTER :: XLES_RESOLVED_WThl2=>NULL() ! <w'Thl'2>
REAL, DIMENSION(:,:,:), POINTER :: XLES_RESOLVED_W2Thl=>NULL() ! <w'2Thl'>
@@ -338,10 +337,6 @@ TYPE LES_t
REAL, DIMENSION(:,:,:), POINTER :: XLES_SUBGRID_VThl=>NULL() ! <v'Thl'>
! ______
REAL, DIMENSION(:,:,:), POINTER :: XLES_SUBGRID_WThl=>NULL() ! <w'Thl'>
-! _____
- REAL, DIMENSION(:,:,:), POINTER :: XLES_SUBGRID_ENTLES=>NULL() ! Up entr flux
-! _____
- REAL, DIMENSION(:,:,:), POINTER :: XLES_SUBGRID_DETLES=>NULL() ! Up detr flux
! _____
REAL, DIMENSION(:,:,:), POINTER :: XLES_SUBGRID_URt=>NULL() ! <u'Rt'>
! _____
@@ -641,10 +636,6 @@ TYPE LES_t
!
!-------------------------------------------------------------------------------
!
-!* 2-points correlations in K direction
-!
- REAL, DIMENSION(:,:,:), POINTER :: XCORRk_WW=>NULL() ! between w and w
-!
!lw and sw fluxes up and down
REAL, DIMENSION(:,:), POINTER :: XLES_SWU => NULL() !mean on the domain of the sw_up flux
!temporal serie
@@ -782,7 +773,6 @@ REAL, DIMENSION(:,:,:), POINTER :: XLES_RESOLVED_W3=>NULL()
REAL, DIMENSION(:,:,:), POINTER :: XLES_RESOLVED_U4=>NULL()
REAL, DIMENSION(:,:,:), POINTER :: XLES_RESOLVED_V4=>NULL()
REAL, DIMENSION(:,:,:), POINTER :: XLES_RESOLVED_W4=>NULL()
-REAL, DIMENSION(:,:,:), POINTER :: XLES_RESOLVED_Ua_ddxa_P=>NULL()
REAL, DIMENSION(:,:,:), POINTER :: XLES_RESOLVED_ThlPz=>NULL()
REAL, DIMENSION(:,:,:), POINTER :: XLES_RESOLVED_WThl2=>NULL()
REAL, DIMENSION(:,:,:), POINTER :: XLES_RESOLVED_W2Thl=>NULL()
@@ -865,8 +855,6 @@ REAL, DIMENSION(:,:,:), POINTER :: XLES_SUBGRID_WV=>NULL()
REAL, DIMENSION(:,:,:), POINTER :: XLES_SUBGRID_UThl=>NULL()
REAL, DIMENSION(:,:,:), POINTER :: XLES_SUBGRID_VThl=>NULL()
REAL, DIMENSION(:,:,:), POINTER :: XLES_SUBGRID_WThl=>NULL()
-REAL, DIMENSION(:,:,:), POINTER :: XLES_SUBGRID_ENTLES=>NULL()
-REAL, DIMENSION(:,:,:), POINTER :: XLES_SUBGRID_DETLES=>NULL()
REAL, DIMENSION(:,:,:), POINTER :: XLES_SUBGRID_URt=>NULL()
REAL, DIMENSION(:,:,:), POINTER :: XLES_SUBGRID_VRt=>NULL()
REAL, DIMENSION(:,:,:), POINTER :: XLES_SUBGRID_WRt=>NULL()
@@ -1084,7 +1072,6 @@ REAL, DIMENSION(:,:,:), POINTER :: XCORRj_RvRv=>NULL()
REAL, DIMENSION(:,:,:), POINTER :: XCORRj_RcRc=>NULL()
REAL, DIMENSION(:,:,:), POINTER :: XCORRj_RiRi=>NULL()
REAL, DIMENSION(:,:,:,:), POINTER :: XCORRj_SvSv=>NULL()
-REAL, DIMENSION(:,:,:), POINTER :: XCORRk_WW=>NULL()
REAL, DIMENSION(:,:), POINTER :: XLES_SWU=>NULL()
REAL, DIMENSION(:,:), POINTER :: XLES_SWD=>NULL()
REAL, DIMENSION(:,:), POINTER :: XLES_LWU=>NULL()
@@ -1210,7 +1197,6 @@ LES_MODEL(KFROM)%XLES_RESOLVED_W3=>XLES_RESOLVED_W3
LES_MODEL(KFROM)%XLES_RESOLVED_U4=>XLES_RESOLVED_U4
LES_MODEL(KFROM)%XLES_RESOLVED_V4=>XLES_RESOLVED_V4
LES_MODEL(KFROM)%XLES_RESOLVED_W4=>XLES_RESOLVED_W4
-LES_MODEL(KFROM)%XLES_RESOLVED_Ua_ddxa_P=>XLES_RESOLVED_Ua_ddxa_P
LES_MODEL(KFROM)%XLES_RESOLVED_ThlPz=>XLES_RESOLVED_ThlPz
LES_MODEL(KFROM)%XLES_RESOLVED_WThl2=>XLES_RESOLVED_WThl2
LES_MODEL(KFROM)%XLES_RESOLVED_W2Thl=>XLES_RESOLVED_W2Thl
@@ -1293,8 +1279,6 @@ LES_MODEL(KFROM)%XLES_SUBGRID_WV=>XLES_SUBGRID_WV
LES_MODEL(KFROM)%XLES_SUBGRID_UThl=>XLES_SUBGRID_UThl
LES_MODEL(KFROM)%XLES_SUBGRID_VThl=>XLES_SUBGRID_VThl
LES_MODEL(KFROM)%XLES_SUBGRID_WThl=>XLES_SUBGRID_WThl
-LES_MODEL(KFROM)%XLES_SUBGRID_ENTLES=>XLES_SUBGRID_ENTLES
-LES_MODEL(KFROM)%XLES_SUBGRID_DETLES=>XLES_SUBGRID_DETLES
LES_MODEL(KFROM)%XLES_SUBGRID_URt=>XLES_SUBGRID_URt
LES_MODEL(KFROM)%XLES_SUBGRID_VRt=>XLES_SUBGRID_VRt
LES_MODEL(KFROM)%XLES_SUBGRID_WRt=>XLES_SUBGRID_WRt
@@ -1512,7 +1496,6 @@ LES_MODEL(KFROM)%XCORRj_RvRv=>XCORRj_RvRv
LES_MODEL(KFROM)%XCORRj_RcRc=>XCORRj_RcRc
LES_MODEL(KFROM)%XCORRj_RiRi=>XCORRj_RiRi
LES_MODEL(KFROM)%XCORRj_SvSv=>XCORRj_SvSv
-LES_MODEL(KFROM)%XCORRk_WW=>XCORRk_WW
LES_MODEL(KFROM)%XLES_SWU=>XLES_SWU
LES_MODEL(KFROM)%XLES_SWD=>XLES_SWD
LES_MODEL(KFROM)%XLES_LWU=>XLES_LWU
@@ -1639,7 +1622,6 @@ XLES_RESOLVED_W3=>LES_MODEL(KTO)%XLES_RESOLVED_W3
XLES_RESOLVED_U4=>LES_MODEL(KTO)%XLES_RESOLVED_U4
XLES_RESOLVED_V4=>LES_MODEL(KTO)%XLES_RESOLVED_V4
XLES_RESOLVED_W4=>LES_MODEL(KTO)%XLES_RESOLVED_W4
-XLES_RESOLVED_Ua_ddxa_P=>LES_MODEL(KTO)%XLES_RESOLVED_Ua_ddxa_P
XLES_RESOLVED_ThlPz=>LES_MODEL(KTO)%XLES_RESOLVED_ThlPz
XLES_RESOLVED_WThl2=>LES_MODEL(KTO)%XLES_RESOLVED_WThl2
XLES_RESOLVED_W2Thl=>LES_MODEL(KTO)%XLES_RESOLVED_W2Thl
@@ -1722,8 +1704,6 @@ XLES_SUBGRID_WV=>LES_MODEL(KTO)%XLES_SUBGRID_WV
XLES_SUBGRID_UThl=>LES_MODEL(KTO)%XLES_SUBGRID_UThl
XLES_SUBGRID_VThl=>LES_MODEL(KTO)%XLES_SUBGRID_VThl
XLES_SUBGRID_WThl=>LES_MODEL(KTO)%XLES_SUBGRID_WThl
-XLES_SUBGRID_ENTLES=>LES_MODEL(KTO)%XLES_SUBGRID_ENTLES
-XLES_SUBGRID_DETLES=>LES_MODEL(KTO)%XLES_SUBGRID_DETLES
XLES_SUBGRID_URt=>LES_MODEL(KTO)%XLES_SUBGRID_URt
XLES_SUBGRID_VRt=>LES_MODEL(KTO)%XLES_SUBGRID_VRt
XLES_SUBGRID_WRt=>LES_MODEL(KTO)%XLES_SUBGRID_WRt
@@ -1941,7 +1921,6 @@ XCORRj_RvRv=>LES_MODEL(KTO)%XCORRj_RvRv
XCORRj_RcRc=>LES_MODEL(KTO)%XCORRj_RcRc
XCORRj_RiRi=>LES_MODEL(KTO)%XCORRj_RiRi
XCORRj_SvSv=>LES_MODEL(KTO)%XCORRj_SvSv
-XCORRk_WW=>LES_MODEL(KTO)%XCORRk_WW
XLES_SWU=>LES_MODEL(KTO)%XLES_SWU
XLES_SWD=>LES_MODEL(KTO)%XLES_SWD
XLES_LWU=>LES_MODEL(KTO)%XLES_LWU
--
GitLab