From 74f6584dd681fad7cc767d4e8be45f27da320f68 Mon Sep 17 00:00:00 2001 From: Juan Escobar <escj@aero.obs-mip.fr> Date: Mon, 8 Jan 2024 18:33:01 +0100 Subject: [PATCH] Juan 08/01/2024:SURFEX/*.F90, more missing USE MODI_ABOR1_SFX --- src/SURFEX/avg_urban_fluxes.F90 | 1 + src/SURFEX/carbon_dynamic.F90 | 1 + src/SURFEX/coupling_teb_orographyn.F90 | 1 + src/SURFEX/coupling_townn.F90 | 1 + src/SURFEX/isba_meb.F90 | 1 + src/SURFEX/solar_panel.F90 | 2 ++ src/SURFEX/switch_time.F90 | 1 + src/SURFEX/town_energy_balance.F90 | 1 + src/SURFEX/trad_body_isba.F90 | 1 + src/SURFEX/trad_body_teb.F90 | 1 + src/SURFEX/utci_teb.F90 | 1 + 11 files changed, 12 insertions(+) diff --git a/src/SURFEX/avg_urban_fluxes.F90 b/src/SURFEX/avg_urban_fluxes.F90 index dcee5b764..8930eb006 100644 --- a/src/SURFEX/avg_urban_fluxes.F90 +++ b/src/SURFEX/avg_urban_fluxes.F90 @@ -84,6 +84,7 @@ USE MODD_CSTS,ONLY : XCPD, XLVTT, XLSTT, XSTEFAN, XSURF_EPSILON USE MODD_ISBA_PAR, ONLY : XEMISVEG ! USE MODE_THERMOS +USE MODI_ABOR1_SFX ! ! USE YOMHOOK ,ONLY : LHOOK, DR_HOOK diff --git a/src/SURFEX/carbon_dynamic.F90 b/src/SURFEX/carbon_dynamic.F90 index 95d1773af..dfefff9c2 100644 --- a/src/SURFEX/carbon_dynamic.F90 +++ b/src/SURFEX/carbon_dynamic.F90 @@ -51,6 +51,7 @@ USE MODD_CSTS, ONLY : XSIYEA, XTT USE MODD_SOILCARB_PAR, ONLY : XADVREF ! USE MODE_HYDRO_DIF +USE MODI_ABOR1_SFX ! USE YOMHOOK, ONLY : LHOOK, DR_HOOK USE PARKIND1, ONLY : JPRB diff --git a/src/SURFEX/coupling_teb_orographyn.F90 b/src/SURFEX/coupling_teb_orographyn.F90 index 83698fe14..6f4d36866 100644 --- a/src/SURFEX/coupling_teb_orographyn.F90 +++ b/src/SURFEX/coupling_teb_orographyn.F90 @@ -61,6 +61,7 @@ USE YOMHOOK ,ONLY : LHOOK, DR_HOOK USE PARKIND1 ,ONLY : JPRB ! USE MODI_COUPLING_TEB_n +USE MODI_ABOR1_SFX ! IMPLICIT NONE ! diff --git a/src/SURFEX/coupling_townn.F90 b/src/SURFEX/coupling_townn.F90 index 70e9de4eb..ff83179ff 100644 --- a/src/SURFEX/coupling_townn.F90 +++ b/src/SURFEX/coupling_townn.F90 @@ -54,6 +54,7 @@ USE PARKIND1 ,ONLY : JPRB USE MODI_COUPLING_IDEAL_FLUX ! USE MODI_COUPLING_TEB_OROGRAPHY_n +USE MODI_ABOR1_SFX ! IMPLICIT NONE ! diff --git a/src/SURFEX/isba_meb.F90 b/src/SURFEX/isba_meb.F90 index f1d0d5dc1..e88d19093 100644 --- a/src/SURFEX/isba_meb.F90 +++ b/src/SURFEX/isba_meb.F90 @@ -114,6 +114,7 @@ USE MODN_IO_OFFLINE , ONLY : XTSTEP_SURF ! time step of the surface ! USE MODD_AGRI, ONLY : LIRRIGMODE ! +USE MODI_ABOR1_SFX ! 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 5eb503fc4..4d678dad7 100644 --- a/src/SURFEX/solar_panel.F90 +++ b/src/SURFEX/solar_panel.F90 @@ -50,6 +50,8 @@ USE MODD_DIAG_MISC_TEB_n, ONLY : DIAG_MISC_TEB_t USE MODD_SURF_PAR, ONLY : XUNDEF USE MODD_CSTS, ONLY : XSTEFAN ! +USE MODI_ABOR1_SFX +! 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 16f80829a..982700a52 100644 --- a/src/SURFEX/switch_time.F90 +++ b/src/SURFEX/switch_time.F90 @@ -43,6 +43,7 @@ USE MODD_CSTS, ONLY: XDAY ! USE MODI_ADD_FORECAST_TO_DATE_SURF USE MODI_SUBSTRACT_TO_DATE_SURF +USE MODI_ABOR1_SFX !------------------------------------------------------------------------------ ! !* 0. DECLARATIONS diff --git a/src/SURFEX/town_energy_balance.F90 b/src/SURFEX/town_energy_balance.F90 index 522c5774e..aba42e3f5 100644 --- a/src/SURFEX/town_energy_balance.F90 +++ b/src/SURFEX/town_energy_balance.F90 @@ -129,6 +129,7 @@ USE MODI_ALLOC_LW_COEF USE MODI_DEALLOC_LW_COEF USE MODI_TEB_SPARTACUS USE MODI_EXPLICIT_LONGWAVE +USE MODI_ABOR1_SFX ! USE YOMHOOK ,ONLY : LHOOK, DR_HOOK USE PARKIND1 ,ONLY : JPRB diff --git a/src/SURFEX/trad_body_isba.F90 b/src/SURFEX/trad_body_isba.F90 index 32a128035..e7a083817 100644 --- a/src/SURFEX/trad_body_isba.F90 +++ b/src/SURFEX/trad_body_isba.F90 @@ -61,6 +61,7 @@ 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 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 30cf78e43..2cc88d3f0 100644 --- a/src/SURFEX/trad_body_teb.F90 +++ b/src/SURFEX/trad_body_teb.F90 @@ -91,6 +91,7 @@ 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 YOMHOOK ,ONLY : LHOOK, DR_HOOK USE PARKIND1 ,ONLY : JPRB diff --git a/src/SURFEX/utci_teb.F90 b/src/SURFEX/utci_teb.F90 index 137fbb6c2..80b877d9f 100644 --- a/src/SURFEX/utci_teb.F90 +++ b/src/SURFEX/utci_teb.F90 @@ -54,6 +54,7 @@ USE MODD_TEB_OPTION_n, ONLY : TEB_OPTIONS_t USE MODD_CSTS, ONLY : XTT USE MODI_UTCI_APPROX USE MODI_TRAD_BODY_TEB +USE MODI_ABOR1_SFX ! USE YOMHOOK , ONLY : LHOOK, DR_HOOK USE PARKIND1, ONLY : JPRB -- GitLab