From 1569220f0a02dd91f635fb10be709342b847d9e0 Mon Sep 17 00:00:00 2001 From: Quentin Rodier <quentin.rodier@meteo.fr> Date: Sat, 26 Feb 2022 00:38:06 +0100 Subject: [PATCH] Quentin 26/02/2022: use of Mode and minor correction --- src/common/turb/mode_th_r_from_thl_rt_1d.F90 | 2 +- src/mesonh/turb/mode_compute_updraft_rhcj10.f90 | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/src/common/turb/mode_th_r_from_thl_rt_1d.F90 b/src/common/turb/mode_th_r_from_thl_rt_1d.F90 index 2356b4f3a..e31f5264e 100644 --- a/src/common/turb/mode_th_r_from_thl_rt_1d.F90 +++ b/src/common/turb/mode_th_r_from_thl_rt_1d.F90 @@ -50,7 +50,7 @@ CONTAINS ! USE PARKIND1, ONLY : JPRB USE YOMHOOK , ONLY : LHOOK, DR_HOOK -USE MODD_CST!, ONLY: XP00, XRD, XCPD, XCPV, XCL, XCI, XLVTT, XTT, XLSTT +USE MODD_CST !, ONLY: XP00, XRD, XCPD, XCPV, XCL, XCI, XLVTT, XTT, XLSTT USE MODD_DYN_n, ONLY : LOCEAN USE MODE_THERMO ! diff --git a/src/mesonh/turb/mode_compute_updraft_rhcj10.f90 b/src/mesonh/turb/mode_compute_updraft_rhcj10.f90 index abcbdc1c0..47beda492 100644 --- a/src/mesonh/turb/mode_compute_updraft_rhcj10.f90 +++ b/src/mesonh/turb/mode_compute_updraft_rhcj10.f90 @@ -63,7 +63,7 @@ SUBROUTINE COMPUTE_UPDRAFT_RHCJ10(KKA,KKB,KKE,KKU,KKL,HFRAC_ICE, & USE MODD_CST USE MODD_PARAM_MFSHALL_n USE MODD_TURB_n, ONLY : CTURBLEN -USE MODI_TH_R_FROM_THL_RT_1D +USE MODE_TH_R_FROM_THL_RT_1D USE MODI_SHUMAN_MF, ONLY: MZF_MF, MZM_MF, GZ_M_W_MF USE MODE_COMPUTE_BL89_ML, ONLY: COMPUTE_BL89_ML -- GitLab