From 2e9450b889214cadf9df219c1dcac25814a740cd Mon Sep 17 00:00:00 2001
From: Victoria Suiazova <er-riad@mail.ru>
Date: Tue, 11 Feb 2025 17:37:12 +0000
Subject: [PATCH] write for test

---
 srcF/sfx_sheba_noniterative.f90 | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/srcF/sfx_sheba_noniterative.f90 b/srcF/sfx_sheba_noniterative.f90
index 9ca8766..1fc3e02 100644
--- a/srcF/sfx_sheba_noniterative.f90
+++ b/srcF/sfx_sheba_noniterative.f90
@@ -311,7 +311,8 @@ contains
 !            Rib = min(Rib, Rib_max)
            
         if (surface_type == surface_snow) then    
-           ! write(*,*) 'snow', Ri_sn, Rib
+            write(*,*) 'sfx_snow1', Ri_sn, Rib, U
+            write(*,*) 'sfx_snow2', deltaS, u_dyn0, S_mean
             Rib=Rib+Ri_sn 
         endif
 
-- 
GitLab