From 4c1ef609c624fd233fe014dc2c3b3d37d3be6b34 Mon Sep 17 00:00:00 2001
From: Victoria Suiazova <er-riad@mail.ru>
Date: Tue, 11 Feb 2025 20:37:51 +0000
Subject: [PATCH] write fot test2

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

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