--- trunk/libf/dyn3d/dissip.f	2008/02/27 13:16:39	3
+++ trunk/libf/dyn3d/dissip.f	2008/04/18 14:45:53	10
@@ -35,7 +35,7 @@
 c   ----------
 
       REAL vcov(ip1jm,llm),ucov(ip1jmp1,llm),teta(ip1jmp1,llm)
-      REAL  p( ip1jmp1,llmp1 )
+      REAL, intent(in):: p( ip1jmp1,llmp1 )
       REAL dv(ip1jm,llm),du(ip1jmp1,llm),dh(ip1jmp1,llm)
 
 c   Local: