From ebfb73833b4039fe6f9a6fa764d616cffde8849f 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 15:36:40 +0300
Subject: [PATCH] no write
---
srcF/sfx_sheba_noniterative.f90 | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/srcF/sfx_sheba_noniterative.f90 b/srcF/sfx_sheba_noniterative.f90
index 8d87893..36fce06 100644
--- a/srcF/sfx_sheba_noniterative.f90
+++ b/srcF/sfx_sheba_noniterative.f90
@@ -329,7 +329,7 @@ contains
if (surface_type==3.or.surface_type==6.) then
if (Udyn>u_thsnow) then
-
+ !write(*,*) 'sfx_snow1', Udyn, zeta, surface_type
call get_sigma(sigma_r, sigma_w, rho_air, rho_s)
call get_w_snow(w_snow, sigma_w, g, d_s, nu_air)
call get_h_salt(h_salt, Udyn)
@@ -338,7 +338,7 @@ contains
Linv=Linv*((1-S_mean)/(1+sigma_w*S_mean))+(g*w_snow*sigma_w*S_mean/(Udyn**3.0))/(1+sigma_w*S_mean)
zeta = h * Linv
- !write(*,*) 'sfx_snow1', Udyn, Linv, zeta, S_mean
+
@@ -351,7 +351,7 @@ contains
Udyn = kappa * U / (log(h / z0_m) - (psi_m - psi0_m))
Tdyn = kappa * dT * Pr_t_0_inv / (log(h / z0_t) - (psi_h - psi0_h))
- write(*,*) 'sfx_snow2', Udyn, zeta, S_mean, Linv
+ !write(*,*) 'sfx_snow2', Udyn, zeta, S_mean, Linv
endif
endif
--
GitLab