From e352db95f965621c5aa6ec989a61db88c8fa0e3d Mon Sep 17 00:00:00 2001
From: Victor Stepanenko <stepanen@srcc.msu.ru>
Date: Sun, 4 Apr 2021 18:36:15 +0300
Subject: [PATCH] Test change

---
 source/model/lake.f90 | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/source/model/lake.f90 b/source/model/lake.f90
index b057812..72b3311 100644
--- a/source/model/lake.f90
+++ b/source/model/lake.f90
@@ -523,7 +523,6 @@ endif
 tempair = tempair1 - Kelvin0
 humair = humair1
 pressure = pressure1
-!pressure = 1.d+5
 uwind = uwind1
 vwind = vwind1
 zref  = zref1
@@ -589,7 +588,7 @@ if (uwind == 0) uwind = minwind
 if (vwind == 0) vwind = minwind
 wind = sqrt(uwind**2+vwind**2)
 !wind10 = wind*log(10./roughness0)/log(zref/roughness0)
-
+precip = 0.
 !Control of the input atmospheric forcing
 flag = .false.
 if (tempair>60.or.tempair<-90) then
-- 
GitLab