--- trunk/Sources/phylmd/coefkz2.f	2017/11/09 12:37:48	235
+++ trunk/Sources/phylmd/coefkz2.f	2018/01/05 16:40:13	248
@@ -28,9 +28,10 @@
 
     ! Arguments:
 
-    INTEGER knon, nsrf
-    REAL paprs(klon, klev+1), pplay(klon, klev)
-    REAL t(klon, klev)
+    INTEGER knon
+    integer, intent(in):: nsrf
+    REAL, intent(in):: paprs(klon, klev+1), pplay(klon, klev)
+    REAL, intent(in):: t(klon, klev)
 
     REAL, intent(out):: pcfm(:, 2:), pcfh(:, 2:) ! (knon, 2:klev)