VEG_to_IVEG_sfx

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
     ! --------------------------------------------------------------------------------