--- trunk/libf/dyn3d/convmas.f	2008/02/27 13:16:39	3
+++ trunk/libf/dyn3d/convmas.f	2012/07/26 14:37:37	62
@@ -6,7 +6,8 @@
       use dimens_m
       use paramet_m
       use comvert
-      use logic
+      use conf_gcm_m
+      use filtreg_m, only: filtreg
       IMPLICIT NONE
 
 c=======================================================================
@@ -36,7 +37,8 @@
 c   -------------
 
 
-      REAL pbaru( ip1jmp1,llm ),pbarv( ip1jm,llm ),convm(  ip1jmp1,llm )
+      REAL, intent(in):: pbaru( ip1jmp1,llm ),pbarv( ip1jm,llm )
+      real, intent(out):: convm(  ip1jmp1,llm )
       INTEGER   l,ij