jscott/pkg_atm2d/OCNIDS.h

C $Header: /u/gcmpack/MITgcm_contrib/jscott/pkg_atm2d/OCNIDS.h,v 1.1 2006/08/11 18:55:51 jscott Exp $
C $Name:  $

C     /==========================================================\
C     | OCNIDS.h Declare symbolic constants holding strings that |
C     |          are used to identify this component and the     |
C     |          fields it exchanges with other components.      |
C     \==========================================================/
      CHARACTER*(8)  ocnCompName 
      PARAMETER( ocnCompName         = 'UV-Ocean'       )

      CHARACTER*(10) ocnMxlDName
      PARAMETER( ocnMxlDName         = 'OCN ocMxlD'     )
      CHARACTER*(7)  ocnSSTName
      PARAMETER( ocnSSTName          = 'OCN SST'        )
      CHARACTER*(7)  ocnSSSName
      PARAMETER( ocnSSSName          = 'OCN SSS'        )
      CHARACTER*(9)  ocnSSVsqName
      PARAMETER( ocnSSVsqName        = 'OCN SSVsq'      )

      CHARACTER*(8)  ocnSLPrName
      PARAMETER( ocnSLPrName         = 'OCN SLPr'       )
      CHARACTER*(12) ocnHeatFluxName
      PARAMETER( ocnHeatFluxName     = 'OCN HeatFlux'   )
      CHARACTER*(14) ocnQshortWaveName
      PARAMETER( ocnQshortWaveName   = 'OCN Qshortwave' )
c     CHARACTER*(13) ocnQlongWaveName
c     PARAMETER( ocnQlongWaveName    = 'OCN Qlongwave'  )
c     CHARACTER*(11) ocnQlatentName
c     PARAMETER( ocnQlatentName      = 'OCN Qlatent'    )
c     CHARACTER*(13) ocnQsensibleName
c     PARAMETER( ocnQsensibleName    = 'OCN Qsensible'  )
c     CHARACTER*(14) ocnUvelgroundName
c     PARAMETER( ocnUvelgroundName   = 'OCN Uvelground' )
c     CHARACTER*(14) ocnVvelgroundName
c     PARAMETER( ocnVvelgroundName   = 'OCN Vvelground' )
      CHARACTER*(8)  ocnTauXName
      PARAMETER( ocnTauXName         = 'OCN tauX'       )
      CHARACTER*(8)  ocnTauYName
      PARAMETER( ocnTauYName         = 'OCN tauY'       )
      CHARACTER*(10) ocnFWFluxName
      PARAMETER( ocnFWFluxName       = 'OCN FWFlux'     )
      CHARACTER*(12) ocnSaltFxName
      PARAMETER( ocnSaltFxName       = 'OCN SaltFlux'   )
      CHARACTER*(10) ocnSeaIceName
      PARAMETER( ocnSeaIceName       = 'OCN SeaIce'     )


1	jscott	1.2	C $Header: /u/gcmpack/MITgcm_contrib/jscott/pkg_atm2d/OCNIDS.h,v 1.1 2006/08/11 18:55:51 jscott Exp $
2	jscott	1.1	C $Name: $
3
4			C /==========================================================\
5			C \| OCNIDS.h Declare symbolic constants holding strings that \|
6			C \| are used to identify this component and the \|
7			C \| fields it exchanges with other components. \|
8			C \==========================================================/
9			CHARACTER*(8) ocnCompName
10			PARAMETER( ocnCompName = 'UV-Ocean' )
11
12			CHARACTER*(10) ocnMxlDName
13			PARAMETER( ocnMxlDName = 'OCN ocMxlD' )
14			CHARACTER*(7) ocnSSTName
15			PARAMETER( ocnSSTName = 'OCN SST' )
16			CHARACTER*(7) ocnSSSName
17			PARAMETER( ocnSSSName = 'OCN SSS' )
18			CHARACTER*(9) ocnSSVsqName
19			PARAMETER( ocnSSVsqName = 'OCN SSVsq' )
20
21			CHARACTER*(8) ocnSLPrName
22			PARAMETER( ocnSLPrName = 'OCN SLPr' )
23			CHARACTER*(12) ocnHeatFluxName
24			PARAMETER( ocnHeatFluxName = 'OCN HeatFlux' )
25			CHARACTER*(14) ocnQshortWaveName
26			PARAMETER( ocnQshortWaveName = 'OCN Qshortwave' )
27			c CHARACTER*(13) ocnQlongWaveName
28			c PARAMETER( ocnQlongWaveName = 'OCN Qlongwave' )
29			c CHARACTER*(11) ocnQlatentName
30			c PARAMETER( ocnQlatentName = 'OCN Qlatent' )
31			c CHARACTER*(13) ocnQsensibleName
32			c PARAMETER( ocnQsensibleName = 'OCN Qsensible' )
33			c CHARACTER*(14) ocnUvelgroundName
34			c PARAMETER( ocnUvelgroundName = 'OCN Uvelground' )
35			c CHARACTER*(14) ocnVvelgroundName
36			c PARAMETER( ocnVvelgroundName = 'OCN Vvelground' )
37			CHARACTER*(8) ocnTauXName
38			PARAMETER( ocnTauXName = 'OCN tauX' )
39			CHARACTER*(8) ocnTauYName
40			PARAMETER( ocnTauYName = 'OCN tauY' )
41			CHARACTER*(10) ocnFWFluxName
42			PARAMETER( ocnFWFluxName = 'OCN FWFlux' )
43			CHARACTER*(12) ocnSaltFxName
44			PARAMETER( ocnSaltFxName = 'OCN SaltFlux' )
45			CHARACTER*(10) ocnSeaIceName
46			PARAMETER( ocnSeaIceName = 'OCN SeaIce' )
47
48