--- MITgcm/model/src/ini_vertical_grid.F	2001/02/04 14:38:48	1.11
+++ MITgcm/model/src/ini_vertical_grid.F	2001/09/26 18:09:16	1.12
@@ -1,32 +1,37 @@
-C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/model/src/ini_vertical_grid.F,v 1.11 2001/02/04 14:38:48 cnh Exp $
+C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/model/src/ini_vertical_grid.F,v 1.12 2001/09/26 18:09:16 cnh Exp $
 C $Name:  $
 
 #include "CPP_OPTIONS.h"
 
-CStartOfInterface
+CBOP
+C     !ROUTINE: INI_VERTICAL_GRID
+C     !INTERFACE:
       SUBROUTINE INI_VERTICAL_GRID( myThid )
-C     /==========================================================\
-C     | SUBROUTINE INI_VERTICAL_GRID                             |
-C     | o Initialise vertical gridding arrays                    |
-C     |==========================================================|
-C     |                                                          |
-C     \==========================================================/
-      IMPLICIT NONE
+C     !DESCRIPTION: \bv
+C     *==========================================================*
+C     | SUBROUTINE INI_VERTICAL_GRID                              
+C     | o Initialise vertical gridding arrays                     
+C     *==========================================================*
+C     \ev
 
+C     !USES:
+      IMPLICIT NONE
 C     === Global variables ===
 #include "SIZE.h"
 #include "EEPARAMS.h"
 #include "PARAMS.h"
 #include "GRID.h"
 
+C     !INPUT/OUTPUT PARAMETERS:
 C     == Routine arguments ==
 C     myThid -  Number of this instance of INI_DEPTHS
       INTEGER myThid
-CEndOfInterface
 
+C     !LOCAL VARIABLES:
 C     == Local variables ==
 C     K
       INTEGER K
+CEOP
 
 C     Calculate depths of centers and interfaces
       rF(1) = Ro_SeaLevel