From 497ea5e91a0966b7888cda38a5f4da4cfd38e7aa Mon Sep 17 00:00:00 2001 From: Gaelle Tanguy <gaelle.tanguy@meteo.fr> Date: Fri, 18 Dec 2015 14:25:36 +0000 Subject: [PATCH] Juan 18/12/2015 : missing interfaces --- src/SURFEX/hor_interpol_1cov.F90 | 2 ++ src/SURFEX/zoom_pgd_cover.F90 | 3 +++ 2 files changed, 5 insertions(+) diff --git a/src/SURFEX/hor_interpol_1cov.F90 b/src/SURFEX/hor_interpol_1cov.F90 index 8273f3bdc..f04bd9853 100644 --- a/src/SURFEX/hor_interpol_1cov.F90 +++ b/src/SURFEX/hor_interpol_1cov.F90 @@ -25,6 +25,7 @@ SUBROUTINE HOR_INTERPOL_1COV(KLUOUT,PFIELDIN,PFIELDOUT) !! MODIFICATIONS !! ------------- !! Original 06/2015 +!! J.Escobar 18/12/2015 : missing interface !!------------------------------------------------------------------ ! ! @@ -36,6 +37,7 @@ USE MODI_HOR_INTERPOL_AROME_1COV USE MODI_HOR_INTERPOL_CONF_PROJ_1COV USE MODI_HOR_INTERPOL_CARTESIAN_1COV USE MODI_HOR_INTERPOL_LATLON_1COV +USE MODI_HOR_INTERPOL_BUFFER_1COV ! ! USE YOMHOOK ,ONLY : LHOOK, DR_HOOK diff --git a/src/SURFEX/zoom_pgd_cover.F90 b/src/SURFEX/zoom_pgd_cover.F90 index c7c5d58a0..b2a8fbfbe 100644 --- a/src/SURFEX/zoom_pgd_cover.F90 +++ b/src/SURFEX/zoom_pgd_cover.F90 @@ -38,6 +38,7 @@ !! interpolated for spawning => !! ABOR1_SFX if (.NOT.OECOCLIMAP) in comment ! Modification 05/02/15 M.Moge : use NSIZE_FULL instead of SIZE(XLAT) (for clarity) +!! J.Escobar 18/12/2015 : missing interface !---------------------------------------------------------------------------- ! !* 0. DECLARATION @@ -65,6 +66,8 @@ USE MODI_SUM_ON_ALL_PROCS USE MODI_GET_LUOUT USE MODI_CLEAN_PREP_OUTPUT_GRID USE MODI_GET_1D_MASK +USE MODI_READ_LCOVER +USE MODI_READ_SURFX2COV_1COV_MNH ! USE YOMHOOK ,ONLY : LHOOK, DR_HOOK USE PARKIND1 ,ONLY : JPRB -- GitLab