From dddb15b2ab2a5197c5be26754fde90826ac0cb4f Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?=D0=92=D0=B8=D0=BA=D1=82=D0=BE=D1=80=D0=B8=D1=8F=20=D0=A1?=
=?UTF-8?q?=D1=83=D1=8F=D0=B7=D0=BE=D0=B2=D0=B0?=
<viktoriasuazova@MacBook-Pro-Viktoria.local>
Date: Mon, 17 Feb 2025 13:32:22 +0300
Subject: [PATCH] no write in KL water
---
srcF/sfx_z0t_all_surface.f90 | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/srcF/sfx_z0t_all_surface.f90 b/srcF/sfx_z0t_all_surface.f90
index 88d2e0a..39a570e 100644
--- a/srcF/sfx_z0t_all_surface.f90
+++ b/srcF/sfx_z0t_all_surface.f90
@@ -75,7 +75,7 @@ module sfx_z0t_all_surface
B = min(B, B_max_ocean)
z0_t = z0_m / exp(B)
- write(*,*) 'kl_water', z0_t, B
+ !write(*,*) 'kl_water', z0_t, B
end subroutine
--
GitLab