--- MITgcm/model/src/convectively_mixtracer.F	2002/02/26 19:50:12	1.1
+++ MITgcm/model/src/convectively_mixtracer.F	2002/02/26 20:34:14	1.2
@@ -1,4 +1,4 @@
-C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/model/src/convectively_mixtracer.F,v 1.1 2002/02/26 19:50:12 adcroft Exp $
+C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/model/src/convectively_mixtracer.F,v 1.2 2002/02/26 20:34:14 adcroft Exp $
 C $Name:  $
 
 #include "CPP_OPTIONS.h"
@@ -18,14 +18,12 @@
 C                       T(k-1) = T(k-1) + B * ( T(k) - T(k-1) )
 C                       T(k)   = T(k)   + A * ( T(k-1) - T(k) )
 
-C     !USES:
+C !USES:
       IMPLICIT NONE
-C     == Global data ==
 #include "SIZE.h"
 #include "EEPARAMS.h"
 
-C     !INPUT/OUTPUT PARAMETERS:
-C     == Routine arguments ==
+C !INPUT/OUTPUT PARAMETERS:
 C     bi,bj,k - indices
 C     weightA - weight for level K
 C     weightB - weight for level K+1
@@ -38,8 +36,7 @@
 
 #ifdef INCLUDE_CONVECT_CALL
 
-C     !LOCAL VARIABLES:
-C     == Local variables ==
+C !LOCAL VARIABLES:
 C     i,j      :: Loop counter
 C     delTrac  :: Difference between tracer in each layer
       INTEGER i,j