Back to home page

MITgcm

 
 

    


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

view on githubraw file Latest commit add29e06 on 2018-01-31 20:35:05 UTC
9944d6f836 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
                0003     as an error then it means you have not placed your coupler
                0004     configuration files in the appropriate place.
                0005   You need: a) to place you own copy of ATMIDS.h in a directory
                0006     (e.g.: shared_code) which is both in the include path of the
                0007     coupler and in the include path of the atmospheric component ;
                0008   and b) to comment out these lines.
                0009 
                0010 C     *==========================================================*
                0011 C     | ATMIDS.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     *==========================================================*
                0015       CHARACTER*(8)  atmCompName
08851541d9 Jeff*0016       PARAMETER( atmCompName         = 'UV-Atmos'       )
9944d6f836 Jean*0017 
00df836f46 Jean*0018       CHARACTER*(13) atmCplParamsName
                0019       PARAMETER( atmCplParamsName    = 'ATM CplParams'  )
                0020       INTEGER    atmParSize
                0021       PARAMETER( atmParSize = 6 )
                0022 
                0023 C--   fields sent from OCN to ATM:
08851541d9 Jeff*0024       CHARACTER*(10) atmMxlDName
                0025       PARAMETER( atmMxlDName         = 'ATM ocMxlD'     )
                0026       CHARACTER*(7)  atmSSTName
                0027       PARAMETER( atmSSTName          = 'ATM SST'        )
                0028       CHARACTER*(7)  atmSSSName
                0029       PARAMETER( atmSSSName          = 'ATM SSS'        )
                0030       CHARACTER*(9)  atmSSVsqName
                0031       PARAMETER( atmSSVsqName        = 'ATM SSVsq'      )
00df836f46 Jean*0032       CHARACTER*(11) atmCO2FluxName
                0033       PARAMETER( atmCO2FluxName      = 'ATM CO2Flux'    )
                0034 
                0035 C--   fields that can be sent in both direction:
                0036       CHARACTER*(12) atmSIceFracName
                0037       PARAMETER( atmSIceFracName     = 'ATM sIceFrac'   )
                0038       CHARACTER*(13) atmSIceThickName
                0039       PARAMETER( atmSIceThickName    = 'ATM sIceThick'  )
                0040       CHARACTER*(13) atmSIceSnowName
                0041       PARAMETER( atmSIceSnowName     = 'ATM sIceSnowH'  )
                0042       CHARACTER*(10) atmSIceQ1Name
                0043       PARAMETER( atmSIceQ1Name       = 'ATM sIceQ1'     )
                0044       CHARACTER*(10) atmSIceQ2Name
                0045       PARAMETER( atmSIceQ2Name       = 'ATM sIceQ2'     )
08851541d9 Jeff*0046 
00df836f46 Jean*0047 C--   fields sent from ATM to OCN:
                0048       CHARACTER*(8)  atmLandName
                0049       PARAMETER( atmLandName         = 'ATM Land'       )
08851541d9 Jeff*0050       CHARACTER*(8)  atmSLPrName
                0051       PARAMETER( atmSLPrName         = 'ATM SLPr'       )
                0052       CHARACTER*(12) atmHeatFluxName
                0053       PARAMETER( atmHeatFluxName     = 'ATM HeatFlux'   )
                0054       CHARACTER*(14) atmQshortWaveName
                0055       PARAMETER( atmQshortWaveName   = 'ATM Qshortwave' )
                0056       CHARACTER*(8)  atmTauXName
                0057       PARAMETER( atmTauXName         = 'ATM tauX'       )
                0058       CHARACTER*(8)  atmTauYName
                0059       PARAMETER( atmTauYName         = 'ATM tauY'       )
                0060       CHARACTER*(9) atmEvMPrName
                0061       PARAMETER( atmEvMPrName        = 'ATM Ev-Pr'      )
                0062       CHARACTER*(10) atmRunOffName
                0063       PARAMETER( atmRunOffName       = 'ATM RunOff'     )
                0064       CHARACTER*(12) atmROEnFxName
                0065       PARAMETER( atmROEnFxName       = 'ATM RO.EnFlx'   )
                0066       CHARACTER*(12) atmSaltFxName
                0067       PARAMETER( atmSaltFxName       = 'ATM SaltFlux'   )
00df836f46 Jean*0068       CHARACTER*(12) atmSIceMassName
                0069       PARAMETER( atmSIceMassName     = 'ATM sIceMass'   )
                0070       CHARACTER*(14) atmSaltPlmFlxName
                0071       PARAMETER( atmSaltPlmFlxName   = 'ATM SaltPlmFlx' )
9944d6f836 Jean*0072       CHARACTER*(10) atmAirCO2Name
                0073       PARAMETER( atmAirCO2Name       = 'ATM AirCO2'     )
00df836f46 Jean*0074       CHARACTER*(11) atmWindSpdName
                0075       PARAMETER( atmWindSpdName      = 'ATM WindSpd'    )
08851541d9 Jeff*0076 
00df836f46 Jean*0077 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|