1 |
C $Header: /u/gcmpack/MITgcm/verification/cpl_aim+ocn/shared_code/ATMIDS.h,v 1.2 2004/05/21 20:21:39 jmc Exp $ |
2 |
C $Name: $ |
3 |
|
4 |
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 |
PARAMETER( atmCompName = 'UV-Atmos' ) |
20 |
|
21 |
CHARACTER*(10) atmDepthName |
22 |
PARAMETER( atmDepthName = 'ATM Depths' ) |
23 |
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 |
CHARACTER*(8) atmFCO2Name |
32 |
PARAMETER( atmFCO2Name = 'ATM FCO2' ) |
33 |
|
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 |
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 |
|