VEG_to_VEGG

srcF/sfx_api_inmcm.f90

@@ -20,13 +20,13 @@ module sfx_api_inmcm
 contains
     
     ! --------------------------------------------------------------------------------
-    subroutine inmcm_to_sfx_in_cell(meteo, arg, VEG, depth_inm, lai_inm)
+    subroutine inmcm_to_sfx_in_cell(meteo, arg, VEGG, 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) :: VEG
+        integer,intent(in) :: VEGG
         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 = VEG
+        meteo%surface_type = VEGG
 
     end subroutine inmcm_to_sfx_in_cell
     ! --------------------------------------------------------------------------------