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 |
C *==========================================================* |
5 |
C | ATMIDS.h Declare symbolic constants holding strings that |
6 |
C | are used to identify this component and the |
7 |
C | fields it exchanges with other components. |
8 |
C *==========================================================* |
9 |
CHARACTER*(8) atmCompName |
10 |
PARAMETER( atmCompName = 'UV-Atmos' ) |
11 |
|
12 |
CHARACTER*(10) atmDepthName |
13 |
PARAMETER( atmDepthName = 'ATM Depths' ) |
14 |
CHARACTER*(10) atmMxlDName |
15 |
PARAMETER( atmMxlDName = 'ATM ocMxlD' ) |
16 |
CHARACTER*(7) atmSSTName |
17 |
PARAMETER( atmSSTName = 'ATM SST' ) |
18 |
CHARACTER*(7) atmSSSName |
19 |
PARAMETER( atmSSSName = 'ATM SSS' ) |
20 |
CHARACTER*(9) atmSSVsqName |
21 |
PARAMETER( atmSSVsqName = 'ATM SSVsq' ) |
22 |
CHARACTER*(8) atmFCO2Name |
23 |
PARAMETER( atmFCO2Name = 'ATM FCO2' ) |
24 |
|
25 |
CHARACTER*(8) atmSLPrName |
26 |
PARAMETER( atmSLPrName = 'ATM SLPr' ) |
27 |
CHARACTER*(12) atmHeatFluxName |
28 |
PARAMETER( atmHeatFluxName = 'ATM HeatFlux' ) |
29 |
CHARACTER*(14) atmQshortWaveName |
30 |
PARAMETER( atmQshortWaveName = 'ATM Qshortwave' ) |
31 |
c CHARACTER*(13) atmQlongWaveName |
32 |
c PARAMETER( atmQlongWaveName = 'ATM Qlongwave' ) |
33 |
c CHARACTER*(11) atmQlatentName |
34 |
c PARAMETER( atmQlatentName = 'ATM Qlatent' ) |
35 |
c CHARACTER*(13) atmQsensibleName |
36 |
c PARAMETER( atmQsensibleName = 'ATM Qsensible' ) |
37 |
c CHARACTER*(14) atmUvelgroundName |
38 |
c PARAMETER( atmUvelgroundName = 'ATM Uvelground' ) |
39 |
c CHARACTER*(14) atmVvelgroundName |
40 |
c PARAMETER( atmVvelgroundName = 'ATM Vvelground' ) |
41 |
CHARACTER*(8) atmTauXName |
42 |
PARAMETER( atmTauXName = 'ATM tauX' ) |
43 |
CHARACTER*(8) atmTauYName |
44 |
PARAMETER( atmTauYName = 'ATM tauY' ) |
45 |
CHARACTER*(9) atmEvMPrName |
46 |
PARAMETER( atmEvMPrName = 'ATM Ev-Pr' ) |
47 |
CHARACTER*(10) atmRunOffName |
48 |
PARAMETER( atmRunOffName = 'ATM RunOff' ) |
49 |
CHARACTER*(12) atmROEnFxName |
50 |
PARAMETER( atmROEnFxName = 'ATM RO.EnFlx' ) |
51 |
CHARACTER*(12) atmSaltFxName |
52 |
PARAMETER( atmSaltFxName = 'ATM SaltFlux' ) |
53 |
CHARACTER*(10) atmSeaIceName |
54 |
PARAMETER( atmSeaIceName = 'ATM SeaIce' ) |
55 |
CHARACTER*(10) atmAirCO2Name |
56 |
PARAMETER( atmAirCO2Name = 'ATM AirCO2' ) |
57 |
CHARACTER*(8) atmWSpdName |
58 |
PARAMETER( atmWSpdName = 'ATM WSpd' ) |
59 |
CHARACTER*(8) atmFIceName |
60 |
PARAMETER( atmFIceName = 'ATM FIce' ) |
61 |
|
62 |
C Pass carbon/DIC variables only if flag set below |
63 |
LOGICAL atmCpl_exchange_DIC |
64 |
PARAMETER( atmCpl_exchange_DIC = .FALSE.) |
65 |
|