1 |
C $Header$ |
C $Header$ |
2 |
C $Name$ |
C $Name$ |
3 |
|
|
4 |
C /==========================================================\ |
These lines are here to deliberately cause a compile-time error. |
5 |
C | ATMIDS.h Declare symbolic constants holding strings that | |
If you see these lines in your .F files or the compiler shows them |
6 |
C | are used to identify this component and the | |
as an error then it means you have not placed your coupler |
7 |
C | fields it exchanges with other components. | |
configuration files in the appropriate place. |
8 |
C \==========================================================/ |
You need: a) to place you own copy of ATMIDS.h in a directory |
9 |
CHARACTER*(8) atmCompName |
(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' ) |
PARAMETER( atmCompName = 'UV-Atmos' ) |
20 |
|
|
21 |
CHARACTER*(10) atmDepthName |
CHARACTER*(10) atmDepthName |
22 |
PARAMETER( atmDepthName = 'ATM Depths' ) |
PARAMETER( atmDepthName = 'ATM Depths' ) |
23 |
CHARACTER*(10) atmMxlDName |
CHARACTER*(10) atmMxlDName |
28 |
PARAMETER( atmSSSName = 'ATM SSS' ) |
PARAMETER( atmSSSName = 'ATM SSS' ) |
29 |
CHARACTER*(9) atmSSVsqName |
CHARACTER*(9) atmSSVsqName |
30 |
PARAMETER( atmSSVsqName = 'ATM SSVsq' ) |
PARAMETER( atmSSVsqName = 'ATM SSVsq' ) |
31 |
|
CHARACTER*(8) atmFCO2Name |
32 |
|
PARAMETER( atmFCO2Name = 'ATM FCO2' ) |
33 |
|
|
34 |
CHARACTER*(8) atmSLPrName |
CHARACTER*(8) atmSLPrName |
35 |
PARAMETER( atmSLPrName = 'ATM SLPr' ) |
PARAMETER( atmSLPrName = 'ATM SLPr' ) |
61 |
PARAMETER( atmSaltFxName = 'ATM SaltFlux' ) |
PARAMETER( atmSaltFxName = 'ATM SaltFlux' ) |
62 |
CHARACTER*(10) atmSeaIceName |
CHARACTER*(10) atmSeaIceName |
63 |
PARAMETER( atmSeaIceName = 'ATM SeaIce' ) |
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 |
|
|