diff --git a/srcF/sfx_api_inmcm.f90 b/srcF/sfx_api_inmcm.f90 index 8e04a3be4b09a23f430e3956530bf75a673cdc88..2cbc2ef867f8e2f662b3c01023a4603799779479 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 ! --------------------------------------------------------------------------------