From 5bbbfdbdb5b4c946cef6df798f955a5865a76f72 Mon Sep 17 00:00:00 2001 From: Juan Escobar <escj@aero.obs-mip.fr> Date: Mon, 8 Jan 2024 16:07:28 +0100 Subject: [PATCH] Juan 08/01/2024:SURFEX/*.F90, add missing use modi_abor1_sfx & modi_getluout --- src/SURFEX/av_pgd.F90 | 1 + src/SURFEX/av_pgd_1p.F90 | 1 + src/SURFEX/bem.F90 | 2 ++ src/SURFEX/bld_occ_calendar.F90 | 2 ++ src/SURFEX/bldsoil_layer_e_budget.F90 | 2 ++ src/SURFEX/convert_patch_isba.F90 | 1 + src/SURFEX/floor_layer_e_budget.F90 | 2 ++ src/SURFEX/hvac_autosize.F90 | 1 + src/SURFEX/ini_data_param_teb.F90 | 1 + src/SURFEX/init_teb_soil_grid.F90 | 2 ++ src/SURFEX/mass_layer_e_budget.F90 | 1 + src/SURFEX/mode_coherence_frac.F90 | 3 +++ src/SURFEX/mode_psychro.F90 | 1 + src/SURFEX/pgd_surf_atm.F90 | 1 + src/SURFEX/prep_teb.F90 | 1 + src/SURFEX/roof_layer_e_budget.F90 | 2 ++ src/SURFEX/snow_cover_1layer.F90 | 2 ++ src/SURFEX/teb_bld_road.F90 | 2 ++ src/SURFEX/urban_solar_abs.F90 | 1 + src/SURFEX/wall_layer_e_budget.F90 | 2 ++ src/SURFEX/write_diag_pgd_grdnn.F90 | 1 + src/SURFEX/write_ecoclimap2_data.F90 | 1 + src/SURFEX/writesurf_tebn.F90 | 1 + 23 files changed, 34 insertions(+) diff --git a/src/SURFEX/av_pgd.F90 b/src/SURFEX/av_pgd.F90 index 7d88e48f0..e8b7b3807 100644 --- a/src/SURFEX/av_pgd.F90 +++ b/src/SURFEX/av_pgd.F90 @@ -1677,6 +1677,7 @@ USE MODE_AV_PGD ! USE YOMHOOK ,ONLY : LHOOK, DR_HOOK USE PARKIND1 ,ONLY : JPRB +USE MODI_ABOR1_SFX ! IMPLICIT NONE ! diff --git a/src/SURFEX/av_pgd_1p.F90 b/src/SURFEX/av_pgd_1p.F90 index 663f88a82..d0e662401 100644 --- a/src/SURFEX/av_pgd_1p.F90 +++ b/src/SURFEX/av_pgd_1p.F90 @@ -785,6 +785,7 @@ USE MODE_AV_PGD ! USE YOMHOOK ,ONLY : LHOOK, DR_HOOK USE PARKIND1 ,ONLY : JPRB +USE MODI_ABOR1_SFX ! IMPLICIT NONE ! diff --git a/src/SURFEX/bem.F90 b/src/SURFEX/bem.F90 index cefa2915c..5de544ed2 100644 --- a/src/SURFEX/bem.F90 +++ b/src/SURFEX/bem.F90 @@ -174,6 +174,8 @@ USE MODE_CONV_DOE ! USE YOMHOOK ,ONLY : LHOOK, DR_HOOK USE PARKIND1 ,ONLY : JPRB +USE MODI_ABOR1_SFX +USE MODI_GET_LUOUT ! IMPLICIT NONE ! diff --git a/src/SURFEX/bld_occ_calendar.F90 b/src/SURFEX/bld_occ_calendar.F90 index a24e47b8e..4a1a96777 100644 --- a/src/SURFEX/bld_occ_calendar.F90 +++ b/src/SURFEX/bld_occ_calendar.F90 @@ -28,6 +28,8 @@ USE MODI_DAY_OF_WEEK ! USE YOMHOOK ,ONLY : LHOOK, DR_HOOK USE PARKIND1 ,ONLY : JPRB +USE MODI_ABOR1_SFX +USE MODI_GET_LUOUT ! IMPLICIT NONE ! diff --git a/src/SURFEX/bldsoil_layer_e_budget.F90 b/src/SURFEX/bldsoil_layer_e_budget.F90 index 10f249c54..595330e45 100644 --- a/src/SURFEX/bldsoil_layer_e_budget.F90 +++ b/src/SURFEX/bldsoil_layer_e_budget.F90 @@ -90,6 +90,8 @@ USE MODI_LAYER_E_BUDGET_GET_COEF ! USE YOMHOOK ,ONLY : LHOOK, DR_HOOK USE PARKIND1 ,ONLY : JPRB +USE MODI_ABOR1_SFX +USE MODI_GET_LUOUT ! IMPLICIT NONE ! diff --git a/src/SURFEX/convert_patch_isba.F90 b/src/SURFEX/convert_patch_isba.F90 index 077479d44..d1484ea33 100644 --- a/src/SURFEX/convert_patch_isba.F90 +++ b/src/SURFEX/convert_patch_isba.F90 @@ -106,6 +106,7 @@ USE MODI_VEGTYPE_TO_PATCH_IRRIG ! USE YOMHOOK ,ONLY : LHOOK, DR_HOOK USE PARKIND1 ,ONLY : JPRB +USE MODI_ABOR1_SFX ! IMPLICIT NONE ! diff --git a/src/SURFEX/floor_layer_e_budget.F90 b/src/SURFEX/floor_layer_e_budget.F90 index bd5fbb4db..31b7907b3 100644 --- a/src/SURFEX/floor_layer_e_budget.F90 +++ b/src/SURFEX/floor_layer_e_budget.F90 @@ -84,6 +84,8 @@ USE MODE_CONV_DOE ! USE YOMHOOK ,ONLY : LHOOK, DR_HOOK USE PARKIND1 ,ONLY : JPRB +USE MODI_ABOR1_SFX +USE MODI_GET_LUOUT ! IMPLICIT NONE ! diff --git a/src/SURFEX/hvac_autosize.F90 b/src/SURFEX/hvac_autosize.F90 index 6e7399397..c96e46134 100644 --- a/src/SURFEX/hvac_autosize.F90 +++ b/src/SURFEX/hvac_autosize.F90 @@ -64,6 +64,7 @@ USE MODI_DIAG_MISC_TEB_INIT_n USE MODI_ALLOC_LW_COEF USE MODI_DEALLOC_LW_COEF USE MODI_EXPLICIT_LONGWAVE +USE MODI_ABOR1_SFX ! USE YOMHOOK ,ONLY : LHOOK, DR_HOOK USE PARKIND1 ,ONLY : JPRB diff --git a/src/SURFEX/ini_data_param_teb.F90 b/src/SURFEX/ini_data_param_teb.F90 index 6e45707b4..5c33b1a7c 100644 --- a/src/SURFEX/ini_data_param_teb.F90 +++ b/src/SURFEX/ini_data_param_teb.F90 @@ -61,6 +61,7 @@ USE MODD_DATA_TEB_n, ONLY : DATA_TEB_t USE MODD_CSTS, ONLY : XSURF_EPSILON ! USE MODI_ABOR1_SFX +USE MODI_GET_LUOUT ! USE YOMHOOK ,ONLY : LHOOK, DR_HOOK USE PARKIND1 ,ONLY : JPRB diff --git a/src/SURFEX/init_teb_soil_grid.F90 b/src/SURFEX/init_teb_soil_grid.F90 index f7bb60294..e16f8fb86 100644 --- a/src/SURFEX/init_teb_soil_grid.F90 +++ b/src/SURFEX/init_teb_soil_grid.F90 @@ -40,6 +40,8 @@ USE MODI_AV_PGD ! USE YOMHOOK ,ONLY : LHOOK, DR_HOOK USE PARKIND1 ,ONLY : JPRB +USE MODI_ABOR1_SFX +USE MODI_GET_LUOUT ! IMPLICIT NONE ! diff --git a/src/SURFEX/mass_layer_e_budget.F90 b/src/SURFEX/mass_layer_e_budget.F90 index febb0b571..32d1dfcc1 100644 --- a/src/SURFEX/mass_layer_e_budget.F90 +++ b/src/SURFEX/mass_layer_e_budget.F90 @@ -79,6 +79,7 @@ USE MODI_GET_LUOUT ! USE YOMHOOK ,ONLY : LHOOK, DR_HOOK USE PARKIND1 ,ONLY : JPRB +USE MODI_ABOR1_SFX ! IMPLICIT NONE ! diff --git a/src/SURFEX/mode_coherence_frac.F90 b/src/SURFEX/mode_coherence_frac.F90 index 9599d81b8..d68bb4a99 100644 --- a/src/SURFEX/mode_coherence_frac.F90 +++ b/src/SURFEX/mode_coherence_frac.F90 @@ -53,6 +53,8 @@ SUBROUTINE COHERENCE_FRAC(HPROGRAM,PFRAC_VALUE, CD_NAME, L_SUM_CHECK) USE MODD_CSTS ,ONLY : XSURF_EPSILON USE YOMHOOK ,ONLY : LHOOK, DR_HOOK USE PARKIND1 ,ONLY : JPRB +USE MODI_ABOR1_SFX +USE MODI_GET_LUOUT ! IMPLICIT NONE ! @@ -147,6 +149,7 @@ USE MODD_DATA_BEM_n, ONLY : DATA_BEM_t ! USE YOMHOOK ,ONLY : LHOOK, DR_HOOK USE PARKIND1 ,ONLY : JPRB +USE MODI_GET_LUOUT ! IMPLICIT NONE ! diff --git a/src/SURFEX/mode_psychro.F90 b/src/SURFEX/mode_psychro.F90 index 1d85dd332..42d795ff1 100644 --- a/src/SURFEX/mode_psychro.F90 +++ b/src/SURFEX/mode_psychro.F90 @@ -262,6 +262,7 @@ function TWB_FROM_TPQ_1D(PT, PP, PQ) RESULT(PTWB) ! USE MODE_THERMOS USE MODD_CSTS, ONLY : XTT +USE MODI_ABOR1_SFX ! ! Robert: ! The original version of this calculation based on an iteration diff --git a/src/SURFEX/pgd_surf_atm.F90 b/src/SURFEX/pgd_surf_atm.F90 index 9c35c67ef..fcafd53f1 100644 --- a/src/SURFEX/pgd_surf_atm.F90 +++ b/src/SURFEX/pgd_surf_atm.F90 @@ -80,6 +80,7 @@ USE MODI_PGD_DMS ! USE YOMHOOK ,ONLY : LHOOK, DR_HOOK USE PARKIND1 ,ONLY : JPRB +USE MODI_ABOR1_SFX ! IMPLICIT NONE ! diff --git a/src/SURFEX/prep_teb.F90 b/src/SURFEX/prep_teb.F90 index 046dbdcf7..b777e1e21 100644 --- a/src/SURFEX/prep_teb.F90 +++ b/src/SURFEX/prep_teb.F90 @@ -72,6 +72,7 @@ USE YOMHOOK ,ONLY : LHOOK, DR_HOOK USE PARKIND1 ,ONLY : JPRB ! USE MODI_CLEAN_PREP_OUTPUT_GRID +USE MODI_ABOR1_SFX ! IMPLICIT NONE ! diff --git a/src/SURFEX/roof_layer_e_budget.F90 b/src/SURFEX/roof_layer_e_budget.F90 index 4743ec132..b338e4698 100644 --- a/src/SURFEX/roof_layer_e_budget.F90 +++ b/src/SURFEX/roof_layer_e_budget.F90 @@ -108,6 +108,8 @@ USE MODE_CONV_DOE ! USE YOMHOOK ,ONLY : LHOOK, DR_HOOK USE PARKIND1 ,ONLY : JPRB +USE MODI_ABOR1_SFX +USE MODI_GET_LUOUT ! IMPLICIT NONE ! diff --git a/src/SURFEX/snow_cover_1layer.F90 b/src/SURFEX/snow_cover_1layer.F90 index 7de03b9cc..afd5d2311 100644 --- a/src/SURFEX/snow_cover_1layer.F90 +++ b/src/SURFEX/snow_cover_1layer.F90 @@ -74,6 +74,8 @@ USE MODI_SURFACE_AERO_COND ! USE YOMHOOK ,ONLY : LHOOK, DR_HOOK USE PARKIND1 ,ONLY : JPRB +USE MODI_ABOR1_SFX +USE MODI_GET_LUOUT ! IMPLICIT NONE ! diff --git a/src/SURFEX/teb_bld_road.F90 b/src/SURFEX/teb_bld_road.F90 index 308cb79cb..85660b400 100644 --- a/src/SURFEX/teb_bld_road.F90 +++ b/src/SURFEX/teb_bld_road.F90 @@ -224,6 +224,8 @@ USE MODI_BLDSOIL_LAYER_E_BUDGET ! USE YOMHOOK ,ONLY : LHOOK, DR_HOOK USE PARKIND1 ,ONLY : JPRB +USE MODI_ABOR1_SFX +USE MODI_GET_LUOUT ! IMPLICIT NONE ! diff --git a/src/SURFEX/urban_solar_abs.F90 b/src/SURFEX/urban_solar_abs.F90 index 1f2e48a58..516909867 100644 --- a/src/SURFEX/urban_solar_abs.F90 +++ b/src/SURFEX/urban_solar_abs.F90 @@ -196,6 +196,7 @@ USE MODI_WINDOW_SHADING ! USE YOMHOOK ,ONLY : LHOOK, DR_HOOK USE PARKIND1 ,ONLY : JPRB +USE MODI_ABOR1_SFX ! IMPLICIT NONE ! diff --git a/src/SURFEX/wall_layer_e_budget.F90 b/src/SURFEX/wall_layer_e_budget.F90 index 8f4801b91..b06cddbe6 100644 --- a/src/SURFEX/wall_layer_e_budget.F90 +++ b/src/SURFEX/wall_layer_e_budget.F90 @@ -117,6 +117,8 @@ USE MODE_CONV_DOE ! USE YOMHOOK ,ONLY : LHOOK, DR_HOOK USE PARKIND1 ,ONLY : JPRB +USE MODI_ABOR1_SFX +USE MODI_GET_LUOUT ! IMPLICIT NONE ! diff --git a/src/SURFEX/write_diag_pgd_grdnn.F90 b/src/SURFEX/write_diag_pgd_grdnn.F90 index fc1cc0805..c2d5b6f51 100644 --- a/src/SURFEX/write_diag_pgd_grdnn.F90 +++ b/src/SURFEX/write_diag_pgd_grdnn.F90 @@ -58,6 +58,7 @@ USE MODI_END_IO_SURF_n ! USE YOMHOOK ,ONLY : LHOOK, DR_HOOK USE PARKIND1 ,ONLY : JPRB +USE MODI_ABOR1_SFX ! IMPLICIT NONE ! diff --git a/src/SURFEX/write_ecoclimap2_data.F90 b/src/SURFEX/write_ecoclimap2_data.F90 index 4304a43b5..7bd221f8e 100644 --- a/src/SURFEX/write_ecoclimap2_data.F90 +++ b/src/SURFEX/write_ecoclimap2_data.F90 @@ -18,6 +18,7 @@ USE MODD_SURF_PAR, ONLY: LEN_HREC ! USE YOMHOOK ,ONLY : LHOOK, DR_HOOK USE PARKIND1 ,ONLY : JPRB +USE MODI_ABOR1_SFX ! IMPLICIT NONE ! diff --git a/src/SURFEX/writesurf_tebn.F90 b/src/SURFEX/writesurf_tebn.F90 index 94a986dd6..a519acd7b 100644 --- a/src/SURFEX/writesurf_tebn.F90 +++ b/src/SURFEX/writesurf_tebn.F90 @@ -63,6 +63,7 @@ USE MODI_WRITESURF_TEB_HYDRO_n ! USE YOMHOOK ,ONLY : LHOOK, DR_HOOK USE PARKIND1 ,ONLY : JPRB +USE MODI_ABOR1_SFX ! IMPLICIT NONE ! -- GitLab