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