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