diff --git a/srcF/sfx_sheba_noniterative.f90 b/srcF/sfx_sheba_noniterative.f90 index 9ca876649ea1acab79c5c68a8ed80fba39a163c2..1fc3e02d20c8705ab9569921d531feb1612ba054 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