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