From a29f824a8d80542f8ecc6b9d880b5b4826a127e6 Mon Sep 17 00:00:00 2001 From: Victoria Suiazova <er-riad@mail.ru> Date: Tue, 19 Nov 2024 02:49:07 +0000 Subject: [PATCH] VEG_to_IVEG_sfx --- srcF/sfx_api_inmcm.f90 | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/srcF/sfx_api_inmcm.f90 b/srcF/sfx_api_inmcm.f90 index 8e04a3b..2cbc2ef 100644 --- a/srcF/sfx_api_inmcm.f90 +++ b/srcF/sfx_api_inmcm.f90 @@ -20,13 +20,13 @@ module sfx_api_inmcm contains ! -------------------------------------------------------------------------------- - subroutine inmcm_to_sfx_in_cell(meteo, arg, VEGG, depth_inm, lai_inm) + subroutine inmcm_to_sfx_in_cell(meteo, arg, IVEG_sfx, depth_inm, lai_inm) !> @brief converts legacy arg [AR1 INMCM format] array to sfx meteo input ! ---------------------------------------------------------------------------- implicit none type (meteoDataType), intent(inout) :: meteo real, dimension(6), intent(in) :: arg - integer,intent(in) :: VEGG + real,intent(in) :: IVEG_sfx real,intent(in) :: depth_inm real,intent(in) :: lai_inm @@ -41,7 +41,7 @@ contains meteo%z0_m = arg(6) meteo%depth = depth_inm meteo%lai = lai_inm - meteo%surface_type = VEGG + meteo%surface_type = IVEG_sfx end subroutine inmcm_to_sfx_in_cell ! -------------------------------------------------------------------------------- -- GitLab