diff --git a/source/model/lake.f90 b/source/model/lake.f90 index b05781225a5bf0c08277248981f4af53442af03f..72b3311e0539b0486675e5095efe49a846b56f92 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