--- trunk/libf/phylmd/cv_driver.f	2008/02/27 13:16:39	3
+++ trunk/libf/phylmd/cv_driver.f	2008/07/28 14:48:09	14
@@ -70,7 +70,7 @@
       integer nd
       integer ndp1
       integer noff
-      integer iflag_con
+      integer, intent(in):: iflag_con
       integer ntra
       real t1(len,nd)
       real q1(len,nd)
@@ -101,7 +101,7 @@
       real, intent(in):: tra1(len,nd,ntra)
       real ftra1(len,nd,ntra)
 
-      real delt
+      real, intent(in):: delt
 
 !-------------------------------------------------------------------
 ! --- ARGUMENTS
@@ -520,7 +520,7 @@
        CALL cv3_mixing(nloc,ncum,nd,nd,ntra,icb,nk,inb    ! na->nd
      :                     ,ph,t,q,qs,u,v,tra,h,lv,qnk
      :                     ,hp,tv,tvp,ep,clw,m,sig
-     o ,ment,qent,uent,vent,sij,elij,ments,qents,traent)
+     o ,ment,qent,uent,vent, nent,sij,elij,ments,qents,traent)
       endif
 
       if (iflag_con.eq.4) then
@@ -653,7 +653,7 @@
 
       include "cvthermo.h" 
 
-      integer iflag_con
+      integer, intent(in):: iflag_con
 
 
 c original set from convect: