| 1 |
jmc |
1.3 |
C $Header: /u/gcmpack/MITgcm/pkg/atm_ocn_coupler/ATMIDS.h,v 1.2 2007/06/18 21:20:35 jmc Exp $ |
| 2 |
jscott |
1.1 |
C $Name: $ |
| 3 |
|
|
|
| 4 |
jmc |
1.2 |
These lines are here to deliberately cause a compile-time error. |
| 5 |
|
|
If you see these lines in your .F files or the compiler shows them |
| 6 |
|
|
as an error then it means you have not placed your coupler |
| 7 |
|
|
configuration files in the appropriate place. |
| 8 |
|
|
You need: a) to place you own copy of ATMIDS.h in a directory |
| 9 |
|
|
(e.g.: shared_code) which is both in the include path of the |
| 10 |
|
|
coupler and in the include path of the atmospheric component ; |
| 11 |
|
|
and b) to comment out these lines. |
| 12 |
|
|
|
| 13 |
|
|
C *==========================================================* |
| 14 |
|
|
C | ATMIDS.h Declare symbolic constants holding strings that |
| 15 |
|
|
C | are used to identify this component and the |
| 16 |
|
|
C | fields it exchanges with other components. |
| 17 |
|
|
C *==========================================================* |
| 18 |
|
|
CHARACTER*(8) atmCompName |
| 19 |
jscott |
1.1 |
PARAMETER( atmCompName = 'UV-Atmos' ) |
| 20 |
jmc |
1.2 |
|
| 21 |
jmc |
1.3 |
CHARACTER*(8) atmLandName |
| 22 |
|
|
PARAMETER( atmLandName = 'ATM Land' ) |
| 23 |
jscott |
1.1 |
CHARACTER*(10) atmMxlDName |
| 24 |
|
|
PARAMETER( atmMxlDName = 'ATM ocMxlD' ) |
| 25 |
|
|
CHARACTER*(7) atmSSTName |
| 26 |
|
|
PARAMETER( atmSSTName = 'ATM SST' ) |
| 27 |
|
|
CHARACTER*(7) atmSSSName |
| 28 |
|
|
PARAMETER( atmSSSName = 'ATM SSS' ) |
| 29 |
|
|
CHARACTER*(9) atmSSVsqName |
| 30 |
|
|
PARAMETER( atmSSVsqName = 'ATM SSVsq' ) |
| 31 |
jmc |
1.2 |
CHARACTER*(8) atmFCO2Name |
| 32 |
|
|
PARAMETER( atmFCO2Name = 'ATM FCO2' ) |
| 33 |
jscott |
1.1 |
|
| 34 |
|
|
CHARACTER*(8) atmSLPrName |
| 35 |
|
|
PARAMETER( atmSLPrName = 'ATM SLPr' ) |
| 36 |
|
|
CHARACTER*(12) atmHeatFluxName |
| 37 |
|
|
PARAMETER( atmHeatFluxName = 'ATM HeatFlux' ) |
| 38 |
|
|
CHARACTER*(14) atmQshortWaveName |
| 39 |
|
|
PARAMETER( atmQshortWaveName = 'ATM Qshortwave' ) |
| 40 |
|
|
c CHARACTER*(13) atmQlongWaveName |
| 41 |
|
|
c PARAMETER( atmQlongWaveName = 'ATM Qlongwave' ) |
| 42 |
|
|
c CHARACTER*(11) atmQlatentName |
| 43 |
|
|
c PARAMETER( atmQlatentName = 'ATM Qlatent' ) |
| 44 |
|
|
c CHARACTER*(13) atmQsensibleName |
| 45 |
|
|
c PARAMETER( atmQsensibleName = 'ATM Qsensible' ) |
| 46 |
|
|
c CHARACTER*(14) atmUvelgroundName |
| 47 |
|
|
c PARAMETER( atmUvelgroundName = 'ATM Uvelground' ) |
| 48 |
|
|
c CHARACTER*(14) atmVvelgroundName |
| 49 |
|
|
c PARAMETER( atmVvelgroundName = 'ATM Vvelground' ) |
| 50 |
|
|
CHARACTER*(8) atmTauXName |
| 51 |
|
|
PARAMETER( atmTauXName = 'ATM tauX' ) |
| 52 |
|
|
CHARACTER*(8) atmTauYName |
| 53 |
|
|
PARAMETER( atmTauYName = 'ATM tauY' ) |
| 54 |
|
|
CHARACTER*(9) atmEvMPrName |
| 55 |
|
|
PARAMETER( atmEvMPrName = 'ATM Ev-Pr' ) |
| 56 |
|
|
CHARACTER*(10) atmRunOffName |
| 57 |
|
|
PARAMETER( atmRunOffName = 'ATM RunOff' ) |
| 58 |
|
|
CHARACTER*(12) atmROEnFxName |
| 59 |
|
|
PARAMETER( atmROEnFxName = 'ATM RO.EnFlx' ) |
| 60 |
|
|
CHARACTER*(12) atmSaltFxName |
| 61 |
|
|
PARAMETER( atmSaltFxName = 'ATM SaltFlux' ) |
| 62 |
|
|
CHARACTER*(10) atmSeaIceName |
| 63 |
|
|
PARAMETER( atmSeaIceName = 'ATM SeaIce' ) |
| 64 |
jmc |
1.2 |
CHARACTER*(10) atmAirCO2Name |
| 65 |
|
|
PARAMETER( atmAirCO2Name = 'ATM AirCO2' ) |
| 66 |
|
|
CHARACTER*(8) atmWSpdName |
| 67 |
|
|
PARAMETER( atmWSpdName = 'ATM WSpd' ) |
| 68 |
|
|
CHARACTER*(8) atmFIceName |
| 69 |
|
|
PARAMETER( atmFIceName = 'ATM FIce' ) |
| 70 |
|
|
|
| 71 |
|
|
C Pass carbon/DIC variables only if flag set below |
| 72 |
|
|
LOGICAL atmCpl_exchange_DIC |
| 73 |
|
|
PARAMETER( atmCpl_exchange_DIC = .FALSE.) |
| 74 |
jscott |
1.1 |
|
Parent Directory
| 
Revision Log
| 
Revision Graph