From 180b00977bf815f003da5f223c90c57986d59dd2 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?=D0=92=D0=B8=D0=BA=D1=82=D0=BE=D1=80=D0=B8=D1=8F=20=D0=A1?=
 =?UTF-8?q?=D1=83=D1=8F=D0=B7=D0=BE=D0=B2=D0=B0?=
 <viktoriasuazova@MacBook-Pro-Viktoria.local>
Date: Tue, 11 Feb 2025 00:31:00 +0300
Subject: [PATCH] test snow type

---
 srcF/sfx_api_inmcm.f90          | 2 +-
 srcF/sfx_sheba_noniterative.f90 | 5 +++--
 2 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/srcF/sfx_api_inmcm.f90 b/srcF/sfx_api_inmcm.f90
index c04567e..c1354a6 100644
--- a/srcF/sfx_api_inmcm.f90
+++ b/srcF/sfx_api_inmcm.f90
@@ -42,7 +42,7 @@ contains
         meteo%depth = depth_inm
         meteo%lai = lai_inm
         meteo%surface_type = IVEG_sfx
-
+        write(*,*) 'surface_type, IVEG_sfx', meteo%surface_type, IVEG_sfx
     end subroutine inmcm_to_sfx_in_cell
     ! --------------------------------------------------------------------------------
     
diff --git a/srcF/sfx_sheba_noniterative.f90 b/srcF/sfx_sheba_noniterative.f90
index 35e3b7c..c7912ef 100644
--- a/srcF/sfx_sheba_noniterative.f90
+++ b/srcF/sfx_sheba_noniterative.f90
@@ -154,7 +154,7 @@ contains
             h = meteo%h(i), &
             U = meteo%U(i), dT = meteo%dT(i), Tsemi = meteo%Tsemi(i), dQ = meteo%dQ(i), &
             z0_m = meteo%z0_m(i), depth=meteo%depth(i), lai=meteo%lai(i), surface_type=meteo%surface_type(i))
-
+            write(*,*) 'get_flux', meteo%surface_type(i)
             call get_surface_fluxes(sfx_cell, meteo_cell, numerics)
 
             call push_sfx_data(sfx, sfx_cell, i)
@@ -188,6 +188,7 @@ contains
         real :: z0_m    !< surface aerodynamic roughness (should be < 0 for water bodies surface)
         real :: depth   
         real :: lai
+        integer :: surface_type
         ! ----------------------------------------------------------------------------
 
         ! --- local variables
@@ -221,7 +222,7 @@ contains
 
         real Cm, Ct             !< transfer coeff. for (momentum) & (heat) [n/d]
 
-        integer surface_type    !< surface type = (ocean || land)
+        
 
         real fval               !< just a shortcut for partial calculations
 
-- 
GitLab