From 3a2df3f9e3c25419415dfb1f26804171637d7d5c Mon Sep 17 00:00:00 2001
From: Quentin Rodier <quentin.rodier@meteo.fr>
Date: Thu, 16 Feb 2023 12:05:23 +0100
Subject: [PATCH] Quentin 16/02/2023: rename gradient_phy and shuman_phy to
mode_
---
.../aux/{gradient_m_phy.F90 => mode_gradient_m_phy.F90} | 4 ++--
.../aux/{gradient_u_phy.F90 => mode_gradient_u_phy.F90} | 4 ++--
.../aux/{gradient_v_phy.F90 => mode_gradient_v_phy.F90} | 4 ++--
.../aux/{gradient_w_phy.F90 => mode_gradient_w_phy.F90} | 6 +++---
src/common/aux/shuman_phy.F90 | 4 ++--
src/common/turb/mode_prandtl.F90 | 2 +-
src/common/turb/mode_rmc01.F90 | 2 +-
src/common/turb/mode_tke_eps_sources.F90 | 2 +-
src/common/turb/mode_tridiag_thermo.F90 | 2 +-
src/common/turb/mode_turb_ver_dyn_flux.F90 | 2 +-
src/common/turb/mode_turb_ver_sv_corr.F90 | 2 +-
src/common/turb/mode_turb_ver_sv_flux.F90 | 2 +-
src/common/turb/mode_turb_ver_thermo_corr.F90 | 2 +-
src/common/turb/mode_turb_ver_thermo_flux.F90 | 2 +-
src/common/turb/shallow_mf.F90 | 2 +-
src/common/turb/turb.F90 | 2 +-
src/mesonh/aux/shuman_phy.f90 | 4 ++--
17 files changed, 24 insertions(+), 24 deletions(-)
rename src/common/aux/{gradient_m_phy.F90 => mode_gradient_m_phy.F90} (99%)
rename src/common/aux/{gradient_u_phy.F90 => mode_gradient_u_phy.F90} (98%)
rename src/common/aux/{gradient_v_phy.F90 => mode_gradient_v_phy.F90} (98%)
rename src/common/aux/{gradient_w_phy.F90 => mode_gradient_w_phy.F90} (98%)
diff --git a/src/common/aux/gradient_m_phy.F90 b/src/common/aux/mode_gradient_m_phy.F90
similarity index 99%
rename from src/common/aux/gradient_m_phy.F90
rename to src/common/aux/mode_gradient_m_phy.F90
index 348dea22e..6f3c34f01 100644
--- a/src/common/aux/gradient_m_phy.F90
+++ b/src/common/aux/mode_gradient_m_phy.F90
@@ -166,7 +166,7 @@ SUBROUTINE GX_M_M_PHY(D,OFLAT,PA,PDXX,PDZZ,PDZX,PGX_M_M)
!
!
USE MODD_DIMPHYEX, ONLY: DIMPHYEX_t
-USE SHUMAN_PHY, ONLY: DXF_PHY, MZF_PHY, DZM_PHY, MXF_PHY, MXM_PHY
+USE MODE_SHUMAN_PHY, ONLY: DXF_PHY, MZF_PHY, DZM_PHY, MXF_PHY, MXM_PHY
!
IMPLICIT NONE
!
@@ -290,7 +290,7 @@ END SUBROUTINE GX_M_M_PHY
!
!
USE MODD_DIMPHYEX, ONLY: DIMPHYEX_t
-USE SHUMAN_PHY, ONLY: DYF_PHY, MZF_PHY, DZM_PHY, MYF_PHY, MYM_PHY
+USE MODE_SHUMAN_PHY, ONLY: DYF_PHY, MZF_PHY, DZM_PHY, MYF_PHY, MYM_PHY
!
IMPLICIT NONE
!
diff --git a/src/common/aux/gradient_u_phy.F90 b/src/common/aux/mode_gradient_u_phy.F90
similarity index 98%
rename from src/common/aux/gradient_u_phy.F90
rename to src/common/aux/mode_gradient_u_phy.F90
index ff685a0c1..f66dfeff7 100644
--- a/src/common/aux/gradient_u_phy.F90
+++ b/src/common/aux/mode_gradient_u_phy.F90
@@ -53,7 +53,7 @@ CONTAINS
!* 0. DECLARATIONS
!
!
-USE SHUMAN_PHY, ONLY : DZM_PHY, MXM_PHY
+USE MODE_SHUMAN_PHY, ONLY : DZM_PHY, MXM_PHY
USE MODD_DIMPHYEX, ONLY: DIMPHYEX_t
!
IMPLICIT NONE
@@ -158,7 +158,7 @@ END SUBROUTINE GZ_U_UW_PHY
!* 0. DECLARATIONS
!
!
-USE SHUMAN_PHY, ONLY : DZM_PHY, DXF_PHY, MXF_PHY, MZF_PHY
+USE MODE_SHUMAN_PHY, ONLY : DZM_PHY, DXF_PHY, MXF_PHY, MZF_PHY
USE MODD_DIMPHYEX, ONLY: DIMPHYEX_t
!
IMPLICIT NONE
diff --git a/src/common/aux/gradient_v_phy.F90 b/src/common/aux/mode_gradient_v_phy.F90
similarity index 98%
rename from src/common/aux/gradient_v_phy.F90
rename to src/common/aux/mode_gradient_v_phy.F90
index 66ec0b4ca..0e29c0064 100644
--- a/src/common/aux/gradient_v_phy.F90
+++ b/src/common/aux/mode_gradient_v_phy.F90
@@ -54,7 +54,7 @@ CONTAINS
!* 0. DECLARATIONS
!
!
-USE SHUMAN_PHY, ONLY : DZM_PHY, MYM_PHY
+USE MODE_SHUMAN_PHY, ONLY : DZM_PHY, MYM_PHY
USE MODD_DIMPHYEX, ONLY: DIMPHYEX_t
!
IMPLICIT NONE
@@ -154,7 +154,7 @@ END SUBROUTINE GZ_V_VW_PHY
!* 0. DECLARATIONS
!
!
-USE SHUMAN_PHY, ONLY : DZM_PHY, DYF_PHY, MYF_PHY, MZF_PHY
+USE MODE_SHUMAN_PHY, ONLY : DZM_PHY, DYF_PHY, MYF_PHY, MZF_PHY
USE MODD_DIMPHYEX, ONLY: DIMPHYEX_t
!
IMPLICIT NONE
diff --git a/src/common/aux/gradient_w_phy.F90 b/src/common/aux/mode_gradient_w_phy.F90
similarity index 98%
rename from src/common/aux/gradient_w_phy.F90
rename to src/common/aux/mode_gradient_w_phy.F90
index 0377f0991..0f8db721b 100644
--- a/src/common/aux/gradient_w_phy.F90
+++ b/src/common/aux/mode_gradient_w_phy.F90
@@ -50,7 +50,7 @@ CONTAINS
!* 0. DECLARATIONS
!
!
-USE SHUMAN_PHY, ONLY: MZF_PHY, DZF_PHY, MXM_PHY, DXM_PHY, MZM_PHY, DZM_PHY
+USE MODE_SHUMAN_PHY, ONLY: MZF_PHY, DZF_PHY, MXM_PHY, DXM_PHY, MZM_PHY, DZM_PHY
USE MODD_DIMPHYEX, ONLY: DIMPHYEX_t
!
IMPLICIT NONE
@@ -162,7 +162,7 @@ END SUBROUTINE GX_W_UW_PHY
!* 0. DECLARATIONS
!
!
-USE SHUMAN_PHY, ONLY: MZF_PHY, DZF_PHY, MYM_PHY, DYM_PHY, MZM_PHY, DZM_PHY
+USE MODE_SHUMAN_PHY, ONLY: MZF_PHY, DZF_PHY, MYM_PHY, DYM_PHY, MZM_PHY, DZM_PHY
USE MODD_DIMPHYEX, ONLY: DIMPHYEX_t
!
IMPLICIT NONE
@@ -280,7 +280,7 @@ END SUBROUTINE GY_W_VW_PHY
!* 0. DECLARATIONS
!
!
-USE SHUMAN_PHY, ONLY: MZF_PHY, DZF_PHY
+USE MODE_SHUMAN_PHY, ONLY: MZF_PHY, DZF_PHY
USE MODD_DIMPHYEX, ONLY: DIMPHYEX_t
!
IMPLICIT NONE
diff --git a/src/common/aux/shuman_phy.F90 b/src/common/aux/shuman_phy.F90
index 112da4864..ab0244733 100644
--- a/src/common/aux/shuman_phy.F90
+++ b/src/common/aux/shuman_phy.F90
@@ -1,4 +1,4 @@
-MODULE SHUMAN_PHY
+MODULE MODE_SHUMAN_PHY
IMPLICIT NONE
CONTAINS
! ###############################
@@ -1331,4 +1331,4 @@ CALL ABORT ! AROME SHOULD NOT CALLED HORIZONTAL FINITE DIFFERENCE
IF (LHOOK) CALL DR_HOOK('DYF',1,ZHOOK_HANDLE)
END SUBROUTINE DYF_PHY
!
-END MODULE SHUMAN_PHY
+END MODULE MODE_SHUMAN_PHY
diff --git a/src/common/turb/mode_prandtl.F90 b/src/common/turb/mode_prandtl.F90
index 9a0d77c6d..0b2b63ecd 100644
--- a/src/common/turb/mode_prandtl.F90
+++ b/src/common/turb/mode_prandtl.F90
@@ -17,7 +17,7 @@ USE MODD_CTURB, ONLY : CSTURB_t
USE MODD_DIMPHYEX, ONLY : DIMPHYEX_t
USE MODD_PARAMETERS, ONLY : JPVEXT_TURB
!
-USE SHUMAN_PHY, ONLY: MZM_PHY,MZF_PHY
+USE MODE_SHUMAN_PHY, ONLY: MZM_PHY,MZF_PHY
USE MODE_GRADIENT_M_PHY
IMPLICIT NONE
!----------------------------------------------------------------------------
diff --git a/src/common/turb/mode_rmc01.F90 b/src/common/turb/mode_rmc01.F90
index 5a980a92b..59f254a0d 100644
--- a/src/common/turb/mode_rmc01.F90
+++ b/src/common/turb/mode_rmc01.F90
@@ -53,7 +53,7 @@ USE MODD_CTURB, ONLY: CSTURB_t
USE MODE_UPDATE_IIJU_PHY, ONLY: UPDATE_IIJU_PHY
USE MODE_SBL_PHY, ONLY: BUSINGER_PHIM, BUSINGER_PHIE
!
-USE SHUMAN_PHY, ONLY: MZF_PHY, MYF_PHY, MXF_PHY
+USE MODE_SHUMAN_PHY, ONLY: MZF_PHY, MYF_PHY, MXF_PHY
!
IMPLICIT NONE
!
diff --git a/src/common/turb/mode_tke_eps_sources.F90 b/src/common/turb/mode_tke_eps_sources.F90
index f7f6a5082..91286d4bc 100644
--- a/src/common/turb/mode_tke_eps_sources.F90
+++ b/src/common/turb/mode_tke_eps_sources.F90
@@ -128,7 +128,7 @@ CONTAINS
! ------------
!
USE PARKIND1, ONLY: JPRB
-USE SHUMAN_PHY, ONLY: MZM_PHY, MZF_PHY, DZF_PHY, DZM_PHY
+USE MODE_SHUMAN_PHY, ONLY: MZM_PHY, MZF_PHY, DZF_PHY, DZM_PHY
USE YOMHOOK, ONLY: LHOOK, DR_HOOK
!
USE MODD_ARGSLIST_ll, ONLY: LIST_ll
diff --git a/src/common/turb/mode_tridiag_thermo.F90 b/src/common/turb/mode_tridiag_thermo.F90
index fcef93a97..23d959b9b 100644
--- a/src/common/turb/mode_tridiag_thermo.F90
+++ b/src/common/turb/mode_tridiag_thermo.F90
@@ -122,7 +122,7 @@ USE MODD_DIMPHYEX, ONLY : DIMPHYEX_t
USE MODD_PARAMETERS, ONLY : JPVEXT_TURB
!
USE MODI_SHUMAN, ONLY : MZM
-USE SHUMAN_PHY, ONLY: MZM_PHY
+USE MODE_SHUMAN_PHY, ONLY: MZM_PHY
!
IMPLICIT NONE
!
diff --git a/src/common/turb/mode_turb_ver_dyn_flux.F90 b/src/common/turb/mode_turb_ver_dyn_flux.F90
index 17f8d5500..43bc13f26 100644
--- a/src/common/turb/mode_turb_ver_dyn_flux.F90
+++ b/src/common/turb/mode_turb_ver_dyn_flux.F90
@@ -205,7 +205,7 @@ SUBROUTINE TURB_VER_DYN_FLUX(D,CST,CSTURB,TURBN,TLES,KSV,O2D,OFLAT, &
! ------------
!
USE PARKIND1, ONLY: JPRB
-USE SHUMAN_PHY
+USE MODE_SHUMAN_PHY
USE YOMHOOK, ONLY: LHOOK, DR_HOOK
!
USE MODD_CST, ONLY: CST_t
diff --git a/src/common/turb/mode_turb_ver_sv_corr.F90 b/src/common/turb/mode_turb_ver_sv_corr.F90
index 2a1915b22..64acbc7f8 100644
--- a/src/common/turb/mode_turb_ver_sv_corr.F90
+++ b/src/common/turb/mode_turb_ver_sv_corr.F90
@@ -62,7 +62,7 @@ USE MODD_DIMPHYEX, ONLY: DIMPHYEX_t
USE MODD_PARAMETERS, ONLY: JPVEXT_TURB
USE MODD_LES, ONLY: TLES_t
!
-USE SHUMAN_PHY, ONLY: MZF_PHY
+USE MODE_SHUMAN_PHY, ONLY: MZF_PHY
USE MODE_GRADIENT_M_PHY, ONLY : GZ_M_W_PHY
USE MODE_EMOIST, ONLY: EMOIST
USE MODE_ETHETA, ONLY: ETHETA
diff --git a/src/common/turb/mode_turb_ver_sv_flux.F90 b/src/common/turb/mode_turb_ver_sv_flux.F90
index ab552090a..45ef7cd5b 100644
--- a/src/common/turb/mode_turb_ver_sv_flux.F90
+++ b/src/common/turb/mode_turb_ver_sv_flux.F90
@@ -210,7 +210,7 @@ SUBROUTINE TURB_VER_SV_FLUX(D,CST,CSTURB,TURBN,TLES,ONOMIXLG, &
! ------------
!
USE PARKIND1, ONLY: JPRB
-USE SHUMAN_PHY, ONLY: DZM_PHY, MZM_PHY, MZF_PHY
+USE MODE_SHUMAN_PHY, ONLY: DZM_PHY, MZM_PHY, MZF_PHY
USE YOMHOOK, ONLY: LHOOK, DR_HOOK
!
USE MODD_CST, ONLY: CST_t
diff --git a/src/common/turb/mode_turb_ver_thermo_corr.F90 b/src/common/turb/mode_turb_ver_thermo_corr.F90
index 56c4e01d7..b2ce7e927 100644
--- a/src/common/turb/mode_turb_ver_thermo_corr.F90
+++ b/src/common/turb/mode_turb_ver_thermo_corr.F90
@@ -205,7 +205,7 @@ SUBROUTINE TURB_VER_THERMO_CORR(D,CST,CSTURB,TURBN,TLES, &
! ------------
!
USE PARKIND1, ONLY: JPRB
-USE SHUMAN_PHY, ONLY: MZM_PHY, MZF_PHY, DZM_PHY
+USE MODE_SHUMAN_PHY, ONLY: MZM_PHY, MZF_PHY, DZM_PHY
USE YOMHOOK, ONLY: LHOOK, DR_HOOK
!
USE MODD_CST, ONLY: CST_t
diff --git a/src/common/turb/mode_turb_ver_thermo_flux.F90 b/src/common/turb/mode_turb_ver_thermo_flux.F90
index 618fb377a..c158cc1dd 100644
--- a/src/common/turb/mode_turb_ver_thermo_flux.F90
+++ b/src/common/turb/mode_turb_ver_thermo_flux.F90
@@ -230,7 +230,7 @@ SUBROUTINE TURB_VER_THERMO_FLUX(D,CST,CSTURB,TURBN,TLES, &
! ------------
!
USE PARKIND1, ONLY: JPRB
-USE SHUMAN_PHY, ONLY: DZF_PHY, DZM_PHY, MXF_PHY, MYF_PHY, MZF_PHY, MZM_PHY
+USE MODE_SHUMAN_PHY, ONLY: DZF_PHY, DZM_PHY, MXF_PHY, MYF_PHY, MZF_PHY, MZM_PHY
USE YOMHOOK, ONLY: LHOOK, DR_HOOK
!
USE MODD_CST, ONLY: CST_t
diff --git a/src/common/turb/shallow_mf.F90 b/src/common/turb/shallow_mf.F90
index 898883076..0c6b142cb 100644
--- a/src/common/turb/shallow_mf.F90
+++ b/src/common/turb/shallow_mf.F90
@@ -73,7 +73,7 @@
! ------------
!
USE PARKIND1, ONLY: JPRB
-USE SHUMAN_PHY, ONLY: MXM_PHY, MYM_PHY
+USE MODE_SHUMAN_PHY, ONLY: MXM_PHY, MYM_PHY
USE YOMHOOK, ONLY: LHOOK, DR_HOOK
!
USE MODD_BUDGET, ONLY: TBUDGETCONF_t, TBUDGETDATA, NBUDGET_U, NBUDGET_V, &
diff --git a/src/common/turb/turb.F90 b/src/common/turb/turb.F90
index 58e0ba184..2342495d4 100644
--- a/src/common/turb/turb.F90
+++ b/src/common/turb/turb.F90
@@ -240,7 +240,7 @@
! ------------
!
USE PARKIND1, ONLY: JPRB
-USE SHUMAN_PHY, ONLY: MZF_PHY,MXF_PHY,MYF_PHY
+USE MODE_SHUMAN_PHY, ONLY: MZF_PHY,MXF_PHY,MYF_PHY
USE YOMHOOK , ONLY: LHOOK, DR_HOOK
!
USE MODD_BUDGET, ONLY: NBUDGET_U, NBUDGET_V, NBUDGET_W, NBUDGET_TH, NBUDGET_RV, NBUDGET_RC, &
diff --git a/src/mesonh/aux/shuman_phy.f90 b/src/mesonh/aux/shuman_phy.f90
index 98ab1fd07..e3e493afe 100644
--- a/src/mesonh/aux/shuman_phy.f90
+++ b/src/mesonh/aux/shuman_phy.f90
@@ -1,4 +1,4 @@
-MODULE SHUMAN_PHY
+MODULE MODE_SHUMAN_PHY
IMPLICIT NONE
CONTAINS
! ###############################
@@ -1605,4 +1605,4 @@ END DO
!
END SUBROUTINE DYF_PHY
!
-END MODULE SHUMAN_PHY
+END MODULE MODE_SHUMAN_PHY
--
GitLab