From ba88d4c0c4ea63604a8aded077793879c68ba7b6 Mon Sep 17 00:00:00 2001 From: Juan Escobar <escj@aero.obs-mip.fr> Date: Mon, 8 Jan 2024 18:45:46 +0100 Subject: [PATCH] Juan 08/01/2024:SURFEX/*.F90 , more missing USE MODI_GET_LUOUT --- src/SURFEX/avg_urban_fluxes.F90 | 1 + src/SURFEX/check_teb.F90 | 1 + src/SURFEX/coupling_tebn.F90 | 1 + src/SURFEX/solar_panel.F90 | 1 + src/SURFEX/switch_time.F90 | 1 + src/SURFEX/trad_body_isba.F90 | 3 ++- src/SURFEX/trad_body_teb.F90 | 3 ++- 7 files changed, 9 insertions(+), 2 deletions(-) diff --git a/src/SURFEX/avg_urban_fluxes.F90 b/src/SURFEX/avg_urban_fluxes.F90 index 8930eb006..cffb2cec6 100644 --- a/src/SURFEX/avg_urban_fluxes.F90 +++ b/src/SURFEX/avg_urban_fluxes.F90 @@ -85,6 +85,7 @@ USE MODD_ISBA_PAR, ONLY : XEMISVEG ! USE MODE_THERMOS USE MODI_ABOR1_SFX +USE MODI_GET_LUOUT ! ! USE YOMHOOK ,ONLY : LHOOK, DR_HOOK diff --git a/src/SURFEX/check_teb.F90 b/src/SURFEX/check_teb.F90 index 746bec726..8d552501e 100644 --- a/src/SURFEX/check_teb.F90 +++ b/src/SURFEX/check_teb.F90 @@ -51,6 +51,7 @@ SUBROUTINE CHECK_TEB (TOP, BOP, NT, NB, TD, TPN, TIR, GDM, GRM, HM, CT, & USE PARKIND1, ONLY : JPRB ! USE MODI_ABOR1_SFX + USE MODI_GET_LUOUT ! IMPLICIT NONE ! diff --git a/src/SURFEX/coupling_tebn.F90 b/src/SURFEX/coupling_tebn.F90 index 082420f6b..3626e3764 100644 --- a/src/SURFEX/coupling_tebn.F90 +++ b/src/SURFEX/coupling_tebn.F90 @@ -115,6 +115,7 @@ USE MODI_TRAFFIC_FLUX_MODULATION USE MODI_UTCI_TEB USE MODI_UTCIC_STRESS USE MODI_BUDGET_HYDRO_n +USE MODI_GET_LUOUT ! USE YOMHOOK, ONLY : LHOOK, DR_HOOK USE PARKIND1, ONLY : JPRB diff --git a/src/SURFEX/solar_panel.F90 b/src/SURFEX/solar_panel.F90 index 4d678dad7..24d4ab775 100644 --- a/src/SURFEX/solar_panel.F90 +++ b/src/SURFEX/solar_panel.F90 @@ -51,6 +51,7 @@ USE MODD_SURF_PAR, ONLY : XUNDEF USE MODD_CSTS, ONLY : XSTEFAN ! USE MODI_ABOR1_SFX +USE MODI_GET_LUOUT ! USE YOMHOOK ,ONLY : LHOOK, DR_HOOK USE PARKIND1 ,ONLY : JPRB diff --git a/src/SURFEX/switch_time.F90 b/src/SURFEX/switch_time.F90 index 982700a52..4ebcdd226 100644 --- a/src/SURFEX/switch_time.F90 +++ b/src/SURFEX/switch_time.F90 @@ -44,6 +44,7 @@ USE MODD_CSTS, ONLY: XDAY USE MODI_ADD_FORECAST_TO_DATE_SURF USE MODI_SUBSTRACT_TO_DATE_SURF USE MODI_ABOR1_SFX +USE MODI_GET_LUOUT !------------------------------------------------------------------------------ ! !* 0. DECLARATIONS diff --git a/src/SURFEX/trad_body_isba.F90 b/src/SURFEX/trad_body_isba.F90 index e7a083817..8aa308432 100644 --- a/src/SURFEX/trad_body_isba.F90 +++ b/src/SURFEX/trad_body_isba.F90 @@ -61,7 +61,8 @@ FUNCTION TRAD_BODY_ISBA(HPROGRAM, PSCA_SW, PREF_SW, PEMIT_LW, PLW_RAD,& ! ------------ ! USE MODD_CSTS, ONLY : XSTEFAN, XPI, XSURF_EPSILON, XI0 -USE MODI_ABOR1_SFX +USE MODI_ABOR1_SFX +USE MODI_GET_LUOUT ! USE YOMHOOK ,ONLY : LHOOK, DR_HOOK USE PARKIND1 ,ONLY : JPRB diff --git a/src/SURFEX/trad_body_teb.F90 b/src/SURFEX/trad_body_teb.F90 index 2cc88d3f0..1157cdc69 100644 --- a/src/SURFEX/trad_body_teb.F90 +++ b/src/SURFEX/trad_body_teb.F90 @@ -91,7 +91,8 @@ FUNCTION TRAD_BODY_TEB(HPROGRAM, PSCA_SW, PREF_SW_FAC, PREF_SW_GRND, & ! ------------ ! USE MODD_CSTS, ONLY : XSTEFAN, XPI, XSURF_EPSILON, XI0 -USE MODI_ABOR1_SFX +USE MODI_ABOR1_SFX +USE MODI_GET_LUOUT ! USE YOMHOOK ,ONLY : LHOOK, DR_HOOK USE PARKIND1 ,ONLY : JPRB -- GitLab