Skip to content
Snippets Groups Projects
Commit 2e9450b8 authored by Victoria Suiazova's avatar Victoria Suiazova Committed by Anna Shestakova
Browse files

write for test

parent c5478789
Branches
No related tags found
No related merge requests found
Show whitespace changes
Inline Side-by-side
srcF/sfx_sheba_noniterative.f90
+ 2
− 1
View file @ 2e9450b8
......@@ -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
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment