Back to home page

MITgcm

 
 

    


File indexing completed on 2018-03-02 18:37:38 UTC

view on githubraw file Latest commit add29e06 on 2018-01-31 20:35:05 UTC
7cee7582cc Jean*0001   These lines are here to deliberately cause a compile-time error.
                0002   If you see these lines in your .F files or the compiler shows them
248d1173cd Jean*0003     as an error then it means you have not placed your coupler
7cee7582cc Jean*0004     configuration files in the appropriate place.
                0005   You need: a) to place you own copy of OCNIDS.h in a directory
                0006     (e.g.: shared_code) which is both in the include path of the
248d1173cd Jean*0007     coupler and in include path of the ocean component ;
7cee7582cc Jean*0008   and b) to comment out these lines.
                0009 
                0010 C     *==========================================================*
                0011 C     | OCNIDS.h Declare symbolic constants holding strings that
                0012 C     |          are used to identify this component and the
                0013 C     |          fields it exchanges with other components.
                0014 C     *==========================================================*
248d1173cd Jean*0015       CHARACTER*(8)  ocnCompName
08851541d9 Jeff*0016       PARAMETER( ocnCompName         = 'UV-Ocean'       )
                0017 
00df836f46 Jean*0018       CHARACTER*(13) ocnCplParamsName
                0019       PARAMETER( ocnCplParamsName    = 'OCN CplParams'  )
                0020       INTEGER    ocnParSize
                0021       PARAMETER( ocnParSize = 6 )
                0022 
                0023 C--   fields sent from OCN to ATM:
08851541d9 Jeff*0024       CHARACTER*(10) ocnMxlDName
                0025       PARAMETER( ocnMxlDName         = 'OCN ocMxlD'     )
                0026       CHARACTER*(7)  ocnSSTName
                0027       PARAMETER( ocnSSTName          = 'OCN SST'        )
                0028       CHARACTER*(7)  ocnSSSName
                0029       PARAMETER( ocnSSSName          = 'OCN SSS'        )
                0030       CHARACTER*(9)  ocnSSVsqName
                0031       PARAMETER( ocnSSVsqName        = 'OCN SSVsq'      )
00df836f46 Jean*0032       CHARACTER*(11) ocnCO2FluxName
                0033       PARAMETER( ocnCO2FluxName      = 'OCN CO2Flux'    )
                0034 
                0035 C--   fields sent in both direction:
                0036       CHARACTER*(12) ocnSIceFracName
                0037       PARAMETER( ocnSIceFracName     = 'OCN sIceFrac'   )
                0038       CHARACTER*(13) ocnSIceThickName
                0039       PARAMETER( ocnSIceThickName    = 'OCN sIceThick'  )
                0040       CHARACTER*(13) ocnSIceSnowName
                0041       PARAMETER( ocnSIceSnowName     = 'OCN sIceSnowH'  )
                0042       CHARACTER*(10) ocnSIceQ1Name
                0043       PARAMETER( ocnSIceQ1Name       = 'OCN sIceQ1'     )
                0044       CHARACTER*(10) ocnSIceQ2Name
                0045       PARAMETER( ocnSIceQ2Name       = 'OCN sIceQ2'     )
08851541d9 Jeff*0046 
00df836f46 Jean*0047 C--   fields sent from ATM to OCN:
08851541d9 Jeff*0048       CHARACTER*(8)  ocnSLPrName
                0049       PARAMETER( ocnSLPrName         = 'OCN SLPr'       )
                0050       CHARACTER*(12) ocnHeatFluxName
                0051       PARAMETER( ocnHeatFluxName     = 'OCN HeatFlux'   )
                0052       CHARACTER*(14) ocnQshortWaveName
                0053       PARAMETER( ocnQshortWaveName   = 'OCN Qshortwave' )
                0054       CHARACTER*(8)  ocnTauXName
                0055       PARAMETER( ocnTauXName         = 'OCN tauX'       )
                0056       CHARACTER*(8)  ocnTauYName
                0057       PARAMETER( ocnTauYName         = 'OCN tauY'       )
                0058       CHARACTER*(10) ocnFWFluxName
                0059       PARAMETER( ocnFWFluxName       = 'OCN FWFlux'     )
00df836f46 Jean*0060       CHARACTER*(10) ocnRunOffName
                0061       PARAMETER( ocnRunOffName       = 'OCN RunOff'     )
08851541d9 Jeff*0062       CHARACTER*(12) ocnSaltFxName
                0063       PARAMETER( ocnSaltFxName       = 'OCN SaltFlux'   )
00df836f46 Jean*0064       CHARACTER*(12) ocnSIceMassName
                0065       PARAMETER( ocnSIceMassName     = 'OCN sIceMass'   )
                0066       CHARACTER*(14) ocnSaltPlmFlxName
                0067       PARAMETER( ocnSaltPlmFlxName   = 'OCN SaltPlmFlx' )
08851541d9 Jeff*0068       CHARACTER*(10) ocnAirCO2Name
                0069       PARAMETER( ocnAirCO2Name       = 'OCN AirCO2'     )
00df836f46 Jean*0070       CHARACTER*(11) ocnWindSpdName
                0071       PARAMETER( ocnWindSpdName      = 'OCN WindSpd'    )
                0072 
                0073 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|