--- MITgcm/eesupp/inc/EEPARAMS.h 1998/04/22 19:15:30 1.1 +++ MITgcm/eesupp/inc/EEPARAMS.h 1998/04/26 23:41:54 1.3 @@ -1,4 +1,4 @@ -C $Id: EEPARAMS.h,v 1.1 1998/04/22 19:15:30 cnh Exp $ +C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/eesupp/inc/EEPARAMS.h,v 1.3 1998/04/26 23:41:54 cnh Exp $ C C /==========================================================\ C | EEPARAMS.h | @@ -29,6 +29,10 @@ C PRINT_MAP_YZ - Flag indicating to plot map as YZ slices C commentCharacter - Variable used in column 1 of parameter files to C indicate comments. +C INDEX_I - Variable used to select an index label +C INDEX_J for formatted input parameters. +C INDEX_K +C INDEX_NONE CHARACTER*(*) SQUEEZE_RIGHT PARAMETER ( SQUEEZE_RIGHT = 'R' ) CHARACTER*(*) SQUEEZE_LEFT @@ -43,6 +47,14 @@ PARAMETER ( PRINT_MAP_YZ = 'YZ' ) CHARACTER*(*) commentCharacter PARAMETER ( commentCharacter = '#' ) + INTEGER INDEX_I + INTEGER INDEX_J + INTEGER INDEX_K + INTEGER INDEX_NONE + PARAMETER ( INDEX_I = 1, + & INDEX_J = 2, + & INDEX_K = 3, + & INDEX_NONE = 4 ) C Particularly weird and obscure voodoo numbers C lShare - This wants to be the length in @@ -142,5 +154,3 @@ INTEGER scrUnit1 INTEGER scrUnit2 INTEGER standardMessageUnit - -C $Id: EEPARAMS.h,v 1.1 1998/04/22 19:15:30 cnh Exp $