Typo correction, no code change.

source/f90/surlos.f90

@@ -56,7 +56,7 @@ double precision function surlos(dk, eps, d, layers, nper)
         if (static) then
           pn = 0.0
           qn = 0.0
-          do  n = lstart, layers
+          do n = lstart, layers
             pn = pn + d(n) * eps(n)
             qn = qn + d(n) / eps(n)
           enddo