Skip to content
Snippets Groups Projects
Commit dddb15b2 authored by Виктория Суязова's avatar Виктория Суязова Committed by Anna Shestakova
Browse files

no write in KL water

parent 1b176e28
Branches
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
srcF/sfx_z0t_all_surface.f90
+ 1
− 1
View file @ dddb15b2
...@@ -75,7 +75,7 @@ module sfx_z0t_all_surface ...@@ -75,7 +75,7 @@ module sfx_z0t_all_surface
B = min(B, B_max_ocean) B = min(B, B_max_ocean)
z0_t = z0_m / exp(B) z0_t = z0_m / exp(B)
write(*,*) 'kl_water', z0_t, B !write(*,*) 'kl_water', z0_t, B
end subroutine end subroutine
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment