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