--- trunk/libf/dyn3d/dudv2.f	2008/02/27 13:16:39	3
+++ trunk/dyn3d/dudv2.f	2013/11/15 18:45:49	76
@@ -5,7 +5,7 @@
 
       use dimens_m
       use paramet_m
-      use comvert
+      use disvert_m
       IMPLICIT NONE
 c
 c=======================================================================
@@ -29,7 +29,8 @@
 c=======================================================================
 c
 
-      REAL teta( ip1jmp1,llm ),pkf( ip1jmp1,llm ) ,bern( ip1jmp1,llm ),
+      REAL, intent(in):: teta( ip1jmp1,llm )
+      real pkf( ip1jmp1,llm ) ,bern( ip1jmp1,llm ),
      *         du( ip1jmp1,llm ),  dv( ip1jm,llm )
       INTEGER  l,ij
 c