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

write fot test2

parent 2e9450b8
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
srcF/sfx_sheba_noniterative.f90
+ 2
− 2
View file @ 4c1ef609
......@@ -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
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment