--- trunk/Sources/phylmd/yamada.f	2015/06/16 15:23:29	145
+++ trunk/Sources/phylmd/yamada.f	2016/03/22 16:31:39	188
@@ -43,9 +43,8 @@
     INTEGER ngrid
 
 
-    INTEGER nlay, nlev
+    INTEGER nlay
     PARAMETER (nlay=klev)
-    PARAMETER (nlev=klev+1)
 
     LOGICAL first
     SAVE first