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